通过Outlook编辑和发送邮件的VBS脚本
发布日期:2021-09-16 04:38:16
浏览次数:50
分类:技术文章
本文共 1366 字,大约阅读时间需要 4 分钟。
下载下面的vbs脚本随便放到某个地方,点击运行,将自动调用Outlook建立一封邮件(机器里需安装Office Outlook),自动填入预先指定的收件人,邮件标题为 "报告 2010-12-9"(后面日期可根据当天日期自动改变),并且载入D盘根目录下的"report 2010-12-9.docx"和"report 2010-12-9.pdf"作为附件。
' sdt 为今日日期的字符串,比如 '2010-12-9',可用于附件名字里sdt = FormatDateTime(Date)' 注意:以单引号'开头的行为注释' receiptions 为收件人列表,多个收件人之间用分号隔开' Subject 为邮件标题' Body 为邮件正文' Attachments 为附件列表,每个附件都需附带路径。' autoSend 设置是否直接发送,设置为False时将停留在最后窗口,需手动按Outlook的发送按钮进行发送receiptions = "math.zqy@gmail.com; blog@zhiqiang.org"Subject = "报告 " & sdtBody = "附件是今日报告,请查收。"Attachments = Array("D:\report " & sdt & ".docx", "D:\report " & sdt & ".pdf")autoSend = False' 以下代码无需修改Dim xOutLookDim xMailOn Error Resume NextSet xOutLook = GetObject(, "Outlook.Application")If xOutLook Is Nothing Then Set xOutLook = CreateObject("Outlook.Application")End IfSet xMail = xOutLook.CreateItem(olMailItem)With xMail .Display Dim signature signature = .HTMLBody .To = receiptions .Subject = Subject .HTMLBody = Body .Importance = olImportanceNormal ' 设置优先级, 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 If autoSend Then .Send Else .Display End IfEnd With
转载地址:https://blog.csdn.net/wll_1017/article/details/44995457 如侵犯您的版权,请留言回复原文章的地址,我们会给您删除此文章,给您带来不便请您谅解!
发表评论
最新留言
不错!
[***.144.177.141]2024年03月01日 04时29分01秒
关于作者
喝酒易醉,品茶养心,人生如梦,品茶悟道,何以解忧?唯有杜康!
-- 愿君每日到此一游!
推荐文章
java约瑟夫环pta上_cdoj525-猴子选大王 (约瑟夫环)
2021-06-24
mysql居左查询abcd_MySql速查手册
2021-06-24
Java小魔女芭芭拉_沉迷蘑菇不可自拔,黏土人《小魔女学园》苏西·曼芭芭拉 图赏...
2021-06-24
php+mysql记事本_一个简单记事本php操作mysql辅助类创建
2021-06-24
中国网建java发送短信_短信验证登陆-中国网建提供的SMS短信平台
2021-06-24
隔行变色java代码_jquery入门—选择器实现隔行变色实例代码
2021-06-24
webpack 入口文件 php,如何实现webpack多入口文件打包配置
2021-06-24
php tire树,Immutable.js源码之List 类型的详细解析(附示例)
2021-06-24
matlab转差频率控制,转差频率控制的异步电机调速系统的研究
2021-06-24
oracle错误1327,Oracle中的PGA监控报警分析(r11笔记第97天)
2021-06-24
php函数内的循环,PHP 循环列出目录内容的函数代码
2021-06-24
oracle树状排序,Oracle树状结构查询
2021-06-24
深度linux内核升级,深度操作系统 2020.11.11 更新发布:内核升级
2021-06-24