Question

我对此很新，所以请保持温柔。我正在使用outlook 2010，我需要一个vba脚本来自动定位和操作电子邮件中的第一个超链接。我可以使用outlook邮箱规则来选择此脚本，但我无法编写它。任何帮助将不胜感激

我得到了这个，但它只打开电子邮件中的URL，而不是第一个超链接

Sub LaunchURL(itm As 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

Private Sub test()
    Dim currItem As MailItem
    Set currItem = ActiveInspector.currentItem
    LaunchURL currItem
End Sub

Answer 1

LaunchURL代码专门用于URL可见的地方，如下所示 VBA script for outlook to automatically open URLs from message body in a web browser, for all incoming mails，例如纯文本邮件。

隐藏链接的位置，您可以选择文字，将其带到有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

VBA脚本自动操作电子邮件中的第一个超链接

1 个答案: