如何在VBA中安排邮件发送到特定时间
生成邮件的代码
Set olApp = CreateObject("Outlook.application")
Set olItem = olApp.CreateItem(0)
olItem.display
olItem.To = "[email protected] /cdn-cgi/l/email-protection"
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 = "[email protected] /cdn-cgi/l/email-protection"
.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
Sadly .DeferredDeliveryTime
仅在 Outlook 2013 之后有效,推荐 Siddarth Routthis https://stackoverflow.com/questions/10211250/excel-vba-email-does-not-send-when-computer-is-lockedVB驱动的方法见评论。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)