VBAでOutlookメールにハイパーリンクを挿入する方法

皆さん、こんにちは。今日は、ExcelのVBAを使って、Outlookのメール本文にハイパーリンクを挿入する方法をご紹介します。パソコンやスマホの操作がちょっと苦手な方でも大丈夫です。ゆっくり一緒に学んでいきましょう。

はじめにVBAとOutlookの連携とは？
Outlookメールにハイパーリンクを挿入する手順
よくある質問や疑問
1. Q1. ハイパーリンクをクリックしても反応しない場合はどうすればいいですか？
2. Q2. ハイパーリンクをテキストではなくボタンのように表示することはできますか？
今すぐ解決したい！どうしたらいい？
まとめ

はじめにVBAとOutlookの連携とは？

Outlookのイメージ

まず、「VBAって何？」という方もいらっしゃるかもしれません。VBA（Visual Basic for Applications）は、ExcelなどのOffice製品を自動化するためのプログラム言語です。これを使うと、手作業で行っていた作業を自動化できるんです。例えば、毎日同じ内容のメールを送るとき、VBAを使えばボタン一つでメールを作成・送信できます。

Outlookメールにハイパーリンクを挿入する手順

では、具体的にOutlookのメール本文にハイパーリンクを挿入する方法を見ていきましょう。

1. Excelでメール内容を準備する

まず、Excelのシートに以下のような情報を入力します。

ここがポイント！

宛先（To）メールを送りたい相手のメールアドレス
件名（Subject）メールのタイトル
本文（Body）メールの内容
ハイパーリンク（Hyperlink）リンク先のURLやファイルのパス

例えば、セルに宛先、セルに件名、セルに本文、セルにハイパーリンクを入力します。

2. VBAコードを記述する

次に、VBAのコードを書いていきます。以下の手順で進めましょう。

Excelの「開発」タブをクリックし、「Visual Basic」を選択します。
表示されたウィンドウで、「挿入」から「標準モジュール」を選びます。
新しく表示されたウィンドウに、以下のコードを入力します。

vba

Sub CreateOutlookMail()

    Dim OutlookApp As Object

    Dim Mail As Object

    Dim MailBody As String

    Dim HyperlinkAddress As String

    Dim HyperlinkText As String
    ' Outlookを起動

    Set OutlookApp = CreateObject("Outlook.Application")

    Set Mail = OutlookApp.CreateItem(0)
    ' ハイパーリンクのアドレスと表示テキストを取得

    HyperlinkAddress = ThisWorkbook.Sheets(1).Range("").Value

    HyperlinkText = "こちらをクリック"
    ' メール本文を作成

    MailBody = ThisWorkbook.Sheets(1).Range("").Value & "
"

    MailBody = MailBody & "" & HyperlinkText & ""
    ' メールの設定

    With Mail

        .To = ThisWorkbook.Sheets(1).Range("").Value

        .Subject = ThisWorkbook.Sheets(1).Range("").Value

        .HTMLBody = MailBody

        .Display ' メールを表示（送信する場合は .Send に変更）

    End With