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

ExcelでVBAコードを使用してメールを送信しようとしたことはありますか？また、メール送信時に本文にハイパーリンクを追加するにはどうすればよいですか？この記事では、この問題を解決する方法を紹介します。

VBAコードを使用してメール本文にハイパーリンクを挿入する

VBAコードを使用してメール本文にハイパーリンクを挿入する

以下のVBAコードを使用すると、Excelからメールを送信し、メール本文に特定のハイパーリンクを挿入できます。次の手順に従ってください。

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

2. Microsoft Visual Basic for Applicationsウィンドウで、挿入 > モジュールをクリックし、以下の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行の本文とハイパーリンクを変更してください。
• メールアドレス”を、実際にメールを送信するメールアドレスに置き換えてください。.To、.CC、および.BCC行の「メールアドレス」を、実際にメールを送信するメールアドレスに置き換えてください。CCやBCCが必要ない場合は、それらの行をコード全体から削除するか、行の前にシングルクォートを追加して無効化します（例: 'CC =”メールアドレス”）。
• 件名」を自分のメール件名に置き換えてください。

3. F5キーを押してコードを実行します。その後、指定されたフィールドとハイパーリンク付きの本文を持つメールが作成されますので、送信ボタンをクリックしてメールを送信します。

Kutools AIでExcelの魔法を解き放つ

• スマート実行: セル操作、データ分析、グラフ作成を簡単なコマンドで行います。
• カスタム数式: ワークフローを合理化するための独自の数式を生成します。
• VBAコーディング: 簡単にVBAコードを作成し実装します。
• 数式の解釈: 複雑な数式を簡単に理解できます。
• テキスト翻訳: スプレッドシート内の言語障壁を取り除きます。

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

関連記事