Question

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 good day." & vbCrLf & oMail.HTMLBody
    oMail.Recipients.Add "abc@xyz.com"
End If

Release:
Set oMail = Nothing
End Sub

嗨，我正在尝试使用excel中的vba转发outlook中的电子邮件。我在设置oMail = item.Forward 行中收到错误。我看到一个Outlook窗口，但它也会出现一个错误，说明＆＃34;应用程序定义或对象定义的错误＆＃34; 。

我可以使用vba撰写电子邮件，但不能转发。我看到一个前进窗口，但代码在上面的行停止，我无法添加主题和其他东西。

感谢。

Answer 1

在调试代码时尝试禁用错误处理程序。

MSDN Turning Off Error Handling

Option Explicit
Sub ForwardEmail(olItem As Outlook.MailItem)
    If olItem.class = olMail Then
        '// Forward Email
        Set olItem = olItem.Forward
        '// Append The Subject
        olItem.Subject = "BlaBla " & olItem.Subject
        '//  Add Recipient
        olItem.Recipients.Add "Om3r <i@me.com>"
        '// add msg
        olItem.HTMLBody = "Have a good day" + olItem.HTMLBody
        '// Dispaly or use .Send
        olItem.Display
'        olItem.Send
    End If
End Sub

转发电子邮件时出错

1 个答案: