Inoltra posta elettronica con il relativo allegato in Outlook 2010

Question

Il codice seguente (ho ottenuto da diverse fonti) ora funziona nel senso che quando si riceve un'e-mail con parole specifiche nella riga dell'oggetto si attiva uno script che esegue quanto segue.

Questo codice mantiene quindi la riga dell'oggetto, aggiunge il testo del corpo del messaggio e gli inoltro al destinatario previsto.

Tuttavia, se l'email che ricevo ha un allegato il codice non inoltra più nulla. Ne ho bisogno per inoltrare l'allegato che mi è stato inviato via email (solo usando il codice per aggiungere del testo al corpo dell'e-mail altrimenti avrei semplicemente impostato una regola).

codice qui sotto:

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

Non v'è alcuna necessità di utilizzare l'oggetto Explorer nel codice:

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 

Si può trovare l'articolo Getting Started with VBA in Outlook 2010 utile.

Answer 2

C'è una condizione non necessaria

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

che può causare l'inoltro di essere bypassato.

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