作者loser1 (拍嘎爪得白酱)
看板Office
标题[问题] Outlook VBS 寄信後在寄件匣有原邮件
时间Tue Mar 15 11:57:52 2022
(若是和其他不同软体互动之问题 请记得一并填写)
软体: outlook
版本: outlook 2010
VBScript 程式如下
Dim oOutlook
Set oOutlook = CreateObject("Outlook.Application")
'oOutlook.visible = TRUE
Dim oNameSpace
Set oNameSpace = oOutlook.GetNameSpace("MAPI")
Dim oMail
Set oMail = oOutlook.CreateItem(0)
oMail.Subject = Subject
oMail.To = Receiver
MailContent = "<h1>this is a test</h1>"
oMail.BodyFormat = 2
oMail.HTMLBody = MailContent
oMail.Send
oNameSpace.SendAndReceive TRUE
然後邮件寄出也收到了，但是寄件匣(
不是寄件备份)仍有邮件似未寄出。
请问如何解决?
--
http://i.imgur.com/Hm56xjp.jpg
http://i.imgur.com/8mNO8kx.jpg
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 125.227.9.148 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1647316674.A.C10.html