Vbscript VBS脚本中的自动附件 Set MyApp=CreateObject（“Outlook.Application”）设置MyItem=MyApp.CreateItem（0）'olMailItem 使用MyItem .To=Vdistro .CC=Vregion .Subject=Vsubject .AddAttachment“C:\VzW\Ankur.txt” .HTMLBody=EmailComments&EmailBody&“问候”+mysignature ’重要性=重要性 '.FlagStatus=Vflagstatus_Vbscript_Outlook

Vbscript VBS脚本中的自动附件 Set MyApp=CreateObject（“Outlook.Application”）设置MyItem=MyApp.CreateItem（0）'olMailItem 使用MyItem .To=Vdistro .CC=Vregion .Subject=Vsubject .AddAttachment“C:\VzW\Ankur.txt” .HTMLBody=EmailComments&EmailBody&“问候”+mysignature ’重要性=重要性 '.FlagStatus=Vflagstatus

vbscript outlook

Vbscript VBS脚本中的自动附件 Set MyApp=CreateObject（“Outlook.Application”）设置MyItem=MyApp.CreateItem（0）'olMailItem 使用MyItem .To=Vdistro .CC=Vregion .Subject=Vsubject .AddAttachment“C:\VzW\Ankur.txt” .HTMLBody=EmailComments&EmailBody&“问候”+mysignature ’重要性=重要性 '.FlagStatus=Vflagstatus,vbscript,outlook,Vbscript,Outlook,在上述代码中，除附件外，所有内容均正常工作。我也试过MyApp..AddAttachment“C:\VzW\Ankur.txt”，但运气不好线路 Set MyApp = CreateObject("Outlook.Application") Set MyItem = MyApp.CreateItem(0) 'olMailItem With MyItem .To = Vdistro .CC = Vregion .Subject = Vsubject .AddA

在上述代码中，除附件外，所有内容均正常工作。我也试过

MyApp..AddAttachment“C:\VzW\Ankur.txt”

，但运气不好

线路

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

一定是

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

我打赌你在某个地方有

错误。请删除它-它掩盖了代码中的所有问题。为您编辑了一个额外的标记。您可能应该删除vbscript或outlook vba。谢谢..附件。添加“C:\VzW\Ankur.txt”工作如果答复回答了您的问题，请将其标记为“C:\VzW\Ankur.txt”。非常感谢。谢谢德米特里·斯特雷布列琴科
.Attachments.Add "C:\VzW\Ankur.txt"