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

私は答えを持っていますが、それは少し長くかかっています、私はもっと簡単な方法があると確信していますが、この方法は機能します：

あなたが言葉に言葉を持って行き、あなたが仕事でハイパーリンクを作成し、次にフォント、サイズなどを変更できるなら、あなたは彼らが言葉からOutlookにコピーでき、ハイパーリンクを保持します。：D