Как отправлять автоматические электронные письма от Excel VBA

Question

У меня есть код VBA, который отправит пользователям электронное письмо. Я хочу, чтобы код запускался автоматически каждый день. Этот код написан внутри кнопки.

    For RowNum = 7 To Sheet1.Cells(Sheet1.Rows.Count, "B").End(xlUp).Row

        If VBA.Format((Sheet1.Cells(RowNum, "H").Value), "DDMM") = VBA.Format((Sheet1.Range("B1").Value), "DDMM") Then

            Set OutApp = CreateObject("Outlook.Application")
            OutApp.Session.Logon
            Set OutMail = OutApp.CreateItem(0)

            With OutMail
            .SentOnBehalfOfName = Sheet1.Range("B3").Value
            .CC = Sheet1.Range("B4").Value
            .To = Sheet1.Cells(RowNum, "I").Value
            .Subject = "Happy Birthday !"
            .Body = "Happy Birthday"

            .Display
            .Send
            End With
        End If

        Next RowNum

        Sheet1.Range("B1").Value = Format(VBA.DateValue(Sheet1.Range("b1").Value) + 1, "dd-mm")