单击 Outlook 电子邮件正文中超链接的锚文本答案

【问题标题】：Clicking Anchor text of hyperlink in outlook email body单击 Outlook 电子邮件正文中超链接的锚文本
【发布时间】：2014-08-08 19:26:06
【问题描述】：

我找到了这个脚本，它在 Outlook 电子邮件正文中搜索超链接并打开它。问题是收到的电子邮件有锚文本而不是整个超链接，我不能让它点击锚文本。任何建议。非常感谢

Sub LaunchURL(Itm As Outlook.MailItem)

    Dim bodyString As String

    Dim bodyStringSplitLine

    Dim bodyStringSplitWord

    Dim SplitLine

    Dim SplitWord 

    bodyString = Itm.Body

    bodyStringSplitLine = Split(bodyString, vbCrLf)

    For Each SplitLine In bodyStringSplitLine

        bodyStringSplitWord = Split(SplitLine, " ")

        For Each SplitWord In bodyStringSplitWord

            If Left(SplitWord, 7) = "http://" Then

                Shell ("C:\Program Files\Internet Explorer\IEXPLORE.EXE" & " " & SplitWord)

            End If

        Next

    Next

    Set Itm = Nothing

End Sub

【问题讨论】：

标签： vba outlook

【解决方案1】：

LaunchURL 代码专门用于 URL 可见的地方，例如在纯文本邮件中。

在隐藏链接的地方，您可以选择文本并将其带到有 Hyperlink.Follow Method 的 Word 中

编辑：发现不使用 Word 更简单。

Public Sub FollowLinkAddress(itm As Outlook.MailItem)

Dim oDoc As Object
Dim h

Set itm = ActiveInspector.CurrentItem

If itm.GetInspector.EditorType = olEditorWord Then

    Set oDoc = itm.GetInspector.WordEditor

    For Each h In oDoc.Hyperlinks
        h.Follow
    Next

End If

End Sub

【讨论】：