如何让outlook定时发送邮件

合集下载
  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 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脚本,

然后设置你要重复的周期(每天、每周、每月...),"下一步"设置开始时间,最后一路"下一步"完成设置。

设置完成,简单吧!

相关文档
最新文档