(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體: 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://www.ptt.cc/bbs/Office/M.1647316674.A.C10.html