用Outlook 2007循环定时自动发送邮件

 我有些邮件需要每周五发送一次，内容相同，Outlook 2007只支持延时发送，但没有按计划任务发送的功能，只能用其他方法配合实现了。需要的工具有3个：Windows计划任务，VBS脚本，Outlook2007(其实这个也可以不需要，但你电脑上一定要安装正确)
1. 制作自动发送邮件的VBS脚本
我是将邮件另存为一个邮件模板，由VBS直接调用发送的，实现如下：
① 写好邮件，包括收件人、抄送人、内容等，与正常写邮件一样；
②Outlook2007中，选择菜单"文件\另存为"，保存类型选择"Outlook 模板(*.oft)"，填好文件名保存(文件名最好英文)；
③写VBS脚本，内容如下，可以复制后保存为后缀名为.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
④设计Windows计划任务
通过"开始\程序\附件\系统工具\计划任务"打开Windows计划任务工具，选择"添加计划任务"，然后"下一步"，"浏览"选中上面的VBS脚本，然后设置你要重复的周期(每天、每周、每月...)，"下一步"设置开始时间，最后一路"下一步"完成设置。
现在你可以试验一下啦~~