ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 808|回复: 3

[求助] outlook呗vbs调用后 大附件滞留发件箱问题

[复制链接]

TA的精华主题

TA的得分主题

发表于 2020-11-6 15:45 | 显示全部楼层 |阅读模式
本帖最后由 51cjh 于 2020-11-6 15:50 编辑

每天都要发相同的邮件 因为附件比较多 所以做了个vbs脚本 测试可以正常发出 但是遇到附件比较大的情况(2M以上) 调用outlook过程很短 邮件还没发完outlook就退出了 邮件就会滞留在发件箱内(如图 )发不出去 必须要手动打开 才会发送  
后来想了个办法 用vbs打开outlook.exe窗口 然后 10秒后关闭outlook窗口  发送正常 但是对于大附件10M以上 时间又不够用了  
求助各位前辈 如何判断outlook有没有正在发送的任务  我想实现双击vbs脚本就自动发出带大附件的邮件去,不在滞留在发件箱 不再需要手动打开界面发送


image.png

代码如下
  1. Set WshShell = CreateObject("WScript.Shell")
  2. Set oExec = WshShell.Exec("C:\Program Files (x86)\Microsoft Office\Office16\OUTLOOK.EXE")
  3. '打开outlook应用程序


  4. Set out=WScript.CreateObject("Outlook.Application")
  5. '新建一份邮件
  6. Set mailitem=out.CreateItem(0)
  7. '设置邮件的主题
  8. mailitem.SubJect="每日汇报"
  9. '设置邮件的正文
  10. mailitem.Body="汇报内容"
  11. '设置收件人
  12. mailitem.To="53906103@qq.com;test1@qq.com"
  13. '增加附件,每天要选4个附件比较麻烦
  14. ar = array("C:\Users\Administrator\Desktop\T.rar", "C:\Users\Administrator\Desktop\2.xls", "C:\Users\Administrator\Desktop\3.xls","C:\Users\Administrator\Desktop\4.xls")
  15. ' 把变量放到数组中
  16. for i = 0 to 3
  17.     mailitem.Attachments.Add ar(i)
  18. next
  19. Set mailitem=Nothing
  20. Set out=Nothing

  21. '10秒后关闭outlook进程
复制代码


TA的精华主题

TA的得分主题

 楼主| 发表于 2020-11-6 16:57 | 显示全部楼层
  1. WScript.sleep 1000*10
  2. WshShell.Run "taskkill /f /im OUTLOOK.exe",0
复制代码


'10秒后关闭outlook进程

补上面少的代码

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-11-7 08:05 | 显示全部楼层
顶上去让大神们看到 如果能判断outlook发件箱内没有邮件 就说明发送成功  可以是这个思路吗

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-11-8 08:46 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
大神 帮助我 人工置顶
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 20:18 , Processed in 0.046382 second(s), 10 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表