VBS脚本中的自动附件

Question

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"，但是没有运气。

Answer 1

行

.AddAttachment "C:\VzW\Ankur.txt"

必须

.Attachments.Add "C:\VzW\Ankur.txt"

我敢打赌，您某个地方有On Error Resume Next。请删除它-它掩盖了代码中的所有问题。