こんにちは！Outlook VBAの世界へようこそ。
シニアエンジニアの私です。
「複数のメールアカウントを使い分けているけれど、うっかり別のアカウントから送信してしまい、冷や汗をかいた……」
そんなビジネスパーソンあるある、あなたも経験ありませんか？
プライベート用、プロジェクトA用、コーポレート用。複数のアカウントをOutlookに登録していると、いざメールを作ったときに「あ、送信元（差出人）が違う！」と慌てて下書きに戻すハメになる。これ、地味にストレスですよね。
今回は、「今自分がどのフォルダを開いているか」をOutlookが賢く察知し、自動的に最適な送信元アカウントに切り替えてくれる魔法のようなマクロを授けましょう。
ここをクリアすれば、あなたのOutlook VBAのスキルは一段上のステージに到達します。さあ、一緒にスマートな自動化の世界へ踏み出しましょう！
—
なぜ「今開いているフォルダ」が重要なのか？
Outlook VBAでメールを新規作成するコードを書くとき、通常は以下のようなコードを書きます。
Sub CreateMail_Basic()
Dim mi As MailItem
Set mi = Application.CreateItem(olMailItem)
mi.Display ‘ メール作成画面を開く
End Sub
これだと、Outlookがデフォルト（既定）に設定しているアカウントでメールが作成されてしまいます。
プロジェクトAのフォルダ（受信トレイなど）を見ているのに、送信元がプライベート用になっていたら意味がありませんよね。
そこで私たちが目指すアプローチはこうです：
1. ユーザーが今、Outlookの画面上でどのフォルダを選択（アクティブ）しているかを取得する。
2. そのフォルダがどのメールボックス（アカウント）に属しているかを特定する。
3. 新規作成するメールの`SendUsingAccount`プロパティに、そのアカウントを強制的に割り当てる。
この仕組みを作れば、ユーザーは「フォルダを選ぶだけ」で、意図したアカウントからの送信が完全に保証されるようになります。
—
現場で即戦力となる！自動切り替えメール作成コード
それでは、実務でそのままコピペして使える完全版のコードを公開します。
OutlookのVBAエディタ（`Alt + F11`）を開き、標準モジュールに貼り付けてください。
Option Explicit
‘ =====================================================================
‘ マクロ名: CreateMail_BasedOnActiveFolder
‘ 概要: 現在アクティブなフォルダの親ストアを判定し、
‘ 対応する送信元アカウントを自動設定してメール作成画面を開く
‘ =====================================================================
Sub CreateMail_BasedOnActiveFolder()
Dim objApp As Outlook.Application
Dim objNamespace As Outlook.NameSpace
Dim objCurrentFolder As Outlook.MAPIFolder
Dim objAccount As Outlook.Account
Dim objMail As Outlook.MailItem
Dim targetAccount As Outlook.Account
Dim folderStoreName As String
Set objApp = Application
Set objNamespace = objApp.GetNamespace(“MAPI”)
‘ 1. 現在ユーザーがアクティブにしているフォルダを取得
On Error Resume Next
Set objCurrentFolder = objApp.ActiveExplorer.CurrentFolder
On Error GoTo 0
‘ フォルダが取得できない場合（カレンダー等特殊なビューの場合など）の安全策
If objCurrentFolder Is Nothing Then
MsgBox “現在選択されているフォルダを正しく取得できませんでした。”, vbExclamation, “アカウント判定エラー”
Exit Sub
End If
‘ 2. そのフォルダが属するストア（メールボックス名）の名前を取得
‘ ※Store.DisplayNameを使うことで、アカウントのルート名が取れます
folderStoreName = objCurrentFolder.Store.DisplayName
‘ 3. Outlookに登録されている全アカウントをループし、ストア名と一致するもの探す
Set targetAccount = Nothing
For Each objAccount In objNamespace.Accounts
‘ アカウントの送信元アドレス名やDisplaynameとストア名が一致するか比較
‘ ※環境に合わせてこの条件式は微調整が必要な場合があります
If objAccount.DisplayName = folderStoreName Then
Set targetAccount = objAccount
Exit For
End If
Next objAccount
‘ 4. メールアイテムの新規作成
Set objMail = objApp.CreateItem(olMailItem)
‘ 5. 該当するアカウントが見つかった場合は送信元に設定、見つからなければ既定のアカウント
If Not targetAccount Is Nothing Then
Set objMail.SendUsingAccount = targetAccount
‘ デバッグ用（必要に応じてコメントアウトを外してください）
‘ Debug.Print “送信元を ” & targetAccount.DisplayName & ” に設定しました。”
Else
‘ 該当なしの場合はデフォルトの挙動（警告を出す親切設計もアリ）
MsgBox “一致するアカウントが見つからなかったため、既定のアカウントで作成します。”, vbInformation, “通知”
End If
‘ 6. 宛先や件名の初期値を入れたい場合はここに記述
‘ objMail.To = “sample@example.com”
‘ objMail.Subject = “【自動作成】”
‘ 7. 画面に表示
objMail.Display
‘ クリーンアップ
Set objMail = Nothing
Set objCurrentFolder = Nothing
Set objNamespace = Nothing
Set objApp = Nothing
End Sub
—
コードの核心を読み解く！知っておくべき3つのポイント
初学者やマクロ記録からステップアップする方が押さえておくべき、プロの技が隠されたポイントを解説します。
① `ActiveExplorer.CurrentFolder` で今を見抜く
`Application.ActiveExplorer.CurrentFolder` は、今ユーザーがマウスやキーボードで選択しているフォルダのオブジェクトをダイレクトに掴むプロパティです。これのおかげで、「どのメールボックスの作業をしているか」のコンテキスト（文脈）をプログラムが理解できるようになります。
② `Store.DisplayName` による堅牢な紐付け
Outlookの裏側では、複数のメールボックス（IMAP、Exchange、PSTファイルなど）が「Store（ストア）」という概念で管理されています。フォルダオブジェクトから `.Store.DisplayName` を辿ることで、そのフォルダがどのメールアカウントの配下にあるのかを正確に逆引きできます。ここがこのコードの最もスマートで美しい部分です。
③ `SendUsingAccount` プロパティの破壊力
Outlook VBAでメールを送信元指定なしで作ると、必ず「既定のアカウント」が使われます。しかし、作成済みの `MailItem` オブジェクトに対して `Set objMail.SendUsingAccount = targetAccount` を実行してあげるだけで、送信元プルダウンを強制的に書き換えることができます。これが、誤送信を防ぐ最大の武器になります。
—
陥りやすい罠とエラー回避の知見
実務の現場でこのマクロを展開すると、いくつかの環境起因のエラーに出くわすことがあります。あらかじめ対策を知っておきましょう。
- 罠1: 「共有メールボックス」や「パブリックフォルダ」を参照している場合
- 現象: 共有メールボックスのフォルダを開いているとき、`objAccount.DisplayName` とストア名が完全一致せず、`targetAccount` が `Nothing` になってしまうことがあります。
- 対策: 組織内で共有メールボックスを多用している場合は、判定ロジックに `SmtpAddress` を活用するか、例外処理（Select Case文などでのマッピング）を挟むと完璧です。
- 罠2: フォルダを選択していない状態でマクロを実行した
- 現象: Outlookの「予定表」や「連絡先」などを特殊なウィンドウで開いている際、`ActiveExplorer.CurrentFolder` が意図しない挙動をすることがあります。
- 対策: 今回のコードにも入れていますが、`On Error Resume Next` と `If objCurrentFolder Is Nothing Then` によるガード節を必ず用意し、VBA特有の「ヌルポ（Object Variable not set）」エラーを未然に防ぎましょう。
—
クイックアクセスツールバーに組み込んで完成形へ
せっかくこの素晴らしいマクロを作っても、毎回「Alt + F11」から実行していたのでは業務効率が台無しです。
1. Outlookの「ファイル」＞「オプション」＞「クイック アクセス ツールバー」を開く。
2. コマンドの選択を「マクロ」に変更。
3. 先ほどの `CreateMail_BasedOnActiveFolder` を追加し、お気に入りのアイコンに変更。
これで、「プロジェクトAのフォルダを開いた状態で、ツールバーのボタンを一発ポチるだけ」で、送信元がプロジェクトAのアカウントに設定された新規メール作成画面が立ち上がります。
ここをクリアすれば、Outlook VBAの基本、そしてオブジェクト操作の勘所はもうバッチリです。
日々のルーティンワークのストレスを、あなたの手でスマートにハックしていきましょう！
