Excel VBAでOutlookの署名を自動挿入する方法

2025.03.032026.01.27

皆さん、こんにちは。今日は、ExcelのVBAを使ってOutlookのメールを作成する際に、自動的に署名を挿入する方法をご紹介します。これをマスターすれば、日々のメール作成がぐっと楽になりますよ。

Excel VBAでOutlookメールを作成する基本
Outlookの署名をメールに自動挿入する方法
署名を挿入する際の注意点
よくある質問や疑問
1. 署名が自動的に挿入されない場合はどうすればよいですか？
2. 署名に画像を含めるにはどうすればよいですか？
まとめ

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

Outlookのイメージ

まず、ExcelのVBAを使ってOutlookのメールを作成する基本的な方法を見てみましょう。以下の手順で進めていきます。

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

vba

Sub CreateOutlookMail()

    Dim OutlookApp As Object

    Dim MailItem As Object
    ' Outlookアプリケーションを起動

    Set OutlookApp = CreateObject("Outlook.Application")

    ' 新しいメールアイテムを作成

    Set MailItem = OutlookApp.CreateItem(0)
    With MailItem

        .To = "example@example.com"

        .Subject = "テストメール"

        .Body = "これはテストメールです。"

        .Display ' メールを表示

    End With

' オブジェクトを解放 Set MailItem = Nothing Set OutlookApp = Nothing End Sub

このコードを実行すると、Outlookで新しいメールが作成され、指定した宛先、件名、本文が入力された状態で表示されます。

Outlookの署名をメールに自動挿入する方法

次に、作成したメールにOutlookの既定の署名を自動的に挿入する方法をご紹介します。Outlookでは、新しいメールを表示すると自動的に署名が挿入される仕組みを利用します。

vba

Sub CreateOutlookMailWithSignature()

    Dim OutlookApp As Object

    Dim MailItem As Object

    Dim Signature As String
    ' Outlookアプリケーションを起動

    Set OutlookApp = CreateObject("Outlook.Application")

    ' 新しいメールアイテムを作成

    Set MailItem = OutlookApp.CreateItem(0)
    With MailItem

        .Display ' メールを表示して署名を挿入

        Signature = .HTMLBody ' 署名を取得

        .To = "example@example.com"

        .Subject = "テストメール"

        .HTMLBody = "これはテストメールです。
" & Signature ' 本文に署名を追加

        .Display ' メールを再表示

    End With