Преобразование обычного текста в гиперссылку в Outlook [дубликат]

этот вопрос уже есть ответ здесь:

• как заменить текст в теле входящего сообщения гиперссылкой в Outlook 2010?
  
  1 ответ
  

Я собираю КП для моей компании в отношении некоторых инструментов мониторинга, которые мы используем. В рамках моего проекта мне нужно преобразовать части открытого текста электронной почты, отправленного мне в гиперссылка (я не могу отправлять электронные письма в 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