Outlook Verwenden einer Antwortvorlage und fwd zu einer Verteilerliste

Question

Ich versuche, ein VBA-Makro in Outlook zu erstellen, dass, wenn eine E-Mail von einer bestimmten Adresse empfangen wird, die ursprüngliche E-Mail mit einer Antwortvorlage und fwd es zu einem DL .

Bisher ist das, was ich habe:

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 

Dies scheint nicht überhaupt zu arbeiten, ha! Es funktionierte für eine Weile, außer dem ambitionierten Teil, dann fing ich an zu basteln, aber danach hörte es auf zu arbeiten.

Answer 1

Versuchen Sie, die Regel löschen und neu erstellen ...

-Code Getestet auf 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