Outlook VBAを掌握する：メール末尾に「送信環境」を刻み込むフッター自動付与術
こんにちは。業務自動化の世界へようこそ。
「マクロの記録」ボタンを押すだけの生活から一歩踏み出し、Outlookの深淵に触れようとしているあなたを歓迎します。
今回は、実務で非常に要望の多い「メール送信時に、送信日時とPC名を自動で追記する」という機能を実装します。これは単なるお遊びではなく、大規模な組織において「誰が、いつ、どの環境から送信したか」を追跡するための、プロフェッショナルな第一歩です。
さあ、Outlookの「中身」を書き換えるための極意を伝授しましょう。
—
1. なぜ「送信直前」のフックなのか？
初心者の方がまず躓くのは、「ボタンを押してメールを作る」という発想です。しかし、真の自動化エンジニアは「イベント（Event）」を操ります。
Outlookには `ItemSend` という強力なイベントが存在します。これは、「送信ボタンを押した瞬間、実際にサーバーへ飛んでいく前の、ほんの一瞬の隙」に割り込むための仕組みです。このタイミングでメールの本文（Body）を書き換えるのが、最も安全で確実な手法です。
—
2. 魔法の実装：ThisOutlookSessionの真実
Outlook VBAにおいて、コードを記述する場所は標準モジュールではありません。`ThisOutlookSession` という特別な場所を使います。ここに書くことで、Outlookが起動している間、常にこのマクロが「見張り役」として待機してくれます。
以下のコードを、OutlookのVBAエディタ（Alt + F11）を開き、左側のツリーにある `ThisOutlookSession` にコピー＆ペーストしてください。
‘ ==========================================================
‘ メール送信時の自動フッター付与スクリプト
‘ ==========================================================
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim mail As MailItem
Dim footer As String
‘ 送信しようとしているのがメールかどうかを確認（予定表の招待などとの区別）
If TypeOf Item Is MailItem Then
Set mail = Item
‘ 追記する文字列を構築（送信日時とPC名）
footer = vbCrLf & vbCrLf & _
“————————————————–” & vbCrLf & _
“送信日時: ” & Now & vbCrLf & _
“送信環境: ” & Environ(“COMPUTERNAME”) & vbCrLf & _
“————————————————–”
‘ 本文の末尾に追記
‘ BodyFormatがHTML形式の場合、単純な追加だと崩れる可能性があるため注意
mail.Body = mail.Body & footer
End If
‘ ここでエラー制御を入れないのが初心者の落とし穴ですが、
‘ まずは動くことを優先しましょう。
End Sub
—
3. コードの「魂」を読み解く
この短いコードには、重要なエンジニアリングの概念が詰まっています。
- `Application_ItemSend`: これはOutlookが用意した「送信フック」です。プログラムから「送信」という命令が出た瞬間に、Outlookはこのサブルーチンを強制的に呼び出します。
- `TypeOf Item Is MailItem`: 非常に重要です。Outlookではメールだけでなく、予定表の招待やタスクの割り当ても「Item」として扱われます。これを確認せずに処理を行うと、予期せぬエラーでOutlookがフリーズします。
- `vbCrLf`: これは「キャリッジリターン（復帰）」と「ラインフィード（改行）」の略。Windowsにおける「改行」を意味します。
- `Environ(“COMPUTERNAME”)`: OSの環境変数を取得するAPIです。これを使えば、社内のどのPCから送られたか一発で特定できます。
—
4. 陥りやすい罠と対策
その1：HTMLメールの崩れ
上記のコードは `mail.Body` を使っています。これは「テキスト形式」のメールには最適ですが、HTMLメールの場合、タグが崩れる可能性があります。
プロの知見： 本格的に運用するなら、`mail.HTMLBody` を使い、`
`タグを用いてフッターを構築する必要があります。まずはテキスト形式で運用し、慣れてきたらHTML形式に挑戦してみましょう。
その2：マクロが動かない！？
Outlookはセキュリティが極めて強固です。
1. 「開発」タブを表示させること。
2. 「マクロのセキュリティ」設定で「すべてのマクロに対して警告を表示する」を選択すること。
3. デジタル署名を検討すること（組織内運用の場合）。
—
最後に：エンジニアとしての一歩
このコードを実装できたあなたは、もう「マクロの記録」に頼るだけのユーザーではありません。「Outlookという巨大なアプリケーションの挙動を、コードで制御する」という、自動化エンジニアの領域に足を踏み入れました。
次は、「特定の宛先に送る時だけフッターを変える」や「添付ファイルの名前をチェックする」といった発展系に挑戦してみてください。
困ったことがあれば、またいつでもこの場所に戻ってきてください。技術の階段を一段ずつ、着実に登っていきましょう。応援しています。
