Excel から送信するメールの本文にハイパーリンクを埋め込むには、どうすればよいですか？

著者Siluvia変更日2025-08-11

多くの業務シーンでは、Excel から直接メールを送信する必要があり、そのメール本文にクリック可能なハイパーリンクを埋め込みたいことがあります。たとえば、受信者がメールから直接ファイルにアクセスしたり、ウェブサイトを閲覧したり、関連文書を開いたりできるようにするためです。こうした要望を実現するには、VBA による自動化、Excel の組み込みハイパーリンク機能、数式の活用など、いくつかの実用的な方法があります。それぞれの手法には独自の強みがあり、自動化を重視するケース、手動での細かなカスタマイズが必要なケース、スプレッドシートに基づいてリンクを動的に生成したいケースなど、さまざまなユースケースに対応できます。本ガイドでは、Excel から送信するメール本文にハイパーリンクを挿入するための複数のアプローチを紹介し、各手法のメリットと留意点を解説します。

VBA コードでハイパーリンクの作成をメール本文に挿入する
Excel の HYPERLINK 関数を使用して mailto ハイパーリンクを生成する

VBA コードでハイパーリンクの作成をメール本文に挿入する

この方法は、送信クライアントとして Outlook を使用し、メッセージ本文に直接ハイパーリンクを埋め込んだメールを送信したいユーザーに最適です。VBA を活用すれば、Excel 内からメールを自動で作成・カスタマイズし、任意のハイパーリンクや書式付きテキストを本文に簡単に挿入できます。一括送信やワークフローの自動化、あるいはワークシートの動的値をテンプレートテキストとともに含める必要があるシーンで、特にその効果を発揮します。

1。ワークブックを開き、Alt＋F11を押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

2。Visual Basic エディターで、挿入＞標準モジュールを選択し、次の VBA コードをモジュールウィンドウに貼り付けてください。

VBA コード：メール本文にハイパーリンクの作成を挿入する

Sub EmailHyperlink()
'updated by Extendoffice 20190815
Dim xOtl As Object
Dim xOtlMail As Object
Dim xStrBody As String
    xStrBody = "Hi there:" & "<br>" _
              & "Please click " & "<a href="/ & "http://www.extendoffice.com"">Here</a> to open the page" & "<br>" _
              & "Thank you."
    On Error Resume Next
    Set xOtl = CreateObject("Outlook.Application")
    Set xOtlMail = xOtl.CreateItem(olMailItem)
    With xOtlMail
        .To = "Email Address"
        .CC = "Email Address "
        .BCC = " Email Address "
        .Subject = "Subject line"
        .HTMLBody = .HTMLBody & xStrBody
        .Display
    End With
    Set xOtl = Nothing
    Set xOtlMail = Nothing
End Sub

注意事項：

ハイパーリンクと本文テキストを、xStrBody 行で要件に合わせて編集してください。ここでは HTML タグを使用しているため、リンク先と表示テキストを必ずご確認ください。
「メールアドレス」を、実際の受信者のメールアドレスに合わせて.To、.CC、および.BCCフィールドにそれぞれ置き換えてください。不要な場合は、CC/BCC フィールドを削除するかコメントアウトして省略できます。
「件名」を.Subject 行で更新し、意図したメールの件名が正しく反映されるようにしてください。
このマクロを実行する前に、Microsoft Outlook がインストール済みで、正常にアクセスできることをご確認ください。

コードをモジュールにコピーして貼り付けます

3。コードを編集後、F5キーを押して実行します。Outlook で新規メールウィンドウが開き、指定されたフィールドと本文にハイパーリンクが自動的に入力されます。内容を確認して、送信をクリックすれば完了です。

ヒント：Outlook でセキュリティプロンプトが表示された場合は、コード経由でのメール送信権限が付与されていることと、マクロのセキュリティ設定が実行を許可していることをご確認ください。最良の結果を得るには、大規模な配信を自動化する前に、必ずサンプルメッセージで事前にテストすることをおすすめします。

指定されたフィールドと、ハイパーリンクが本文内にリストされたメールが作成されます

メリット：カスタマイズ可能な書式付き HTML メールをサポートし、ハイパーリンクの埋め込みや自動送信が可能。定期的または一括での送信が必要なシーンで、大幅な時間節約を実現します。
デメリット：Outlook が必要で、マクロのセキュリティ設定を調整しなければならない場合があります。VBA に不慣れなユーザーには向いていません。

Excel の HYPERLINK 関数を使用して mailto ハイパーリンクを生成する

このアプローチでは、Excel のHYPERLINK 関数を使ってワークシート内にクリック可能なリンクを作成します。これらのリンクをクリックすると、デフォルトのメールクライアント（Outlook や Mail など）が起動し、あらかじめ入力されたメッセージが表示されます。受信者、件名、本文、さらには追加のリンクまで事前に設定できるため、メッセージ作成を瞬時にスタートできます。ただし、送信はユーザーが手動で行う必要があります。

