【入門編】【初心者向け】署名をVBAで動的に切り替える！時間帯や宛先に応じた挨拶文の自動挿入 – Outlook VBA解析バイブル

こんにちは！Outlook VBAの世界へようこそ。
マクロの記録ボタンを押すだけのステージから一歩進んで、「自分の手で自由自在にOutlookを操りたい」そう思っているあなたへ。

今回は、業務効率化の強力な武器になる「時間帯や宛先に応じた挨拶文・署名の動的切り替え」をマスターしていきましょう。

「いつも『お世話になっております』って手動で打つの面倒だな…」
「朝と夕方で挨拶を変えたいな…」

そんな日常のプチストレスを、たった数行のVBAコードで綺麗に解決してしまうテクニックを、プロの視点を交えながら優しく、そして深く解説していきます。ここをクリアすれば、あなたのOutlook VBAの基本はバッチリです！

—

なぜ「署名の動的切り替え」でつまずくのか？

Outlookには標準で署名機能がありますが、「社外の人には丁寧な挨拶」「社内の人にはフランクな挨拶」「午前と午後で時節の言葉を変える」といった複雑な条件分岐を自動で行うのは、標準機能だけでは少し荷が重いのです。

そこでVBAの出番ですが、ここで多くの初心者が「ある罠」にハマります。
それが、`Body`プロパティと`HTMLBody`プロパティの混同です。

初心者が陥る「文字化け・デザイン崩壊」の罠

Outlookのメール本文を操作する際、プレーンテキスト用の `Body` と、HTML形式用の `HTMLBody` があります。
現代のビジネスメールはHTML形式が主流ですが、ここにVBAで無理やりテキストをねじ込むと、改行が消えたり、フォントがバラバラになったり、既存の署名が消滅したりします。

【チーフアーキテクトからの極意】
> 「HTML形式のメールを制すには、HTMLのタグ構造（`` や `
`）を意識しつつ、既存の本文を『上書き』するのではなく『差し込む』または『構築する』発想を持つこと。」

今回は、最も安全かつ確実にHTMLメールを生成する手法を伝授します。

—

実装するマクロの全体像

今回作成するマクロの仕様は以下の通りです。

1. 新規メールを作成する。
2. 現在の「時間帯（午前・午後）」を判定する。
3. 宛先のドメイン（社内か社外か）を判定する。
4. 条件に応じた「挨拶文」と「専用の署名」を自動で組み立ててHTMLBodyに流し込む。

—

コピペで使える！実践VBAコード

以下のコードを、OutlookのVBAエディタ（`Alt` + `F11` で起動）の標準モジュールに貼り付けてください。

Sub CreateDynamicSignatureMail()
Dim objMail As MailItem
Dim greeting As String
Dim signature As String
Dim recipientEmail As String

‘ 1. 新規メールアイテムオブジェクトを作成
Set objMail = Application.CreateItem(olMailItem)

‘ 【重要】先に宛先を入れておくと、後から社内/社外の判定ができます
objMail.To = “sample@yourcompany.com” ‘ ←テスト用に書き換えてください

‘ 2. 時間帯に応じた挨拶文の動的生成
If Hour(Now) < 12 Then greeting = "おはようございます。
〇〇会社の〇〇です。”
Else
greeting = “お疲れ様です。
〇〇会社の〇〇です。”
End If

‘ 3. 宛先（社内・社外）に応じた署名の切り替え判定
recipientEmail = objMail.To

If InStr(recipientEmail, “@yourcompany.com”) > 0 Then
‘ 【社内向け署名】
signature = “

———————————-
” & _
“【社内用】システム部 太郎
” & _
“内線：1234
” & _
“———————————-”
Else
‘ 【社外向け署名】
signature = “

———————————-
” & _
“いつも大変お世話になっております。
” & _
“株式会社〇〇〇〇
” & _
“営業部　山田 太郎
” & _
“E-mail: yamada@yourcompany.com
” & _
“———————————-”
End If

‘ 4. HTMLBodyを使って本文を構築・流し込む
With objMail
.Subject = “【自動送信テスト】挨拶と署名の切り替え”

‘ HTML形式を指定し、挨拶文、本文のスペース、署名を結合して代入
.HTMLBody = “” & _
greeting & _
“

” & _
“ここに本文のメインメッセージが入ります。
” & _
“ご確認のほど、よろしくお願いいたします。” & _
signature & _
“”

‘ すぐに送信せず、画面に表示して確認する場合
.Display

‘ すぐに送信したい場合は .Display の代わりに .Send を使います
End With

‘ オブジェクトの解放（メモリリークを防ぐプロの作法）
Set objMail = Nothing

End Sub

—

コードのポイントを、エンジニアの視点から分かりやすく解説しますね。

① 時間の取得：`Hour(Now)`

`Hour(Now)` は、現在の「時（0〜23）」を数値で返すVBAの優秀な関数です。これを使うことで、「12時より前ならおはようございます」「それ以降ならお疲れ様です」という自動分岐が簡単に作れます。

② 文字列の検索：`InStr` 関数

`InStr(対象の文字列, 探したい文字列)` は、指定した文字列の中に特定のキーワードが含まれているかを「何文字目にあるか（数値）」で教えてくれます。
今回は、宛先のメールアドレスに自社のドメイン（`@yourcompany.com`）が含まれているかどうかで、社内・社外を自動判定しています。

③ HTMLタグの活用（`` と ``）

Outlookの `HTMLBody` を使う最大のメリットは、文字の太字化や色だけでなく、改行を正確にコントロールできることです。
VBAにおける改行は `vbCrLf` ですが、HTMLの世界では改行は `
` タグです。そのため、コード内では `
` を使って綺麗にレイアウトを整えています。

—

現場で役立つ！さらに応用するためのヒント

この基本形をマスターすれば、次は以下のような応用へ進むことができます。

• VIP顧客リストとの連携: 宛先が特定の重要顧客リスト（配列やExcelデータ）に含まれている場合のみ、特別な敬語や署名に切り替える。
• 曜日別の挨拶: `Weekday(Now)` を使って、「月曜日の初め用の挨拶」や「金曜日の終わりの挨拶」に自動で変化させる。

Outlook VBAは、あなたの右腕となって定型業務を秒速で終わらせてくれる最高の相棒です。
まずは今回のコードをコピペして、ご自身の環境で動かしてみてください。「あ、動いた！」という感動が、次の自動化への扉を開いてくれますよ。

それでは、快適なVBAライフを！