Автоматическое вложение в 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. Пожалуйста, удалите его - он маскирует все проблемы в вашем коде.