目前outlook邮件收发软件还是被多人使用着,在日常的工作中,我们经常会遇到需要每天定时发送邮件的情况。但是很多客户端软件的定时发送只能生效一次,而且邮件的附件还不能定时更新。其实ontlook都可以实现这些功能呢,具体该如何操作,请看小编在雨林木风win7系统中的操作。
1、编制自动方案代码,首先启动Outlook2010,然后按下Alt+F11组合键,启动VBA编辑器,在代码窗口左侧点击ThisOutlookSession,然后在右侧代码窗口中输入如下代码:
Sub Application_Startup()
Set oApp = Outlook.Application
Set oMessage = oApp.CreateItem(olMailItem)
oMessage.To = "wangxiang169@163.com "
oMessage.Subject = "每日报表 "
oMessage.Attachments.Add ("E:\新建文件夹\每日报表.xls ")
oMessage.Send
Set oMessage = Nothing
Set oApp = Nothing
End Sub
ps:以上代码中的oMessage.To = 后面是收件人地址,oMessage.Subject =指的是邮件标题,而oMessage.Attachments.Add则指的是所添加的附件文件路径。
2、输入完毕,检查无误后,点击“保存”按钮,然后关闭Outlook,这段代码的作用是当启动Outlook时,新建一封邮件,自动添加附件,并将此发邮件予以发送。
3、制定自动发送任务,首先执行“开始→程序→系统工具→任务计划”命令,选择“添加计划任务”,然后单击“下一步”,在弹出的任务计划向导的程序列表中,选择Microsoft Outlook 2010,在随之弹出的向导对话框中选择执行此任务的循环周期,如“每天”,单击“下一步”按钮,在弹出的对话框中设置起始时间以及日期,如16:30,单击“下一步”按钮;
4、然后在弹出的用户名以及密码设置对话框中,输入你登录本机的用户名以及密码(必需输如),然后单击“下一步”,最后单击“完成”按钮就可以了,这样,当每周的星期五就会自动将带有附件的邮件自动发送到指定邮箱了,很简单吧。
注意:如果服务中的任务计划程序没有运行,运行上面设置的任务计划时,会提示错误,这时候,可以执行“开始→程序→管理工具→服务”命令,将其中的Task Scheduler设置为“自动”,然后予以启动即可解决。
|