是否可以从特定的发件人在电子邮件正文中启动超链接?

目标:我的目标是让OUTLOOK根据关键字过滤传入消息(这可以通过规则来完成),但是我需要运行一个脚本来自动打开邮件中的链接。

configuration:我们的后端系统有一个button,说明“需要注意”,这将发送一个电子邮件,如下所示Outlook 2013要打开当前页面(铬)作为一个新的标签或在新窗口中,只要它打开

链接已被更改为安全

根据发布要求删除“HTTP:”

SUBJECT :(总是包含除客户号码外的相同单词)

Attn – 需要技术支持:LOC-12345 / Rep ID:mike / Tech:jacob /状态:新请求/服务:标准服务

BODY(总是包含除正文和超链接中的客户号码之外的相同单词)

Attn – 需要支持:LOC-12345(客户号码)

要查看帐户,请点击以下链接://support.bo.ca/login.aspx?url=view_rfq.aspx?rfq_ID=12345

总结:可能看起来像我只是懒惰,不想点击链接。 但情况是,我们有20多个不同的电子邮件主题的行动,我有代码设置提醒和移动到特定的文件夹,但这将是巨大的,因为只要一个客户代表点击“需要注意”button,它会发送发送给指定的支持组的电子邮件,并在屏幕上popup。 我们已经在我们的电话系统已经到位,通过识别来电显示和匹配我们的数据库的数量,如果有一个点击它会自动打开客户页面。

这是我find的代码,但我不明白如何使它工作,我想也许有一个代码,将自动生成一个部分的超链接,拉客户ID和input到部分超链接,并打开页? 例如使用SplitWord条目从部分链接开始replace一定数量的字符并执行它?

(部分链接)//support.bo.ca/login.aspx?url=view_rfq.aspx? rfq_ID =(客户ID)12345(完整链接)//support.bo.ca/login.aspx?url=view_rfq.aspx? rfq_ID = 12345

Private WithEvents myOlItems As Outlook.Items 

Private Sub Application_Startup()Dim olApp As Outlook.Application Dim objNS As Outlook.NameSpace Set olApp = Outlook.Application Set objNS = olApp.GetNamespace(“MAPI”)Set myOlItems = objNS.GetDefaultFolder(olFolderInbox).Items End Sub

Private Sub myOlItems_ItemAdd(ByVal item As Object)

在错误转到ErrorHandler

昏暗消息为Outlook.MailItem

  If TypeName(item) = "MailItem" Then Set Msg = item LaunchURL (item) For Each SplitLine In bodyStringSplitLine If InStr(SplitLine, "http://") > 0 Then If InStr(SplitLine, "SomeSite") > 0 Then 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 End If End If Next End If ProgramExit: Exit Sub ErrorHandler: MsgBox Err.Number & " - " & Err.Description Resume ProgramExit End Sub 

感谢Jacob的任何反馈