(若是和其他不同软件互动之问题 请记得一并填写)
软件: 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
然后邮件寄出也收到了，但是寄件匣(不是寄件备份)仍有邮件似未寄出。
请问如何解决?