关闭

每天定时发邮件

标签: 邮件定时
10人阅读 评论(0) 收藏 举报

将下面代码复制到文本文档,并保存为vbs格式,然后用win7的定时任务执行。


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



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


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


' Subject 为邮件标题


' Body 为邮件正文


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


' 以下代码可自定义修改


fdt = FormatDateTime(Date)


receiptions = "1551587600@qq.com"


Subject = "报告 " & fdt


Body = "附件是今日测试,请查收。"


Attachments = Array("H:\其他\测试.xls") 




' 以下代码无需修改


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
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:23次
    • 积分:12
    • 等级:
    • 排名:千里之外
    • 原创:1篇
    • 转载:1篇
    • 译文:0篇
    • 评论:0条
    文章存档