OUTLOOK有延迟传递功能,可延迟传递的发送邮件在功能设计时(mircosoft的support帮助页的解释)就是邮件发送时的时间而不是邮件发送成功后的时间。比如早上10点发一封11点后的延迟传递邮件,11点后成功发出,可邮件的发送时间显示还是10点而不是我想要的发送成功后的时间11点!所以想用vbs调用outlook发送邮件,配合windows计划任务设置定时启动。
vbs调用outlook发送邮件代码
以下test1.vbs、test2.vbs代码方式在windows7下测试了,都行:
test1.vbs
set out=WScript.CreateObject("Outlook.Application")
Set oitem = out.CreateItem(olMailItem)
With oitem
.Subject ="这里是邮件主题"&now()
.To = "收信人@123.com"
.Body = "亲爱的XXX"&chr(13)&" AAAAAAAAAAAAAAAAAA."&chr(13)&"你亲爱的XXXXX"&chr(13)&MONTH(DATE())&"月"&day(DATE())&"日"
.Send
End With
set out=nothing
set oitem=nothing
MsgBox("邮件成功提交")
test2.vbs