2

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

-1

У меня есть ответ, но он немного затянут, я уверен, что есть более простой способ, но этот способ работает:

Если у вас есть слово в слово, и вы можете сделать гиперссылку в работе, а затем изменить шрифт, размер и т.д., Вы можете скопировать их из слова в Outlook, и он сохранит гиперссылку. :D

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .