在 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