☰

在 Outlook 中将纯文本转换为超链接

tag-icon • tag-icon microsoft-outlook vba
在 Outlook 中将纯文本转换为超链接

我正在为公司制定一个关于我们使用的某些监控工具的 POC。作为项目的一部分，我需要将发送给我的纯文本电子邮件的部分内容转换为超链接（我无法从工具本身以 HTML 格式发送电子邮件）。

我几乎没有使用 VB 的经验，但这是我在阅读其他各种帖子后总结出来的。我意识到它根本不起作用，但我认为它可能是一个基准，让其他人更好地了解我想要实现的目标并提供反馈。本质上，我试图在电子邮件中搜索一个字符串，并将其转换为指向与 URL 相同的字符串的更简洁的超链接。

如果您有任何指点，我需要一些帮助来清理我所拥有的东西。

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 = "^https\..*Operation>$"

For Each match In re.Execute(body)
    body = Replace(body, match.Value, "<a href=""" & Right(match.Value) & """>Open Link</a>", 1, -1, vbTextCompare)
Next

MyMail.body = body
MyMail.Save
End Sub

答案1

我有一个答案，但有点冗长，我相信有一个更简单的方法，但这种方法有效：

如果您有 word，请进入 word 并使超链接起作用，然后更改字体、大小等，您可以将它们从 word 复制到 Outlook，它将保留超链接。:D

相关内容