NOVOTS KMS 词汇表 Glossary    联系我们 Contact Us
查询 Search  
   
按类别浏览 Browse by Category
NOVOTS KMS .: 邮件/群件 .: 定时自动发送带附件的电子邮件

定时自动发送带附件的电子邮件

由于公司KMS系统不能发布截图,所以详细文档请参考公司论坛文档

定时自动发送带附件的电子邮件.pdf

我们日常的工作中应该会有这样的需求:领导需要了解每天的运营销售数据,IT应用负责人需要了解每天服务器的运行报告或者日志记录。一些专业的软件自身带有邮件发送报告的功能,然而还有很多日常的工作和应用没有软件能够支持自动发送邮件的功能。我们该怎么办呢?经过多种方法的测试比较,终于总结出一种方便实用,而且免费的方法:


利用windows自带的计划任务以及Outlook客户端,配合VBS脚本文件实现定时自动发送带附件的邮件
前提:已经配置过outlook账户,并可以正常收发邮件。(具体方法不做介绍)

 

下面介绍脚本的配置和计划任务的配置:
一、配置脚本代码
我们首先在文本文件中编写VBS脚本代码,然后将其另存为一个名为email.vbs的文件
代码如下:

 

' 注意:以单引号'开头的行为注释

' fdt为今日日期的字符串,比如 '2012-3-1',可用于附件名字里和邮件标题里

' receiptions 为收件人列表,多个收件人之间用分号隔开

' Subject 为邮件标题

' Body 为邮件正文

' Attachments 为附件列表,每个附件都需附带路径并用逗号隔开。

 

 

' 以下代码可自定义修改

fdt = FormatDateTime(Date)

receiptions = "username@domain.com"

Subject = "报告 " & fdt

Body = "附件是今日报告,请查收。"

Attachments = Array("E:mail testXXX.xlsx","E:mail testXXX.docx") 

 

' 以下代码无需修改

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 Attachments

 .Attachments.Add attachment

 Next

 End If

 

 .HTMLBody = .HTMLBody & signature

 .Send

 

End With




这篇文章对你多有用?

用户评语

添加评语
当前还没有评语.


.: .: .: .: .:
[ 登陆 ]
北京护航科技有限公司 2006

Novots Technologies Limited