“是否有任何等效方法？”；以下超链接“；在Outlook VBA中？

Outlook VBA中是否有与Excel的

FollowHyperlink

等效的方法

我制作了一个Excel VBA宏，使用

FollowHyperlink

方法将剪贴板中的文本发布到特定站点

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

任何只做与

FollowHyperlink

相同事情的方法都非常好

下面是Excel VBA版本的一个函数，用于将剪贴板的内容发布到Google translation。我想做一个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

---

我决定使用Word.Application对象并使用Word对象中的“FollowHyperlink”。成功了

现在我一收到德国的电子邮件，就可以用谷歌把它们翻译成英语。：-）

---

发布您当前的代码我们可能可以将其修改为outlook VBA可能与我在文章“使用VBA在默认浏览器中打开html页面”中尝试使用shell的代码重复。使用shell不会像下面的HYPERLINK那样进行HTML编码。

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