Email chuyển tiếp có phần đính kèm trong Outlook 2010

Question

Mã dưới đây (tôi lấy từ một số nguồn) hiện hoạt động khi tôi nhận được email có các từ cụ thể trong dòng tiêu đề, nó kích hoạt tập lệnh chạy bên dưới.

Mã này sau đó giữ dòng tiêu đề, thêm văn bản nội dung thư và chuyển tiếp đến người nhận dự định.

Tuy nhiên, nếu email tôi nhận được có tệp đính kèm, mã không còn chuyển tiếp bất kỳ thứ gì nữa. Tôi cần nó để chuyển tiếp tệp đính kèm đã được gửi qua email cho tôi (chỉ sử dụng mã để thêm văn bản vào nội dung email nếu không tôi sẽ chỉ đặt quy tắc).

mã bên dưới:

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

Không có nhu cầu sử dụng các đối tượng Explorer trong các mã:

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 

Bạn có thể tìm thấy bài viết hữu ích Getting Started with VBA in Outlook 2010.

Answer 2

Có một điều kiện cần thiết

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

có thể gây ra sự chuyển tiếp để được bỏ qua.

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