VBAでOutlookメールを作成し、ハイパーリンクを挿入する方法

2025.02.232026.09.04

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

VBAでOutlookメールを作成する基本手順
1. Outlookアプリケーションの起動とメールアイテムの作成
2. メールの基本情報を設定する
メール本文にハイパーリンクを挿入する方法
1. HTML形式のメール本文を作成する
Excelのセルからハイパーリンクを取得してメールに挿入する
1. セルの内容を取得してハイパーリンクを作成する
よくある質問や疑問
1. Q1: ハイパーリンクを挿入したのに、メールでリンクが機能しません。なぜでしょうか？
2. Q2: Excelのセルに複数のURLがある場合、すべてをメールに挿入できますか？
まとめ

VBAでOutlookメールを作成する基本手順

Outlookのイメージ

まず、ExcelのVBAを使ってOutlookのメールを作成する基本的な手順を見ていきましょう。これを覚えると、毎日のメール作成がとても楽になりますよ。

Outlookアプリケーションの起動とメールアイテムの作成

最初に、Outlookを操作するための準備をします。以下の手順で行います。

ExcelのVBAエディタを開きます。
新しいモジュールを挿入します。
以下のコードを入力します。

vba

Dim outlookApp As Object

Set outlookApp = CreateObject("Outlook.Application")

Dim mail As Object

Set mail = outlookApp.CreateItem(0)

このコードは、Outlookを起動し、新しいメールを作成するためのものです。

メールの基本情報を設定する

次に、メールの宛先や件名、本文を設定します。以下のコードを追加してください。

vba

With mail

    .To = "recipient@example.com" ' 宛先

    .Subject = "メールの件名" ' 件名

    .Body = "メールの本文です。" ' 本文

    .Display ' メール作成画面を表示

End With

これで、基本的なメールの作成ができます。

メール本文にハイパーリンクを挿入する方法

さて、次はメールの本文にハイパーリンクを挿入してみましょう。例えば、メールの中に「こちらをクリック」というリンクを作成して、クリックすると特定のウェブページが開くようにしたい場合です。

HTML形式のメール本文を作成する

ハイパーリンクを挿入するためには、メールの本文をHTML形式にする必要があります。以下の手順で行います。

先ほどのコードの`.Body`を`.HTMLBody`に変更します。
本文にHTMLのタグを使ってハイパーリンクを挿入します。

具体的には、以下のようにコードを書き換えます。

vba

With mail

    .To = "recipient@example.com"

    .Subject = "メールの件名"

    .HTMLBody = "メールの本文です。
こちらをクリック"

    .Display

End With

このコードでは、`こちらをクリック`というHTMLのタグを使って、「こちらをクリック」というテキストにリンクを設定しています。

Excelのセルからハイパーリンクを取得してメールに挿入する

さらに、Excelのセルに入力されたURLをメール本文にハイパーリンクとして挿入する方法もあります。これにより、Excel上で管理しているリンクを簡単にメールに組み込むことができます。

セルの内容を取得してハイパーリンクを作成する

例えば、ExcelのセルにURLが入力されているとします。このURLをメール本文にハイパーリンクとして挿入するには、以下のようにコードを書きます。

vba

Dim linkURL As String

linkURL = ThisWorkbook.Sheets("Sheet1").Range("").Value

With mail .To = "recipient@example.com" .Subject = "メールの件名" .HTMLBody = "以下のリンクをご確認ください。こちらをクリック" .Display End With

このコードでは、`linkURL`という変数にセルの値（URL）を代入し、それをメール本文のハイパーリンクとして使用しています。

よくある質問や疑問

Q1: ハイパーリンクを挿入したのに、メールでリンクが機能しません。なぜでしょうか？

メール本文をHTML形式に設定していますか？ハイパーリンクを機能させるためには、`.Body`ではなく`.HTMLBody`を使用して、本文をHTML形式にする必要があります。

Q2: Excelのセルに複数のURLがある場合、すべてをメールに挿入できますか？

はい、可能です。例えば、からまでのセルにURLがある場合、ループ処理を使ってすべてのURLをメール本文に追加できます。

vba

Dim i As Integer

Dim linkURL As String

Dim bodyContent As String
bodyContent = "以下のリンクをご確認ください。
"
For i = 1 To 5

    linkURL = ThisWorkbook.Sheets("Sheet1").Range("A" & i).Value

    bodyContent = bodyContent & "リンク" & i & "
"

Next i

With mail .To = "recipient@example.com" .Subject = "複数のリンク" .HTMLBody = bodyContent .Display End With

このコードでは、からまでの各セルのURLを順番に取得し、メール本文に「リンク1」「リンク2」…と表示しています。

まとめ

いかがでしたか？今回は、ExcelのVBAを使ってOutlookのメールを作成し、その中にハイパーリンクを挿入する方法をご紹介しました。これを活用すれば、日々のメール作成がより効率的になります。ぜひ試してみてくださいね。