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

Check out the outlook.attachments Object。

您将此对象设置为邮件对象outlook.attachments，然后将其添加到该对象的集合中。

链接示例：

.Attachments