vba - 如何使用原始附件回复所有联系人

Question

我有一个 vba 代码脚本，用于回复所有人，并将回复发送给原始电子邮件中的所有联系人。

 Sub my_test()

Dim objItem As Object

Dim mail As MailItem
Dim replyall As MailItem

Dim templateItem As MailItem

For Each objItem In ActiveExplorer.Selection

    If objItem.Class = olMail Then
    
        Set mail = objItem
        Set replyall = mail.replyall
                
        Set templateItem = CreateItemFromTemplate("C:\template.oft")
        
        With replyall
            .HTMLBody = templateItem.HTMLBody & .HTMLBody
            .Display
        End With
        
    End If
    
Next

End Sub

我知道在原始电子邮件中可能有一些附件（pdf、docx）。

如何在此代码中添加更改/某些内容（保留此代码），以便当我使用此宏时，新的电子邮件回复响应也会自动将附件作为附件获取？也回复大家。

Answer 1

您应该阅读该MailItem.Attachments属性，例如：https ://docs.microsoft.com/en-us/office/vba/api/outlook.mailitem.attachments 。

有了它，您可以获取电子邮件的现有附件并将它们附加到新附件，添加/删除等。