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

问题描述

我有一个 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）。

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

解决方法

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

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

oft outlook vba