Weiterleiten von E-Mail mit seiner Anlage in Outlook 2010

Question

Der untenstehende Code (ich zog aus mehreren Quellen) funktioniert jetzt, dass wenn ich eine E-Mail mit bestimmten Wörtern in der Betreffzeile erhält es ein Skript auslöst, das unten läuft.

Dieser Code behält dann die Betreffzeile bei, fügt dem Nachrichtentext den Nachrichtentext und die Weiterleitungen dem beabsichtigten Empfänger hinzu.

Wenn jedoch die E-Mail, die ich erhalte, einen Anhang hat, leitet der Code nichts mehr weiter. Ich brauche es, um den Anhang weiterzuleiten, der mir auch per E-Mail geschickt wurde (nur mit dem Code, um Text zum Text der E-Mail hinzuzufügen, sonst würde ich einfach eine Regel setzen).

CODE UNTEN:

Sub ForwardEmail(item As Outlook.MailItem) 
Dim oExplorer As Outlook.Explorer 
Dim oMail As MailItem 
Set oExplorer = Application.ActiveExplorer 

On Error GoTo Release 

If oExplorer.Selection.item(1).Class = olMail Then 
Set oMail = item.Forward 
oMail.Subject = oMail.Subject 
oMail.HTMLBody = "Have a nice day." & vbCrLf & oMail.HTMLBody 
oMail.Recipients.Add "email address here" 


oMail.Save 
oMail.Send 

End If 
Release: 
Set oMail = Nothing 
Set oExplorer = Nothing 
End Sub 

Answer 1

Es gibt keine Notwendigkeit, das Explorer-Objekt im Code zu verwenden:

Sub ForwardEmail(item As Outlook.MailItem) 
    Dim oMail As MailItem  

    On Error GoTo Release 

    If item.Class = olMail Then 
    Set oMail = item.Forward 
    oMail.Subject = oMail.Subject 
    oMail.HTMLBody = "Have a nice day." & vbCrLf & oMail.HTMLBody 
    oMail.Recipients.Add "email address here" 

    oMail.Save 
    oMail.Send 
    End If 
Release: 
    Set oMail = Nothing 
    Set oExplorer = Nothing 
End Sub 

Sie finden die Getting Started with VBA in Outlook 2010 Artikel hilfreich.

Answer 2

Es ist eine unnötige Bedingung

If oExplorer.Selection.item(1).Class = olMail Then 

, die die Weiterleitung umgangen werden verursachen kann.

Sub ForwardEmail(item As Outlook.MailItem) 
' Dim oExplorer As Outlook.Explorer 
Dim oMail As MailItem 
' Set oExplorer = Application.ActiveExplorer 

On Error GoTo Release 

' If oExplorer.Selection.item(1).Class = olMail Then 

Set oMail = item.Forward 
oMail.Subject = oMail.Subject 
oMail.HTMLBody = "Have a nice day." & vbCrLf & oMail.HTMLBody 
oMail.Recipients.Add "email address here" 

' oMail.Save 
oMail.Send 

' End If 

Release: 
Set oMail = Nothing 
' Set oExplorer = Nothing 
End Sub