こんにちは。業務自動化の深淵へようこそ。
「マクロの記録」ボタンを押すだけの世界から一歩踏み出し、自分の手でOutlookを操る。その第一歩として、今回は「挨拶文の自動制御」という、非常に実用的かつ本質的なテーマを扱います。
なぜ、ただの挨拶文が重要なのか？ それは、「オブジェクトのプロパティを動的に操作する」という自動化の極意が、この数行にすべて詰まっているからです。
さあ、退屈な定型文とは今日でお別れしましょう。
—
1. なぜ「HTMLBody」を操作するのか？
初心者が陥りやすい罠として、`.Body`プロパティ（テキスト形式）をいじろうとすることがあります。しかし、現代のビジネスメールはHTML形式が標準です。
Outlookのメールは、`HTMLBody`という文字列の中にHTMLタグ（`
`や`
`など）が埋め込まれた構造をしています。つまり、「挨拶文を書き換える」とは、HTMLコードの特定の位置をプログラムで差し替えることを指します。
今回のロジックの核
1. 現在時刻（`Now`）を取得する。
2. 時間帯に応じて挨拶文（「おはようございます」or「お疲れ様です」）を決定する。
3. 新規メールを作成し、署名の直前にその挨拶文をHTMLとして流し込む。
—
2. 実装：スマート挨拶文自動挿入マクロ
以下のコードをVBAエディタ（Alt + F11）に貼り付けてください。
Sub CreateSmartEmail()
Dim olApp As Outlook.Application
Dim mail As MailItem
Dim greeting As String
Dim currentHour As Integer
‘ 1. Outlookアプリケーションのインスタンスを取得
Set olApp = Outlook.Application
Set mail = olApp.CreateItem(olMailItem)
‘ 2. 現在時刻から挨拶を決定
currentHour = Hour(Now)
If currentHour < 11 Then
greeting = "おはようございます。"
Else
greeting = "お疲れ様です。"
End If
' 3. メールの構成
With mail
.Display ' メールを表示（これを行わないと署名が自動挿入されない場合があります）
' 現在のHTMLBodyに挨拶文を追加（先頭に挿入）
'
はHTMLでの改行です
.HTMLBody = “
” & greeting & “
” & .HTMLBody
.To = “example@example.com”
.Subject = “【自動化】テストメール”
End With
End Sub
—
3. ここがプロの知見：陥りやすい罠と対策
このコードを書いていく中で、必ずと言っていいほど直面する壁があります。それを先回りして解決しておきましょう。
① 署名が消えてしまう問題
`.HTMLBody = “挨拶文”` と書いてしまうと、元々設定されていた署名まで上書きして消えてしまいます。コード内で `.HTMLBody = “挨拶” & .HTMLBody` と書いているのは、「既存のHTMLBodyを保持したまま、その先頭に挨拶を継ぎ足す」という、プロが必ず行う「連結」のテクニックです。
② .Display メソッドの重要性
実は、Outlookの署名は「メール作成画面を表示した瞬間」にOutlookが自動挿入します。そのため、`.Display` を書かずに裏側で処理しようとすると、署名が読み込まれずに空っぽのメールになることがあります。「表示してから操作する」。これはGUIベースのアプリを自動化する際の鉄則です。
—
4. さらなる高みへ：構造化への招待
ここまでは「基本」です。もしあなたが現場でこれを使いこなすなら、次のステップとして「挨拶文を関数（Function）化する」ことをお勧めします。
‘ 挨拶文を生成するだけの独立した関数
Function GetGreeting() As String
If Hour(Now) < 11 Then
GetGreeting = "おはようございます。"
Else
GetGreeting = "お疲れ様です。"
End If
End Function
こうすることで、他のメール自動化マクロを作成する際も、この関数を呼び出すだけで一貫した挨拶文を使い回せます。これが「保守性の高いコード」への入り口です。
---
最後に：自動化は「愛」です
「おはよう」や「お疲れ様」をプログラムに任せるなんて味気ない、と思うかもしれません。しかし、人間がやるべきことは「内容」を考えること。「挨拶のパターン分け」といった単純作業を自動化することで、あなたはより重要なメール本文の作成や、創造的な業務に脳のリソースを割くことができます。
これが、我々自動化エンジニアが掲げる「怠慢（良い意味での手抜き）」の精神です。
まずはこのコードをコピーして、自分のOutlookで動かしてみてください。画面に挨拶文が自動で現れた瞬間、あなたはもう「マクロの記録」を使っていた頃の自分とは別次元にいます。
もしエラーが出たら、それはシステムがあなたに「もっと学べ」と語りかけているサインです。いつでも相談してくださいね。健闘を祈ります。
