Переслать электронную почту со своим вложением в Outlook 2010

Question

Ниже приведен код (я вытащил из нескольких источников) в настоящее время, когда я получаю письмо с конкретными словами в строке темы, оно запускает скрипт, который работает ниже.

Этот код сохраняет строку темы, добавляет текст тела сообщения и форварда предполагаемому получателю.

Однако, если письмо, которое я получаю, имеет вложение, код больше не пересылает ничего. Мне нужно переслать вложение, которое было отправлено мне по электронной почте (только с использованием кода для добавления текста в тело электронной почты, иначе я бы просто установил правило).

КОД НИЖЕ:

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

Там нет необходимости использовать объект Explorer, в коде:

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 

Вы можете найти Getting Started with VBA in Outlook 2010 статью полезной.

Answer 2

Существует ненужное условие

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

, что может привести к переадресации, чтобы обойти.

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