使用outlook发送自动邮件

Question

嗨我想在同一时间发送电子邮件，就像1630一样可以使用宏。我找到了一些宏，但他们正在手动工作。这是一个简单的代码：

Sub sendMail()
    Dim olApp As Outlook.Application
    Dim objMail As Outlook.MailItem
    Set olApp = Outlook.Application
    Set objMail = olApp.CreateItem(olMailItem)
    objMail.BodyFormat = olFormatPlain
    objMail.Subject = "Hi!"
    objMail.Body = "A test mail"
    objMail.To = "...@google.com"
    objMail.Send
End Sub

我无法附上时间变量你可以帮我吗？

Answer 1

您需要使用DeferredDeliveryTime属性：

objMail.DeferredDeliveryTime 

更多信息here