定时自动发送电子邮件功能实现.docVIP

定时自动发送电子邮件功能实现 　　摘要：电子邮件是日常办公中经常使用的功能，目前有两种方式收发邮件，一是通过网站登录收发，另一种是通过第三方软件实现收发。但在实际使用过程中却不能实现定时自动发送邮件功能，经过查阅资料及摸索，最终实现了定时自动发送电子邮件。 　　关键词：定时；自动；电子邮件 　　中图分类号：TP37 文献标识码：A 文章编号：1009-3044（2013）35-7958-02 　　我院检验科在提供外送标本时需向外送标本接收单位提供患者检验的详细清单，该清单由外送标本接收单位派专人定时从LIS系统生成，然后需要从局域网转发到互联网上接收单位提供的电子邮箱中。需我科每天重复做此项工作，工作量不大，但每天必须做，有时还会因忘记而未能转发。我科在考虑有没有更好的方法，能定时自动生成电子邮件，并将其发给外送标本接收单位的电子邮箱呢？经过一段时间的摸索与尝试，终于实现了定时自动发邮件功能。 　　1 需求 　　该功能的需求如下：1）能每天在指定时间自动执行；2）能自动生成电子邮件；3）电子邮件必须带指定格式文件名的附件；4）能执行发送到指定邮箱的电子邮件的任务。 　　2 方法 　　1）在OUTLOOK上设置邮件账号（默认通过此邮箱发邮件）；2）编写VBS脚本（用于生成带附件的电子邮件并通过OUTLOOK发送邮件）；3）设置计划任务定时发送。 　　3 详细步骤 　　3.1 设置OUTLOOK账户 　　1）在OUTLOOK菜单栏中打开“工具”→“账户设置（A）…”，在弹出的界面上，电子邮件选项卡中选择“新建（N）…”，在弹出的对话框中选择“Microsoft Exchange、POP3、IMAP或HTTP”，执行“下一步”，在“手动配置服务器设置或其他服务器类型”上打勾，执行“下一步”，选择“Internet电子邮件（I）”，执行“下一步”，录入姓名、邮件地址、接收邮件服务器、发送邮件服务器（SMTP）、用户名、密码，勾选“记住密码”。如图1示。 　　图2 　　2）在“其他设置”→“发送服务器”勾选“我的发送服务（SMTP）要求验证”，并选择“使用与接收邮件服务器相同的设置”，按“确定”返回上一界面。如图2示。 　　3）点击“测试账户设置（T）…”按钮，OUTLOOK将自动测试收发邮件是否正常，正常则显示已完成并打上绿色的勾。如图3示。 　　3.2 生成VBS执行脚本 　　在记事本中录入，并保存为AutoSendMail.vbs，代码如下： 　　 以下代码可自定义修改 　　fdt = FormatDateTime（Date） fdt为今日日期的字符串，比如 2012-3-1，其格式与当前系统设置中“区域和语言选项”有关。 　　receiptions = test01@；test02@ receiptions 为收件人列表，多个收件人之间用分号隔开. 　　Subject = 射阳人民医院导入模版 fdt Subject 为邮件标题 　　Body = 您好，这是系统自动发送的定时邮件，其中附件是外送标本 fdt ，邮件发送时间为每天的18：00，请查收。射阳县人民医院信息科 Body 为邮件正文 　　Attachments = Array（T：＼射阳县人民医院 fdt .xls） Attachments 为附件列表，每个附件都需附带路径并用逗号隔开。 　　 以下代码无需修改 　　Dim xOutLook 　　Dim xMail 　　On Error Resume Next 　　Set xOutLook = GetObject（， Outlook.Application） 　　If xOutLook Is Nothing Then 　　Set xOutLook = CreateObject（Outlook.Application） 　　End If 　　Set xMail = xOutLook.CreateItem（olMailItem） 　　With xMail 　　.Display 　　Dim signature 　　signature = .HTMLBody 　　.To = receiptions 　　.Subject = Subject 　　.HTMLBody = Body 　　.Importance = olImportanceHigh 　　Dim xDoc 　　Set xDoc = xMail.Application.ActiveInspector.WordEditor 　　If IsArray（Attachments） Then 　　Dim attachment 　　For Each attachment In A