Outlook VBAでメール内のハイパーリンクを取得する方法

2025.02.282026.09.04

皆さん、こんにちは。今日は、Outlookで受信したメールの中にあるハイパーリンクを、VBAを使って取得する方法をご紹介します。パソコンやスマホがちょっと苦手な方でも大丈夫です。ゆっくり丁寧に説明していきますね。

はじめにVBAって何？
Outlookのメールからハイパーリンクを取り出すには？
1. 具体的な手順
よくある質問や疑問
1. Q1: コードを実行しても何も起こりません。どうすればいいですか？
2. Q2: ハイパーリンクが表示されません。なぜでしょうか？
まとめ

はじめにVBAって何？

Outlookのイメージ

まず、VBAとは「Visual Basic for Applications」の略で、Microsoftのアプリケーションを自動化するためのプログラミング言語です。難しそうに聞こえるかもしれませんが、基本を押さえれば便利に使いこなせますよ。

Outlookのメールからハイパーリンクを取り出すには？

例えば、友人から届いたメールに複数のリンクが貼られているとします。そのリンク先を一つ一つ手でコピーするのは大変ですよね。そんな時、VBAを使えば一度にすべてのリンクを取り出すことができます。

具体的な手順

1. Outlookを開く普段使っているOutlookを起動します。
2. VBAエディタを開くキーボードの「Alt」キーを押しながら「F11」キーを押して、VBAエディタを表示します。
3. 新しいモジュールを作成上部メニューの「挿入」から「標準モジュール」を選びます。
4. コードを入力以下のコードをコピーして、先ほど作成したモジュールに貼り付けます。

vba

Sub ExtractHyperlinksFromMail()

    Dim mail As MailItem

    Dim hyperlink As Object

    Dim links As String

    On Error Resume Next

    Set mail = Application.ActiveExplorer.Selection.Item(1)

    If mail Is Nothing Then

        MsgBox "メールが選択されていません。", vbExclamation

        Exit Sub

    End If

    For Each hyperlink In mail.GetInspector.WordEditor.Hyperlinks

        links = links & hyperlink.Address & vbCrLf

    Next

    If links = "" Then

        MsgBox "ハイパーリンクが見つかりませんでした。", vbInformation

    Else

        MsgBox "以下のハイパーリンクが見つかりました" & vbCrLf & links, vbInformation

    End If

End Sub

5. コードを実行コードを貼り付けたら、上部メニューの「実行」から「Sub/UserFormの実行」を選び、「ExtractHyperlinksFromMail」をダブルクリックします。

この手順で、選択したメール内のすべてのハイパーリンクを取得し、メッセージボックスで表示することができます。

よくある質問や疑問

Q1: コードを実行しても何も起こりません。どうすればいいですか？

まず、コードを実行する前に、取得したいハイパーリンクが含まれているメールを選択していることを確認してください。選択されていないと、コードは動作しません。

Q2: ハイパーリンクが表示されません。なぜでしょうか？

メールの形式がテキスト形式の場合、ハイパーリンクが正しく認識されないことがあります。HTML形式のメールであることを確認してください。

まとめ

いかがでしたか？OutlookのVBAを使って、メール内のハイパーリンクを簡単に取得する方法をご紹介しました。最初は少し難しく感じるかもしれませんが、慣れてくるととても便利に使えます。ぜひ試してみてくださいね。