Outlook 使用回复模板和转发到分发列表答案

【问题标题】：Outlook Using a Reply Template and fwd to a Distribution ListOutlook 使用回复模板和转发到分发列表
【发布时间】：2016-09-19 01:17:33
【问题描述】：

我正在尝试在 Outlook 中创建一个 VBA 宏，当收到来自某个地址的电子邮件时，使用回复模板修改原始电子邮件并将其转发到 DL 。

到目前为止，这是我得到的：

Sub B1(Item As Outlook.MailItem) 'Reply with template
Dim oRespond As Outlook.MailItem

'This sends a response back using a template
Set oRespond = Application.CreateItemFromTemplate("D:\Appdata1\Roaming   \Microsoft\Templates\Request.oft")

With oRespond
.Recipients.Add Item.SenderEmailAddress
.Subject = "Request for Approval - " & Item.Subject
.HTMLBody = oRespond.HTMLBody & vbCrLf & _
          "---- original message below ---" & vbCrLf & _
           Item.HTMLBody & vbCrLf



.Send

End With
Set oRespond = Nothing
End Sub

这似乎根本不起作用，哈！除了修改部分，它工作了一段时间，然后我开始修补，但之后它完全停止工作。

【问题讨论】：

我发现您的代码没有任何问题，您是否遇到任何错误？
它什么也没做！！！最初它正在工作，我开始编辑它并完全停止工作......

标签： vba outlook ms-office

【解决方案1】：

尝试删除规则并重新创建它...

在 2010 Outlook 上测试的代码

Option Explicit
Sub B1(Item As Outlook.MailItem) 'Reply with template
    Dim oRespond As Outlook.MailItem
    'This sends a response back using a template
    Set oRespond = Application.CreateItemFromTemplate("D:\Appdata1\Roaming\Microsoft\Templates\Request.oft")

    With oRespond
        .Recipients.Add Item.SenderEmailAddress

        .Subject = "Request for Approval - " & Item.Subject

        .HTMLBody = oRespond.HTMLBody & vbCrLf & vbCrLf & _
        "---- original message below ---" & vbCrLf & Item.HTMLBody & vbCrLf

        .Display
'        .Send
    End With

    Set oRespond = Nothing
End Sub

【讨论】：