outlook呗vbs调用后 大附件滞留发件箱问题

51cjh

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




代码如下

1. Set WshShell = CreateObject("WScript.Shell")
   
2. Set oExec = WshShell.Exec("C:\Program Files (x86)\Microsoft Office\Office16\OUTLOOK.EXE")
   
3. '打开outlook应用程序
   
4. 
   
5. 
   
6. Set out=WScript.CreateObject("Outlook.Application")
   
7. '新建一份邮件
   
8. Set mailitem=out.CreateItem(0)
   
9. '设置邮件的主题
   
10. mailitem.SubJect="每日汇报"
    
11. '设置邮件的正文
    
12. mailitem.Body="汇报内容"
    
13. '设置收件人
    
14. mailitem.To="53906103@qq.com;test1@qq.com"
    
15. '增加附件，每天要选4个附件比较麻烦
    
16. 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")
    
17. ' 把变量放到数组中
    
18. for i = 0 to 3
    
19.     mailitem.Attachments.Add ar(i)
    
20. next
    
21. Set mailitem=Nothing
    
22. Set out=Nothing
    
23. 
    
24. '10秒后关闭outlook进程

复制代码

51cjh

1. WScript.sleep 1000*10
   
2. WshShell.Run "taskkill /f /im OUTLOOK.exe",0

复制代码

'10秒后关闭outlook进程

补上面少的代码

51cjh

顶上去让大神们看到 如果能判断outlook发件箱内没有邮件 就说明发送成功  可以是这个思路吗

51cjh

大神 帮助我 人工置顶