これは、他者向けにテンプレートリンクを提供したい場合や、自動化せずに繰り返しのメール作業を効率化したい場合に最適です。ワークシートのデータと組み合わせれば、異なるユーザー向けの動的メールテンプレートも簡単に作成できます。

1。mailto ハイパーリンクを挿入したいセル（例：B2）を選択します。

=HYPERLINK("mailto:someone@example.com?subject=Test Subject&body=Please review this link: https://www.example.com","Send Email")

2。数式を入力して Enter キーを押すと、セルがクリック可能なリンクに変わります。このリンクをクリックすると、デフォルトのメールアプリケーションが起動し、「宛先」「件名」「本文」フィールドが数式の内容に基づいて自動的に入力されます。セル参照を使って数式を調整すれば、動的なメッセージにも柔軟に対応できます。

たとえば、受信者に A2 セルの値を、リンクに B2 セルの値を使用する場合：
```
=HYPERLINK("mailto:"&A2&"?subject=Hello&body=Please visit: "&B2, "Email User")
```

メリット：実装がスピーディで、プログラミングは一切不要。動的なコンテンツにも対応しており、データセットや大量のリンクを一度に柔軟に生成できます。
デメリット：送信は自動化されないため、ユーザーが各メールを確認し、手動で送信する必要があります。また、メール本文の長さは mailto プロトコルによって制限されるため、長い本文や書式付きテキストは切り捨てられたり、正しく表示されないことがあります。

KUTOOLS AI でExcel の魔法を解き放ちましょう

スマート実行：セル操作、データ分析、チャート作成をすべてシンプルなコマンドで実現します。
カスタム数式：ワークフローの効率化に役立つ、あなただけのカスタマイズ数式を生成します。
VBA コーディング：VBA コードを簡単に記述・実装できます。
数式の解釈：複雑な数式が簡単に理解できます。
テキスト翻訳：スプレッドシート内で言語の壁を乗り越えましょう！

AI 搭載のツールでExcel の機能をさらに強化しましょう。今すぐダウンロードして、これまでにない効率を体験してください！

Excel のセル値に基づいて自動的にメールを送信する
Excel で特定のセルの値に基づき、Outlook 経由で自動的にメールを送信したいことはありませんか？たとえば、ワークシートのセル D7 の値が200 を超えたときに、自動でメールを作成できます。この記事では、その課題をスピーディーに解決する VBA テクニックをご紹介します！

Excel でボタンをクリックするとメールを送信する
Excel のワークシート上でボタンをクリックして、Outlook 経由でメールを送信したいと思ったことはありませんか？この記事では、その方法をわかりやすく詳しく解説します！

Excel で期限日が過ぎたら自動でメールを送信する方法
列 C の期限日から7 日が経過した場合（現在の日付は2017/9/13）、列 A に指定された宛先に、列 B に記載された内容でリマインダーメールを自動送信します。この機能を実現するにはどうすればよいでしょうか？この記事でご紹介する方法がきっとお役に立ちます！

最高の Office 業務効率化ツール

🤖	KUTOOLS AI アシスタント：次に基づいてデータ分析を革新します：インテリジェント実行｜コード生成｜カスタム数式作成｜データ分析とチャート生成｜拡張機能呼び出し…
	人気の機能：検索・ハイライト、または重複をマーキング｜空白行を削除する｜データを失うことなく列の結合またはセルを｜数式を使用しない四捨五入...
	スーパー LOOKUP：複数条件 VLookup ｜複数値 VLookup ｜複数シート間 VLookup ｜ファジーマッチ....
	高度なドロップダウンリスト：ドロップダウンリストをすばやく作成｜連動型ドロップダウンリスト｜複数選択可能なドロップダウンリスト....
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示状態を切り替え｜範囲および列の比較...
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブックとシートマネージャー｜リソースライブラリ（オートテキスト）｜日付ピッカー｜ワークシートの統合｜暗号化／セルの復号化｜リストからメール送信｜スーパーフィルター｜特殊フィルタ（太字のフォントを持つセルをフィルタリング／斜体／取り消し線。。。）。。。
	トップ15 ツールセット：12 テキストツール（テキストの追加、特定の文字を削除、...）｜ 50+チャートタイプ（ガントチャート、...）｜ 40+実用的関数（誕生日に基づいて年齢を計算します、...）｜ 19 挿入ツール（QR コードを挿入、パスから画像を挿入、...）｜ 12 変換ツール（単語に変換する、為替レートの変換、...）｜ 7 結合と分割ツール（高度な行のマージ、セルの分割、...）｜さらに多数

Kutools はお好みの言語でご利用いただけます。英語、スペイン語、ドイツ語、フランス語、中国語、および40+の他の言語をサポートしています！

Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。

Kutools for Excel の詳細はこちら。。。無料ダウンロード。。。

Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします

Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
日々の生産性を50％も向上させ、毎日数百回ものマウスクリックを削減します！