Question

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

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

<div class="test">
  test
</div>

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

Answer 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

Outlook使用回复模板和fwd到分发列表

1 个答案: