如何修改VBA代码以通过Outlook和附件回复并包括PNG（在电子邮件签名中）？

Question

如何修改VBA代码以使用附件回复并包括PNG（在电子邮件签名中）？

Sub AnyUpdatesForOS()

Dim OrgEmail As MailItem
Dim ReEmail As MailItem

Set OrgEmail = Application.ActiveWindow.Selection.Item(1)
Set ReEmail = Application.CreateItemFromTemplate("C:\Users\Deski\AppData\Roaming\Microsoft\Templates\AnyUpdatesForOS.oft")

ReEmail.To = OrgEmail.Sender
ReEmail.CC = OrgEmail.CC
ReEmail.BCC = OrgEmail.BCC
ReEmail.Subject = OrgEmail.Subject

ReEmail.HTMLBody = ReEmail.HTMLBody & OrgEmail.Reply.HTMLBody
ReEmail.Display

End Sub

Answer 1

使用 fortht 。要添加其他附件，您可以使用 attachments.add 方法。

Sub AnyUpdatesForOS()

Dim OrgEmail As MailItem
Dim ReEmail As MailItem
Dim myAttachments As Attachments

Set OrgEmail = Application.ActiveWindow.Selection.Item(1)
Set ReEmail = OrgEmail.Forward()

Set myAttachments = myItem.Attachments 
myAttachments.Add "C:\Test.doc", olByValue, 1, "Test" 

ReEmail.Display

End Sub