Outlook VBA宏不修改电子邮件

Question

如果我收到来自特定地址的具有特定主题的电子邮件，我将运行以下脚本。目标是使用超链接标记电子邮件，该超链接将有助于该电子邮件的收件人在原始邮件正文中包含该链接。

Option Explicit
Sub Megatron(MyMail As MailItem)
Dim objOL As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim strID As String
Dim strLink As String
Dim strNewText As String
Dim strLinkText As String

'On Error Resume Next
Set objOL = Application
strID = MyMail.EntryID
Set MyMail = Application.Session.GetItemFromID(strID)
If Not MyMail Is Nothing Then
    Set objNS = objOL.Session
    MyMail.BodyFormat = olFormatHTML
    If MyMail.BodyFormat = olFormatHTML Then
    MsgBox ("set to html")
    End If

    strLink = "http://www.example.com"
strLinkText = "Click on this Example!"
strNewText = "<p><a href=" & Chr(34) & strLink & _
         Chr(34) & ">" & strLinkText & "</a></p>"
MyMail.HTMLBody = Replace(MyMail.HTMLBody, "</body>", _
                      strNewText, 1, 1, vbTextCompare)
    MyMail.Save     
    MsgBox ("Hyperlink appended!")
Else
MsgBox ("Failure!")
End If
End Sub

虽然我收到消息框，告诉我发生了正确的事件，但似乎没有进行任何实际更改（或者没有正确保存？）。

这是我第一次使用任何类型的编程。我已经阅读了一些专门针对 VB 的教程，但我对此很陌生。非常感谢任何帮助/指导！

Answer 1

这是需要使用Option Explicit 来要求显式变量声明的经典案例。使用它，因为您正在学习 VBA。还要避免使用On Error Resume Next 的习惯，因为这会忽略所有错误处理。

您可能没有意识到这一点，但您通过以下方式引用您的邮件：

• 我的邮件
• objItem
• objMsg
• objMail

注意以下两条命令

objMsg.HTMLBody

objMail.Save

在不存在的对象上执行。

去掉上面三个多余的引用：

Sub Megatron(MyMail As MailItem)
Dim objOL As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim objItem As Object
Dim strID As String
Dim strLink As String
Dim strNewText As String
Dim strLinkText As String
strLink = "http://www.example.com"
strLinkText = "Click on this Example!"
strNewText = "<p><a href=" & Chr(34) & strLink & _
         Chr(34) & ">" & strLinkText & "</a></p>"
MyMail.HTMLBody = Replace(MyMail.HTMLBody, "</body>", _
                      strNewText, 1, 1, vbTextCompare)
MyMail.Save
end Sub

你也不需要清理。