【脱・誤送信】Outlook VBAで「送信ボタン」を封印し、強制的に下書き保存させる設計論
業務自動化を志す諸君、日々お疲れ様だ。
自動化の現場で最も恐ろしいのは何か？ APIのダウンか？ データ不整合か？ いや、「人間による誤送信」だ。自動生成したメールを勢い余って即時送信し、顧客や上司に未完成の文面が届く……この「ヒューマンエラー」こそが、我々アーキテクトが最も排除すべきリスクである。
「送信ボタンを押したら自動で飛んでいく」という仕様は、業務効率化に見えて実は欠陥だ。本稿では、送信を一旦「下書き」で止めることをシステム的に強制し、人間の目による最終確認をプロセスに組み込むための、堅牢なVBA設計を伝授する。
—
なぜ「Send」を使ってはいけないのか
多くの初心者は、`.Send` メソッドを安易に使う。だが、一度放たれたメールは取り返せない。特にVBAで動的に宛先やCCを制御している場合、変数のバグがそのまま顧客に届くリスクがある。
我々が目指すべきは、「`.Display`（または `.Save`）で止め、ユーザーの脳を通す」というインターフェースだ。これを自動化のパイプラインに組み込むことで、システムと人間の協調が可能になる。
—
プロダクション環境に耐えうる「メール生成」コード
このコードは、単にメールを作るだけではない。オブジェクトのライフサイクルを考慮し、メモリリークを防ぐための設計思想を込めている。
‘ ==========================================================
‘ 機能：動的宛先制御と下書き保存を強制するメール生成ルーチン
‘ 目的：誤送信防止・プロセス確認の徹底
‘ ==========================================================
Public Sub CreateDraftEmail(ByVal toAddress As String, _
ByVal subject As String, _
ByVal bodyText As String)
Dim objOutlook As Outlook.Application
Dim objMail As Outlook.MailItem
‘ Outlookインスタンスを取得
Set objOutlook = New Outlook.Application
‘ メールアイテムの生成
Set objMail = objOutlook.CreateItem(olMailItem)
‘ エラーハンドリング：宛先が不正な場合などの例外を補足する
On Error GoTo Cleanup
With objMail
.To = toAddress
.Subject = subject
.BodyFormat = olFormatPlain ‘ HTMLよりプレーンテキストが安全
.Body = bodyText
‘ 【重要】ここで.Sendは絶対に叩かない
‘ 一度下書きとして保存する
.Save
‘ ユーザーに確認を促すため、ウィンドウを表示させる
.Display
End With
Cleanup:
‘ オブジェクトの解放（メモリリークを防ぐための鉄則）
If Not objMail Is Nothing Then Set objMail = Nothing
If Not objOutlook Is Nothing Then Set objOutlook = Nothing
If Err.Number <> 0 Then
MsgBox “メール生成中にエラーが発生しました: ” & Err.Description, vbCritical
End If
End Sub
—
この設計が「堅牢」である理由
1. オブジェクトの明示的解放（Clean-up）
VBAのメモリ管理は甘い。特にOutlookオブジェクトをループ内で使い回すと、プロセスが残存し、Outlook自体がフリーズする原因になる。`Set = Nothing` はおまじないではない。必須の作法だ。
2. `.Save` の強制
`.Display` だけでは、万が一Outlookがクラッシュした場合に内容が消失するリスクがある。`.Save` を挟むことで、下書きフォルダに確実に「証拠」を残す。これが大規模開発における「冪等性（べきとうせい）」の確保だ。
3. エラーハンドリングの注入
宛先文字列に不正な文字が含まれていた場合、OutlookのAPIは容赦なく停止する。`On Error GoTo` を活用し、システムがクラッシュする前にユーザーに警告を出す設計にしている。
—
実務への適用：データベース連携の注意点
もし諸君が、ExcelやAccessからこのスクリプトを呼び出す場合、以下の点に注意せよ。
- データ型の厳格化: データベースから取得した宛先リストには、余計な空白文字が含まれていることが多い。`Trim()`関数を必ず噛ませ、不正な宛先で `Send` が弾かれるリスクを排除すること。
- ファイル添付の同期: もしファイルを添付する場合、`Attachments.Add` を実行する前に、対象のファイルが「存在するか」を確認する `Dir` 関数のチェックを必ず通すこと。ファイルパスが空のまま処理を強行するのはプロとして無責任だ。
—
結び：エンジニアとしての矜持
「自動化」とは、ただ作業を速くすることではない。「ミスが起きない仕組みを構築すること」だ。
ユーザーに「送信ボタンを押す」という最後の責任を委ねることは、手抜きではない。むしろ、コンピュータが代替できない「人間による最終チェック」という重要なセキュリティゲートを設ける、非常に高度な設計判断だと言える。
このコードをベースに、諸君の現場に最適な「ミスを許さない自動化環境」を作り上げてほしい。健闘を祈る。
