如何让outlook定时发送邮件
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
设置让Outlook自动、定时发送邮件
Outlook 只支持延时发送,但没有按计划任务发送的功能,因此这里讲解如何使用脚本邮件任务实现发送计划(发送邮件时电脑在开机状态,OUTLOOK在运行状态)。需要的工具有3个:Windows计划任务,VBS脚本,Outlook2007或者其他版本。
1.制作待发送邮件
将待发送邮件写好,另存为一个邮件模板。
a.写好邮件,包括收件人、抄送人、内容等,与正常写邮件一样;
b.Outlook2007中,选择菜单"文件\另存为",保存类型选择"Outlook 模板(*.oft)",填
好文件名保存(文件名最好英文),记录存放的详细地址;
2.制作自动发送邮件的VBS脚本
新建一个写字板文件(*.txt),将以下内容复制粘贴到写字板后保存为后缀名为.vbs的文件,记得修改文本中黄色标记的地方(填写具体的带发送邮件存放地址)。
Call SendMail
Sub SendMail()
Dim OutApp
Dim OutMail
Dim strBody
Set OutApp = GetObject("", "Outlook.Application")
If Err.Number > 0 Then
Err.Clear
Set OutApp = CreateObject("Outlook.Application")
If Err.Number > 0 Then
MsgBox "Could not create Outlook object.", vbCritical
Exit Sub
End If
End If
OutApp.Session.Logon
Set OutMail = OutApp.CreateItemFromTemplate("C:\ReserveTempLab.oft") '这里根据你模板的保存位置修改
With OutMail
.Send
End With
Set OutApp = Nothing
Set OutMail = Nothing
'MsgBox "The mail has been sent successful."
End Sub
3.设计Windows计划任务
通过"开始\程序\附件\系统工具\计划任务"打开Windows计划任务工具,
选择"添加计划任务",然后"下一步","浏览"选中上面的VBS脚本,
然后设置你要重复的周期(每天、每周、每月...),"下一步"设置开始时间,最后一路"下一步"完成设置。
设置完成,简单吧!