如何在 Outlook 2010 中用超链接替换传入邮件正文中的文本？

Question

您是否尝试自动超链接到您的错误/缺陷跟踪应用程序中的错误？

最简单的做法就是修改发送电子邮件的软件来创建超链接本身......

如果您仍然想手动执行此操作，这里有一个我编写的快速指南，它似乎可以工作（经过非常轻微的测试，但它确实名义上完成了它的设计目的）。

步骤1：启用功能区中的“开发人员”选项卡

单击“选项”：点击选项

单击“自定义功能区”，然后单击“开发人员”复选框：

第2步：转到 VBA 并输入代码

单击“Visual Basic”：
转到 Visual Basic

双击此 Outlook 会话模块并粘贴如下代码：输入代码

现在，代码：

Option Explicit

Sub InsertHyperLink(MyMail As MailItem)
    Dim body As String, re As Object, match As Variant

    body = MyMail.body
    Set re = CreateObject("vbscript.regexp")
    re.Pattern = "#[0-9][0-9][0-9][0-9][0-9][0-9]"

    For Each match In re.Execute(body)
        body = Replace(body, match.Value, "http://example.com/bug.html?id=" & Right(match.Value, 6), 1, -1, vbTextCompare)
    Next

    MyMail.body = body
    MyMail.Save
End Sub

单击保存图标或按Ctrl+S。

步骤3：创建执行脚本的自定义规则。

转至管理规则和警报：前往管理规则和警报

单击“新建规则...”：

单击“对我收到的邮件应用规则”，然后单击下一步：

如果您只想对某些邮件运行规则，可以从此处的任何条件中进行选择。不必担心过滤正文中包含“#123456”的邮件；我们在代码中执行了此操作。因此，如果您愿意，只需过滤“发件人：”或主题即可。这是可选的。选择条件

选择“运行脚本”。点击底部方框中蓝色下划线的“脚本”文本。运行脚本操作

选择我们刚刚创建的脚本，由于对话太短，其名称可能会被截断，但没关系。

选择你的脚本

此时，您可以反复单击底部的“下一步”和“完成”，直到对话框消失；您就完成了。

现在尝试给自己写一封电子邮件（或者，如果您指定了自定义条件，则接收来自您期望的发件人或主题行的电子邮件）并插入一个数字，例如：

#123456

进入身体，然后发送。

当您收到邮件时，它应该将其作为 URL http://example.com/bug.html?id=123456（其中“123456”替换为您选择的 6 位数字）。

您可以通过修改代码中的 URL 字符串来自定义脚本代码以指向不同的 URL。您还可以使用它做更多奇特的事情，例如保留或删除数字，或做其他各种事情。

这个答案占用了我整个午餐时间，所以如果您认为它值得，请记得投票...如果您有任何困难或疑问，请在评论中告诉我。

很有帮助StackOverflow 问题，至少为我提供了实现此目的的可行性方法：在 Outlook 中附加主题标头（VBA）

Answer 1