こんにちは！Outlook VBAの世界へようこそ。
マクロの記録ボタンを押すだけの日常から一歩踏み出し、自分の手で業務をコントロールする楽しさを知りたいあなたへ。今日は、現場で即戦力となる「時間帯（午前・午後）に応じて署名を自動で切り替えるVBAロジック」を伝授します。
「朝は『おはようございます』、午後は『お疲れ様です』と手動で書き換えるのが地味に面倒…」
そんな小さなストレスを、わずか十数行のコードでスマートに解決していきましょう。ここをクリアすれば、Outlook VBAの基本構造はバッチリです。一緒にマスターしていきましょう！
—
1. なぜ「手動」ではなく「VBA」なのか？
ビジネスメールの基本は、時間帯に合わせた挨拶文から始まります。しかし、午前中に作成した下書きをうっかり午後になってから送信してしまい、「午前中なのに『お疲れ様です』になってしまった…」「午後なのに『おはようございます』を送ってしまった…」というヒヤリハットを経験したことはありませんか？
これを人間の注意力に頼るのではなく、Outlookを開いた（またはメール作成画面を開いた）その瞬間の「現在時刻」をプログラムに判定させ、自動で適切な挨拶と署名を差し込む。これこそが、業務自動化の第一歩であり、プログラミングの本質なのです。
—
2. 実装の全体像（エディタを開こう）
まずは、VBAを書くための魔法のショートカットキーを覚えていますか？
Outlookのメイン画面で `[Alt] + [F11]` キーを押してください。見慣れない白いエディタ画面（VBE画面）が立ち上がりましたね。これがあなたの新しい作業部屋です。
次に、メニューの [挿入] ＞ [標準モジュール] をクリックして、コードを書くためのまっさらなキャンバスを用意しましょう。
—
3. 【コピペOK】時間帯自動判定・署名挿入コード
以下のコードを、先ほど作成した標準モジュールにそのままコピー＆ペーストしてください。
Sub InsertTimeBasedSignature()
Dim objMail As MailItem
Dim currentHour As Integer
Dim greeting As String
Dim originalBody As String
‘ 1. 現在アクティブな（今開いている）メールアイテムを取得する
On Error Resume Next
Set objMail = ActiveInspector.CurrentItem
On Error GoTo 0
‘ 万が一、メール編集画面以外で実行された場合のガード処理
If objMail Is Nothing Then
MsgBox “メールの作成画面を開いてから実行してください。”, vbExclamation, “エラー”
Exit Sub
End If
‘ 2. 現在の「時（Hour）」を取得する（0〜23の数値）
currentHour = Hour(Now)
‘ 3. 時間帯に応じて挨拶を動的に切り替える
‘ ※今回は 12:00 を境に午前と午後を判定します
If currentHour < 12 Then
greeting = "おはようございます。" & vbCrLf & "〇〇株式会社の[あなたの名前]です。" & vbCrLf & vbCrLf
Else
greeting = "お疲れ様です。" & vbCrLf & "〇〇株式会社の[あなたの名前]です。" & vbCrLf & vbCrLf
> End If
‘ 4. 既存の本文の先頭に、挨拶文を自動挿入する
originalBody = objMail.Body
objMail.Body = greeting & originalBody
‘ 後片付け
Set objMail = Nothing
End Sub
—
4. コードの解説：ここが分かれば怖くない！
初心者の方に向けて、このコードの重要なポイントを3つに分けて優しく解説します。
① 今、開いているメールを特定する
Set objMail = ActiveInspector.CurrentItem
- `ActiveInspector` とは、「今あなたの画面に映し出されているウィンドウ（＝メール作成画面）」を指します。
- `CurrentItem` で、その画面で編集している「メールそのもの」をオブジェクトとして変数 `objMail` に格納しています。これがOutlook VBA操作の基本中の基本です。
② 時間を取り出す `Hour(Now)`
currentHour = Hour(Now)
- `Now` は「現在の日時」を取得します。
- `Hour()` で囲むことで、その中から「時間（0〜23）」だけを抜き出します。例えば、午後2時半なら `14` という数字が `currentHour` に代入されます。非常にシンプルですね。
③ 本文を書き換える
objMail.Body = greeting & originalBody
- `vbCrLf` という見慣れない記号は、VBAにおける「改行（Enterキーを押すこと）」を意味します。
- 既存の本文（`originalBody`）のつま先に、自動生成した挨拶（`greeting`）をくっつけて、上書きしています。
—
5. 初心者がハマりやすい「エラー」と対策
プログラミングを学び始めると、必ずいくつかの壁にぶつかります。よくあるトラブルシューティングをまとめておきました。
- エラー：「オブジェクト変数または With ブロック変数が見つかりません。」
- 原因: メールの編集画面を開いていない状態でマクロを実行したときに起きます。
- 対策: 上記のコードには `If objMail Is Nothing Then` という「ガード処理（エラーを防ぐ盾）」を入れてあるので安心ですが、必ず「新規メール作成画面」を出してからマクロを動かすように習慣づけましょう。
- セキュリティの警告が出てマクロが動かない
- 原因: Outlookのセキュリティ設定が厳しいため、野良マクロの実行がブロックされています。
- 対策: `[ファイル] ＞ [オプション] ＞ [セキュリティ センター] ＞ [セキュリティ センターの設定] ＞ [マクロの設定]` から、「すべてのマクロを有効にする」（検証環境の場合）または「デジタル署名されたマクロ…」等に設定を変更してください。
—
6. さらに実用的にするアレンジのヒント
このコードをさらに実務で使い倒すために、次のステップも紹介しておきます。
1. クイックアクセスタイールバーへの登録
メッセージ作成画面の上のほうにある「クイック アクセス ツールバー」にこのマクロを登録しておけば、メールを書くときにワンクリックで時間に応じた挨拶が挿入されます。
2. HTMLメール（リッチテキスト）への対応
今回はプレーンテキスト用の `.Body` を使いましたが、HTML形式で綺麗に署名を入れたい場合は `.HTMLBody` プロパティを操作するように応用できます。
—
おわりに
いかがでしたか？ 「時刻を読み取って、条件分岐させ、メールを書き換える」。たったこれだけのことで、毎日のルーティンワークが少しだけ知的でスマートなものに変わります。
ここをクリアできれば、Outlook VBAの基本的な「オブジェクトの取得・操作・条件分岐」はもうあなたのものです。ぜひご自身の環境で試して、快適なメール作成ライフを手に入れてくださいね。応援しています！
