如何在Outlook 2013上收到电子邮件时启动URL

时间:2016-01-18 11:41:49

标签: vba email outlook

我想在电子邮件到达Outlook时启动一个URL。 网址是:

  

xyz.host/shared/pdf/DisplayPdf.php?Reservation="6diggitNumber"&ForcePrint=true"

是否有可能在邮件到达时使用邮件中包含的6位数字来调用URL?

Sub LaunchURL(Item As Outlook.MailItem)
    Shell ("C:\Program Files\Internet Explorer\IEXPLORE.EXE" & " " & Item.Body)
End Sub

不会为我工作

1 个答案:

答案 0 :(得分:0)

几乎就在那里,只需稍微改变你的字符串连接:

Sub LaunchURL(Item As Outlook.MailItem)
    Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE ""xyz.host/shared/pdf/DisplayPdf.php?Reservation=""" & Item.Body & """&ForcePrint=true"
End Sub

当您Shell Internet Explorer时,您可以将URL作为参数传递。你只需要为URL构建字符串并将其作为参数传递,如上例所示。

根据您的示例,我假设您希望电子邮件正文中的预订号周围有语音标记",否则(我建议您使用{{3}时可能就是这种情况) } $ _GET方法)然后删除它们 - 看起来像这样:

Sub LaunchURL(Item As Outlook.MailItem)
    Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE ""xyz.host/shared/pdf/DisplayPdf.php?Reservation=" & Item.Body & "&ForcePrint=true"
End Sub