excel - 如何在VBA中安排邮件发送到特定时间-6ren

excel - 如何在VBA中安排邮件发送到特定时间

转载作者：行者123 更新时间：2023-12-02 10:42:45

如何在 VBA 中安排邮件发送到特定时间

生成邮件的代码

Set olApp = CreateObject("Outlook.application")
Set olItem = olApp.CreateItem(0)
olItem.display
olItem.To = "bhagyashri.kulkarni@mindtree.com"
olItem.Subject = "Auto Generated - Consolidated Task Tracking Report"
olItem.htmlbody = Join(aBody, vbNewLine)
olItem.Attachments.Add outputFileName
olItem.display

DeferredDeliveryTime 有用吗？如何使用？

最佳答案

我实在是太好奇了，没有回答这个问题。这段代码应该可以工作。

Sub stackfun()  
Set olApp = CreateObject("Outlook.application")
Set objMail = olApp.CreateItem(olMailItem)
With objMail
 .Display    
 .To = "tomisgreat@something.com"
 .Subject = "you rule"
 'HTML for fun
 .BodyFormat = olFormatHTML     
 .HTMLBody = "<HTML><H2>Y HELO THAR</BODY></HTML>"
 .DeferredDeliveryTime (#11:59:59 PM#)
End With
End Sub

遗憾的是 .DeferredDeliveryTime 仅在 Outlook 2013 之后有效，建议使用 Siddarth Rout this评论中的 VB 驱动方法。

关于excel - 如何在VBA中安排邮件发送到特定时间，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/38914222/