(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體: 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
然後郵件寄出也收到了，但是寄件匣(不是寄件備份)仍有郵件似未寄出。
請問如何解決?