【入門編】【中級者向け】メール本文内のURLを正規表現で検出し、クリック可能なHTMLリンクタグに自動置換する処理 – Outlook VBA解析バイブル

ここで登場するのが、VBScript.RegExp（正規表現エンジン）です。これを使うことで、文字列の海から一瞬でURLを泳ぎ出し、美しくHTMLリンクへと化粧直しさせることができるのです。

—

全体像：実装するVBAコード

まずは、開発現場でそのままコピペして動かせる実用コードを提示します。
OutlookのVBAエディタ（`Alt + F11`）を開き、標準モジュールに貼り付けてみてください。

Option Explicit

‘ 1. Outlookアプリケーションとメールアイテムの生成
Set olApp = CreateObject(“Outlook.Application”)
Set olMail = olApp.CreateItem(0) ‘ 0 = olMailItem

‘ 2. テスト用の本文を作成（あえてプレーンなURLを含める）
rawBody & “お疲れ様です。本日の進捗報告です。” & vbCrLf & vbCrLf & _
“詳細なドキュメントはこちらをご確認ください。” & vbCrLf & _
“https://example.com/docs/report2023?id=999” & vbCrLf & vbCrLf & _
“以上、よろしくお願いいたします。”

‘ 3. 正規表現を使ってURLをHTMLリンクに変換
convertedBody = ConvertUrlToHtmlLink(rawBody)

‘ 4. メールのプロパティを設定
With olMail
.To = “sample@example.com”
.Subject = “【自動送信】URL自動リンクテストメール”

‘ ★重要：HTMLBodyプロパティを使用する（Bodyではない点に注意！）
.HTMLBody = “” & _
Replace(convertedBody, vbCrLf, “
“) & _
“”

‘ 画面にメールを表示（送信前に確認したい場合は .Display、即座に送るなら .Send）
.Display
End With

‘ オブジェクトの解放（メモリリークを防ぐプロの作法）
Set olMail = Nothing
Set olApp = Nothing

MsgBox “URLの自動リンク化が完了しました！”, vbInformation, “完了”
End Sub

‘ ====================================================================
‘ 補助関数: 正規表現によるURL置換エンジン
‘ ====================================================================
Function ConvertUrlToHtmlLink(ByVal targetText As String) As VarianAs String
Dim regEx As Object
Dim matches As Object
Dim match As Object
Dim urlPattern As String

‘ VBScriptの正規表現オブジェクトを生成
Set regEx = CreateObject(“VBScript.RegExp”)

‘ URLを検出するための正規表現パターン（httpから始まり、スペースや改行の手前までをキャッチ）
urlPattern = “https?://[\w/:%#\$&\?\(\)~\.=\+\-\_]+”

With regEx
.Pattern = urlPattern
.IgnoreCase = True Fals ‘ 大文字小文字を区別しない
.Global = True ‘ マッチしたすべてを置換対象にする
End With

2. 魔法の正規表現パターン

`https?://[\w/:%#\$&\?\(\)~\.=\+\-\_]+`
この正規表現は、`http://` または `https://` から始まり、URLによく使われる英数字や記号の連続を根こそぎキャッチします。
特に `.Global = True` の設定が重要です。これを忘れると、本文中にいくつURLがあっても最初の1個しかリンクに変換されません。

3. 置換文字列のトリック：`$&`