Set MyApp = CreateObject("Outlook.Application")
Set MyItem = MyApp.CreateItem(0) 'olMailItem
With MyItem
.To = Vdistro
.CC = Vregion
.Subject = Vsubject
.AddAttachment "C:\VzW\Ankur.txt"
.HTMLBody = EmailComments & EmailBody & "<br><b>Regards,</b>" + mysignature
'.Importance = Vimportance
'.FlagStatus = Vflagstatus
在上面的代码中,除附件外,其他所有功能均有效。我也尝试过MyApp..AddAttachment "C:\VzW\Ankur.txt"
,但是没有运气。
答案 0 :(得分:1)
行
.AddAttachment "C:\VzW\Ankur.txt"
必须
.Attachments.Add "C:\VzW\Ankur.txt"
我敢打赌,您某个地方有On Error Resume Next
。请删除它-它掩盖了代码中的所有问题。