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

标签： vbscriptoutlook

Answer 1

线

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

一定是

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

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