通过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 如侵犯您的版权,请留言回复原文章的地址,我们会给您删除此文章,给您带来不便请您谅解!

上一篇:mysql 锁详解
下一篇:mysql 找父节点函数

发表评论

最新留言

不错!
[***.144.177.141]2024年03月01日 04时29分01秒

关于作者

    喝酒易醉,品茶养心,人生如梦,品茶悟道,何以解忧?唯有杜康!
-- 愿君每日到此一游!

推荐文章

java约瑟夫环pta上_cdoj525-猴子选大王 (约瑟夫环) 2021-06-24
java++记录+运行_记录java+testng运行selenium(三)---xml、ini、excel、日志等配置 2021-06-24
mysql居左查询abcd_MySql速查手册 2021-06-24
loadrunner 错误: 无法找到 java.exe_LoadRunner错误及解决方法总结 2021-06-24
Java小魔女芭芭拉_沉迷蘑菇不可自拔,黏土人《小魔女学园》苏西·曼芭芭拉 图赏... 2021-06-24
php+mysql记事本_一个简单记事本php操作mysql辅助类创建 2021-06-24
300小时成为java程序员_直击面试现场: Java程序员3轮6小时面试, 成功拿到阿里offer!... 2021-06-24
中国网建java发送短信_短信验证登陆-中国网建提供的SMS短信平台 2021-06-24
隔行变色java代码_jquery入门—选择器实现隔行变色实例代码 2021-06-24
角标越界 Java_【新人求助】利用占位符操作数据库是总是提示数组角标越界是怎么回事 - Java论坛 - 51CTO技术论坛_中国领先的IT技术社区... 2021-06-24
java类中声明log对象_用于Android环境,java环境的log打印,可打印任何类型数据 2021-06-24
db2与mysql编目_DB2编目、联邦数据库 - Goopand's OS Space - OSCHINA - 中文开源技术交流社区... 2021-06-24
atomikosdatasourcebean mysql_SpringBoot2整合JTA组件实现多数据源事务管理 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