Раз в неделю запускайте код для отправки почты через Outlook с помощью Excel - PullRequest
Новая
       11

Раз в неделю запускайте код для отправки почты через Outlook с помощью Excel

0 голосов
/ 25 октября 2018

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

Sub Outlookmail()

    If Range("C12") >= 0 Then
        Dim outobj, mailobj
        Dim strFileText
        Dim objFileToRead

        Set outobj = CreateObject("Outlook.Application")
        Set mailobj = outobj.CreateItem(0)

        With mailobj
            .To = "myemail@blabla"
            .Subject = "BETALA BETALA"
            .Body = "DIN BUDGET SPRICKER KOMPIS"
            .send
        End With

        'Clear the memory
        Set outobj = Nothing
        Set mailobj = Nothing

    End If
End Sub

Я новичок в кодировании.Это лучшее, что я могу сделать с Google и думать сам.

Пока это работает, есть ли способ экспортировать напоминание календаря?И так как это мой бюджетный документ, можно ли обновить даты?Если так, то как?

...