每周运行一次代码,以使用Excel通过Outlook发送邮件

时间:2018-10-25 19:35:47

标签: excel vba calendar export

我想每周运行一次,以便通过电子邮件收到提醒。

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一起思考的最好的方法。

此程序正在运行时,是否可以导出日历提醒?既然这是我的预算文件,是否还可以更新日期?如果可以,怎么办?

0 个答案:

没有答案