Я собираю 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