Question

Outlook VBA中的任何方法是否等同于Excel的FollowHyperlink？

我制作了一个Excel VBA宏，使用FollowHyperlink方法将剪贴板中的文本发布到特定网站。

我想用Outlook VBA做同样的事情，但我找不到方法。

任何与FollowHyperlink完全相同的方法都很好。

以下是将剪贴板内容发布到Google翻译的函数的Excel VBA版本。我想制作一个这个版本的Outlook版本。

Public Sub GoogleTranslate_2EN()
    Dim clipBoard As New DataObject
    With clipBoard
    On Error Resume Next
        .GetFromClipboard
        Dim targetText As String
        targetText = .GetText
    On Error GoTo 0
    End With

    Dim URL As String
    URL = "https://translate.google.co.jp/?hl=en&tab=wT#auto/en/" & targetText

    ThisWorkbook.FollowHyperlink Address:=URL, newWindow:=False, AddHistory:=True
End Sub

Answer 1

我决定使用Word.Application对象并使用Word对象中的“FollowHyperlink”。它奏效了！

现在，我可以在收到德国电子邮件后立即将其翻译成英文。： - ）

Public Sub ClipboardGoogleTranslate_2EN()

    Dim wdApp As Word.Application

    Set wdApp = CreateObject("Word.Application")

    wdApp.Run "ClipboardGoogleTranslate_2EN"

    wdApp.Quit

    Set wdApp = Nothing

End Sub

在Outlook VBA中是否有与“FollowHyperlink”等效的方法？

1 个答案: