こんにちは！Outlook VBAの世界へようこそ。
マクロの記録ボタンを押すだけの世界から一歩踏み出し、「自分でコードを書いて業務を自動化したい！」と思っているあなたへ、今日は非常に重要で、かつ現場で一番最初に躓きやすい「アカウントの壁」を突破する極意をお伝えします。
「自分で作ったマクロを実行したら、なぜかメインのアカウントではなく、使っていないサブのアカウントからメールが送信されてしまった……」
「共有メールボックスのフォルダを指定したはずなのに、エラーで止まる……」
こんな恐怖体験、ありませんか？
複数のメールアカウントや共有メールボックスが入り交じる現代のビジネス環境において、「どのセッション（アカウント）を操作しているか」を完全に掌握することは、プログラミングの基礎中の基礎であり、最も重要なスキルです。
ここさえクリアすれば、あなたのOutlook VBAのスキルは一段も二段も跳ね上がりますよ。さあ、一緒に扉を開けましょう！
—
1. そもそも「Session（NameSpace）」ってなに？
Outlookを起動すると、あなたの手元にはいくつものメールボックスやフォルダが見えていますよね。個人のメールアドレス、部署の共有メールボックス、アーカイブ用のデータ……。
VBAの世界では、これらOutlookの「世界全体の管理マスター」のような存在を `NameSpace`（ネームスペース） と呼びます。そして、そのセッションを司るのが `Application.Session` です。
図解するなら、こんなイメージです。
[ Outlookアプリ (Application) ]
│
└── [ セッション / 世界の管理マスター (Application.Session) ]
├── アカウントAのメールボックス (Stores)
├── アカウントBのメールボックス (Stores)
└── 共有メールボックス (Stores)
「マクロを書くときは、とりあえず `Application.Session` から世界を覗きに行くんだな」と覚えておいてください。
—
2. 初学者が陥る「デフォルトの罠」
何も考えずにVBAを書くとき、私たちはよく次のようなコードを書きがちです。
‘ 【危なっかしい書き方】
Set myFolder = Application.Session.GetDefaultFolder(olFolderInbox)
これ、一見すると「受信トレイを取得している綺麗なコード」に見えますよね。
しかし、ここに「複数アカウント環境の罠」が潜んでいます。
`GetDefaultFolder` は、Outlookの設定で「既定（デフォルト）」に指定されているアカウントの受信トレイを問答無用で掴みに行きます。
もし、あなたがプライベートのアカウントを既定にしていて、仕事用のアカウントからメールを送りたい・集計したいと思ってこのコードを実行したらどうなるでしょう？ そう、意図しないアカウントのフォルダを操作してしまい、大惨事に繋がりかねません。
プロのエンジニアは、既定任せにせず、「狙ったアカウントのセッションを名指しで取得する」というアプローチを取ります。
—
3. 【実践】安全にアカウントを切り替えてフォルダを掴むコード
それでは、複数のアカウントや共有メールボックスが混在するカオスな環境でも、「意図したアドレスのアカウント」を確実に見つけ出し、そのセッションを安全に操作する実用コードを公開します。
開発環境（VBE）の標準モジュールに、そのまま貼り付けて使ってみてください。
Sub SendMailFromSpecificAccount()
Dim olApp As Outlook.Application
Dim olNs As Outlook.NameSpace
Dim olAcc As Outlook.Account
Dim targetMail As Outlook.MailItem
‘ 1. アプリケーションとセッションの基本取得
Set olApp = New Outlook.Application
Set olNs = olApp.Session
‘ 2. 操作したい特定のアカウントのメールアドレス（ここはご自身の環境に合わせて書き換えてください）
Dim targetEmailAddress As String
targetEmailAddress = “your-work-account@company.com”
‘ 3. セッション内から目的のアカウントを総当たりで探す（安全な探索ロジック）
Dim foundAccount As Outlook.Account
Set foundAccount = Nothing
For Each olAcc In olNs.Accounts
If LCase(olAcc.SmtpAddress) = LCase(targetEmailAddress) Then
Set foundAccount = olAcc
Exit For
End If
Next olAcc
‘ 4. アカウントが見つからなかった場合の安全装置（エラーハンドリング）
If foundAccount Is Nothing Then
MsgBox “指定されたアカウントが見つかりません: ” & targetEmailAddress, vbCritical
Exit Sub
End If
‘ 5. 見つかった特定のアカウントを送信元にしてメールを作成する
Set targetMail = olApp.CreateItem(olItemType.MailItem)
With targetMail
‘ ★ここが極意！ SendUsingAccountプロパティで送信元を強制指定する
Set .SendUsingAccount = foundAccount
.To = “client@example.com”
.Subject = “特定のアカウントから失礼します”
.Body = “このメールは指定したアカウントから安全に送信されています。”
‘ 実際に送信する場合はコメントアウトを外してください
‘ .Send
‘ 今回は確認のために画面を表示します
.Display
End With
MsgBox “「 ” & foundAccount.DisplayName & ” 」のアカウントでメール作成画面を起動しました！”, vbInformation
End Sub
コードのここがポイント！
- `olNs.Accounts` によるイテレーション（総当たり）
現在Outlookに登録されているすべてのアカウントを `For Each` で舐め、SmtpAddress（メールアドレス）が完全一致するものを探しています。これを行えば、配置順が変わっても絶対に誤認しません。
- `SendUsingAccount` プロパティの指定
メールアイテム（`MailItem`）に対して、見つけたアカウントオブジェクトをズバッと代入しています。これにより、Outlookの既定アカウントが何であろうと、絶対に意図したアカウントから送信・下書き保存させることができます。
—
4. 現場で役立つエラー回避の知恵
複数アカウントや共有メールボックスを扱う際、もう一つよくあるのが「共有メールボックス（Delegate/Additional Mailbox）」の罠です。
共有メールボックスは、上記コードの `olNs.Accounts` に出てこない場合があります（アクセス権の付与形態によるため）。その場合は、`Store`（ストア）オブジェクトや `Folders` から直接名前指定でアクセスする必要があります。
もし共有メールボックスのフォルダを確実に掴みたい場合は、次のようなアプローチも有効です。
Dim sharedFolder As Outlook.Folder
‘ セッションから直接ストア名（フォルダのルート名）を指定して取得
On Error Resume Next
Set sharedFolder = olNs.Folders(“info@company.com”).Folders(“受信トレイ”)
On Error GoTo 0
If sharedFolder Is Nothing Then
MsgBox “共有メールボックスが見つかりません。アクセス権を確認してください。”, vbExclamation
End If
`On Error` を使うときは、必ず処理の後に `On Error GoTo 0`（エラー監視の解除）に戻すのが、バグを生みにくいクリーンなVBAを書くプロの作法です。
—
まとめ：ここをクリアすれば、もう怖くない！
今回は、`Application.Session` を起点にした、複数アカウント環境の安全なセッション管理について解説しました。
1. 既定（Default）の機能に頼り切らないこと（思わぬアカウントの誤操作を防ぐため）。
2. `Accounts` コレクションからメールアドレスをキーにして目的のアカウントを名指しで取得すること。
3. `SendUsingAccount` で送信元をガッチリ固定すること。
この3つ星の原則を押さえておけば、どれだけ複雑にアカウントが入り組んだ社内環境であっても、あなたのVBAはビクともしません。誤送信の恐怖から解放され、自信を持って自動化を進められますよ。
ここをクリアしたあなたなら、もう初級者の枠は完全に卒業です！ぜひ明日の業務から試してみてくださいね。それでは、また次の知見でお会いしましょう！
