outlook脚本，自动打开电子邮件中的链接

Question

我在我的电脑上使用Windows 10并且大多数时候都使用chrome来进行展望。我正在尝试获取一个自动打开电子邮件中收到的链接的脚本。我找到了vba脚本，但它们不起作用我不断收到错误。如果有人能帮我解决这个问题吗？

Answer 1

您可以使用MailItem类的HTMLBody属性查找其中的所有超链接。然后，您可以使用以下方法运行带有链接的Chrome：

Sub LaunchInChrome (url as String)
  Dim chromePath As String
  chromePath = """C:\Program Files\Google\Chrome\Application\chrome.exe"""
  Shell (chromePath & " -url " & url)
End Sub