如何用VBA实现OUTLOOK工作日定时发送邮件

winwiner

请教高手：
如何用VBA实现OUTLOOK工作日定时发送邮件。
因为每天报加班，加班表是个附件。有时会忘记报了。因此想用VBA实现。如果Outlook直接有这个功能请指点
谢谢各位哥哥姐姐。

suye1010

http://coogor.blog.163.com/blog/static/1145133920114191151244/
用Outlook 2007循环定时自动发送邮件  2011-05-19 11:05:12|  分类： IT |  标签：outlook  自动发送邮件   |字号大中小 订阅 .

我有些邮件需要每周五发送一次，内容相同，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脚本，然后设置你要重复的周期(每天、每周、每月...)，"下一步"设置开始时间，最后一路"下一步"完成设置。
现在你可以试验一下啦~~

winwiner

suye1010 发表于 2012-11-10 21:08
http://coogor.blog.163.com/blog/static/1145133920114191151244/
用Outlook 2007循环定时自动发送邮件   ...

我计算机的计划任务不好用了，不知出现的什么问题。我们公司的IT人员给检查了一下，什么组策略了，注册表了，都查过了，也没查了来原因。
现在的现象是每次启动电脑都要运行一下计划任务，否则它就不干活。也不知为什么，希望可以指点一下。
谢谢了！

小学生tj

suye1010 发表于 2012-11-10 21:08
http://coogor.blog.163.com/blog/static/1145133920114191151244/
用Outlook 2007循环定时自动发送邮件   ...

请问，如果我的邮件需要加附件，每次的附件是同一个Excel，但是这个附件内的数据会去更改，能使用这个方法吗？