Outlook 使用模板回复所有宏

如何解决Outlook 使用模板回复所有宏

我正在尝试创建一个宏来使用特定模板执行“全部回复”命令。 这是我目前所拥有的：

Sub my_test()

Dim mail 'object/mail item iterator
Dim replyall 'object which will represent the reply email

For Each mail In outlook.application.ActiveExplorer.Selection
    If mail.Class = olMail Then
        Set replyall = mail.replyall
        With replyall
            .Body = "My template from a oft file"
            .display
        End With
    End If
Next

End Sub

在正文中，我想使用经常文件中的模板

(in c:\mytemplate.oft).

我不知道如何使用我的模板，所以当我在底部回复时，我想要原始电子邮件，而在电子邮件正文的顶部，我想要现有模板中的文本。

我们的想法是使用此代码（如果可能），并将模板正文文件的上下文（文本和表格）放在此回复电子邮件中（顶部）。

解决方法

Outlook 代码。 Excel 标记没有明显的用途。

Option Explicit

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