Outlookでプレーンテキストをハイパーリンクに変換する[複製]
この質問にはすでに答えがあります: Outlook 2010で受信メッセージの本文のテキストをハイパーリンクに置き換える方法 1つの答え 私たちが使用するいくつかの監視ツールに関して、会社の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, …