こんにちは！エンジニアリングの世界へようこそ。
マクロの記録ボタンをポチポチ押すだけのステージから一歩抜け出し、自分の手でOutlookを完全制御したい——今回は、そんな実務中級者の方へ向けた熱い知見をお届けします。
テーマはずばり、「複数アカウント環境での正確な送信制御」です。
会社で仕事をしていると、「個人のメールアドレス」「部署の代表アドレス」「プロジェクト用の共有アドレス」など、Outlookに複数のアカウントを設定していることはよくありますよね。
そんな環境でVBAを組んだとき、「あれ？意図しない別のアカウントからメールが送信されてしまった…！」という冷や汗モノのバグを踏んだ経験はありませんか？
今回は、Outlook VBAの心臓部である `Session` オブジェクトを極め、複数アカウントの荒波を華麗に乗りこなす方法を、優しく、そして徹底的に解説していきます。ここをクリアすれば、あなたのOutlook VBAのスキルは間違いなくプロの領域に到達します。
—
1. なぜ複数アカウント環境で「誤送信」が起きるのか？
まずは敵を知ることから始めましょう。
VBAからメールを新しく作成するとき、よく次のようなコードを書きますよね。
‘ よくある書き方（だが危険を伴う）
Dim mail As MailItem
Set mail = Application.CreateItem(olMailItem)
mail.To = “client@example.com”
mail.Subject = “お疲れ様です”
mail.Send
このコード、実は「現在Outlookでアクティブになっている（選択されている）デフォルトのアカウント」から送信されます。
もしユーザーが別のフォルダ（例えば部署の代表アカウントの受信トレイ）を開いた状態でこのマクロを実行したらどうなるでしょう？ そう、あなたが意図したのとは違うアカウントからメールが飛び出してしまいます。ビジネスシーンにおいて、これは致命的な事故になり得ますよね。
プロのエンジニアなら、「コード側で明示的にアカウントを指定・固定する」ことが鉄則です。それを実現するのが `Session` オブジェクト（正確には `NameSpace` オブジェクト）です。
—
2. SessionオブジェクトとAccountsコレクションの正体
Outlook VBAにおける `Session`（または `GetNamespace(“MAPI”)`）は、Outlookのデータ領域全体を統括する「最高司令官」のような存在です。
この司令官が握っている権限の一つに、`Accounts` コレクションがあります。これは、現在Outlookに登録されているメールアカウントの一覧表です。
イメージ図：
[ Outlook Application ]
│
▼ (Session / NameSpace)
[ MAPI セッション ]
│
├─ Accounts(1) ── 「個人用」 (hoge@company.com)
├─ Accounts(2) ── 「代表部署」 (info@company.com)
└─ Accounts(3) ── 「プロジェクト用」 (pj@company.com)
この一覧表の中から、「どのメールアドレスのSMTPアドレス、あるいはディスプレイ名と一致するか」をプログラムで探し出し、送信メールオブジェクトに紐づければ、誤送信を完全に防ぐことができます。
—
3. 【実践】正しいアカウントでメールを送信するコード
それでは、実務でそのまま使える堅牢（ロバスト）なコードを見ていきましょう。
今回は、設定されているアカウントのリストから特定のメールアドレス（例：`info@company.com`）を探し出し、そのアカウントを使って確実にメールを送信するプロシージャを作成します。
Sub SendMailWithSpecificAccount()
Dim olApp As Outlook.Application
Dim olNs As Outlook.NameSpace
Dim olAcc As Outlook.Account
Dim targetMail As Outlook.MailItem
Dim targetEmailAddress As String
Dim isAccountFound As Boolean
‘ 送信元として使いたいメールアドレス
targetEmailAddress = “info@company.com”
isAccountFound = False
‘ 1. アプリケーションとセッションの取得
Set olApp = New Outlook.Application
Set olNs = olApp.GetNamespace(“MAPI”)
‘ 2. Accountsコレクションを走査し、目的のアカウントを探索
For Each olAcc In olNs.Accounts
‘ アカウントのSMTPアドレスが一致するかチェック
If LCase(olAcc.SmtpAddress) = LCase(targetEmailAddress) Then
isAccountFound = True
Exit For ‘ 見つかったのでループを抜ける
End If
Next olAcc
‘ 3. アカウントが見つからなかった場合の安全装置
If Not isAccountFound Then
MsgBox “指定されたアカウントが見つかりません: ” & targetEmailAddress, vbCritical, “送信中断”
Exit Sub
End If
‘ 4. メールアイテムの作成
Set targetMail = olApp.CreateItem(olMailItem)
With targetMail
.To = “client@example.com”
.Subject = “【重要】複数アカウントからの送信テスト”
.Body = “このメールは正しいアカウントから送信されています。”
‘ ★ここが極意：SendUsingAccountプロパティに特定したアカウントを代入
Set .SendUsingAccount = olAcc
‘ 5. 送信（または確認のため .Display でもOK）
.Send
End With
‘ 6. オブジェクトの解放（メモリリーク防止の美学）
Set targetMail = Nothing
Set olAcc = Nothing
Set olNs = Nothing
Set olApp = Nothing
MsgBox “メールの送信が完了しました！”, vbInformation
End Sub
コードの重要ポイント解説
1. `LCase(olAcc.SmtpAddress)` による比較
メールアドレスの大文字・小文字の揺れ（例：`Info@Company.Com` と `info@company.com`）に対応するため、両者を小文字に変換して安全に比較しています。この気配りが中級者へのステップアップの証です。
2. `SendUsingAccount` プロパティ
作成した `MailItem` に対して、見つけた `Account` オブジェクトをそのままぶち込みます。これによって、Outlookは現在どのフォルダが開かれていようとも、強制的に指定したアカウントのSMTPサーバー経由でメールを送り出します。
3. 徹底的なオブジェクト解放
VBAのメモリ管理は甘く見られがちですが、Outlookの巨大なCOMオブジェクトを扱う際は、処理の最後に `Set 〇〇 = Nothing` を行うのが一流のエンジニアの作法です。
—
4. よくあるエラーとハマりポイント
現場でこのコードを実装する際によくある「罠」を先回りしてご紹介しておきます。
- Q. 「オブジェクト変数または With ブロック変数が見つかりません」というエラーが出る
- A. 参照設定が抜けている可能性があります。
VBAエディタのメニューから `[ツール]` ＞ `[参照設定]` を開き、「Microsoft Outlook 16.0 Object Library」（数字はExcelのバージョンにより異なります）にチェックが入っているか確認してください。これを怠ると、型の定義が正しく認識されません。
- Q. 共有メールボックス（Delegate/Shared Mailbox）から送れない
- A. `Accounts` に出てこない場合があります。
自分が「送信権限（Send As）」を持っている共有メールボックスであっても、個人のOutlookプロファイルに「別のアカウント」として追加されていない場合、`olNs.Accounts` のリストに乗ってこないことがあります。その場合は、プロキシとしての送信元変更（`SentOnBehalfOfName` プロパティなど）を組み合わせるアプローチが必要になるケースもあります。まずは自分のアカウントリストに明示的に登録されているものから試しましょう。
—
まとめ
今回は、`Session`（`NameSpace`）オブジェクトと `Accounts` コレクションを駆使して、複数アカウント環境での送信を完全に制御する方法を解説しました。
- デフォルト送信は環境依存なので信用しない
- `Accounts` をループして目的の `Account` を正確にハンティングする
- `SendUsingAccount` で運命の送信元をガッチリ固定する
ここさえ押さえておけば、どれだけ複雑なアカウント構成のPCでマクロが動こうとも、誤送信の心配はもうありません。
日々の業務自動化を、より安全に、よりスマートに。
あなたのVBAライフが、この知見によってさらに快適なものになることを応援しています！それでは、また次の技術でお会いしましょう。
