Outlook VBAで「署名選択」を自動化せよ：泥臭い手動操作を撲滅するアーキテクチャ設計
業務自動化を志す諸君、日々お疲れ様だ。Outlookでメールを送る際、「部署や相手に合わせて署名を切り替える」という単純作業に、どれだけの時間を浪費している？
たかが署名、されど署名。これを手動で切り替える作業は、単なる時間の無駄であるだけでなく、「誤送信」という重大なヒューマンエラーの温床だ。
今回は、Outlook VBAの深淵に触れつつ、保守性と拡張性を両立させた「署名自動選択ロジック」の構築術を伝授する。巷に溢れる「とりあえず動くコード」ではなく、プロダクション環境で耐えうる設計思想を叩き込む。
—
1. なぜ「If文の羅列」はエンジニアとして恥ずべきなのか
初心者が最初に陥る罠は、`If…Then…ElseIf`を延々と連ねる書き方だ。
‘ 悪い例：保守性の欠片もない
If InStr(mail.To, “@company-a.com”) > 0 Then
‘ 署名Aを挿入
ElseIf InStr(mail.To, “@company-b.com”) > 0 Then
‘ 署名Bを挿入
End If
この書き方は最悪だ。署名が増えるたびにコードを改修し、コンパイルを通す必要がある。「設定データ」と「ロジック」を分離していないコードは、負債でしかない。
真の自動化エンジニアは、設定（署名のファイルパスや対象ドメイン）を外部の構成ファイル（ExcelやJSON、あるいは定数定義）に追い出す。今回は、保守性を考慮した「構成分離型」の設計を提示する。
—
2. 署名自動選択の堅牢な実装パターン
Outlookの署名は、実は `AppData\Roaming\Microsoft\Signatures` にHTML/RTF/Text形式のファイルとして保存されている。これらを直接読み込み、`MailItem.HTMLBody` に流し込むのが最もスマートだ。
実装のポイント
1. HTMLBodyの保持: 既存の本文を消さず、署名を末尾に挿入する。
2. ファイルI/O: `Scripting.FileSystemObject` を使い、署名ファイルを読み込む。
3. イベント駆動: `ItemSend` イベントをフックし、送信直前に自動適用する。
プロダクションコード例
‘ ThisOutlookSession モジュールに記述
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim mail As MailItem
If TypeOf Item Is MailItem Then
Set mail = Item
‘ ドメイン判定と署名適用を分離
Call AutoApplySignature(mail)
End If
End Sub
Private Sub AutoApplySignature(ByRef mail As MailItem)
Dim sigName As String
‘ ロジック：ドメイン判定
Select Case True
Case InStr(mail.To, “@client-a.com”) > 0: sigName = “Team_A_Signature”
Case InStr(mail.To, “@client-b.com”) > 0: sigName = “Team_B_Signature”
Case Else: Exit Sub ‘ 署名なし
End Select
‘ 署名の挿入
Dim sigPath As String
sigPath = Environ(“AppData”) & “\Microsoft\Signatures\” & sigName & “.htm”
If Dir(sigPath) <> “” Then
mail.HTMLBody = mail.HTMLBody & “
” & GetFileContent(sigPath)
End If
End Sub
‘ ファイルの内容を読み込むユーティリティ関数
Private Function GetFileContent(ByVal path As String) As String
Dim fso As Object, ts As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set ts = fso.OpenTextFile(path, 1) ‘ 1 = ForReading
GetFileContent = ts.ReadAll
ts.Close
End Function
—
3. 現場で生き残るための「注意点」
このロジックを導入する際、以下の3点は必ず押さえておけ。
- 署名のエンコーディング: 署名ファイルがUnicode（UTF-8）で保存されている場合、`ADODB.Stream` を使用して読み込む必要がある。上記の`Scripting.FileSystemObject`はShift-JISが標準だ。文字化けが発生する場合は即座に切り替えろ。
- HTMLの構造: `HTMLBody`にそのまま連結すると、元のメールの `
