こんにちは！ Outlook VBAの世界へようこそ。
日々、大量のメール処理に追われて「あぁ、また送信元のアカウントを切り替え忘れた…！」と冷や汗をかいた経験はありませんか？
プライベートと仕事、あるいは複数のプロジェクトやブランドを掛け持ちしていると、Outlookに登録しているメールアカウント（送信元）も増えていきますよね。そんな環境で、うっかりメインのアカウントから別件のメールを送ってしまい、慌てて取り消す……なんてミスは、エンジニアとしても絶対に避けたいところです。
今回は、「宛先のドメイン（会社のドメインなど）を判別し、自動的に最適な送信元アカウントを切り替えてメールを作成する」という、実務で今すぐ使えるスマートな自動化テクニックを伝授します。
ここをクリアすれば、Outlook VBAの基本と「オブジェクトの心を掴むコツ」はバッチリです。一緒にステップアップしていきましょう！
—
1. なぜ「送信元のアカウント切り替え」でつまづくのか？
初学者がOutlook VBAでメールを操作するとき、最初に直面する壁が「プロパティの罠」です。
多くの人が、ネットで見つけた `SentOnBehalfOfName` というプロパティにメールアドレスを代入して、「あれ？エラーになるぞ」「別のアカウントから送れないぞ」と悩んでしまいます。
ここに、Outlook VBA特有の「お作法」の壁があります。
Outlookにおいて「送信元（どのアカウントのメールボックスから送信するか）」を制御するのは、単なる文字の代入ではなく、「プロファイルに紐づくアカウントオブジェクトそのものを指定する」というアプローチが必要なのです。
—
2. 解決の鍵：`SendUsingAccount` プロパティ
現代のOutlook VBA（Outlook 2007以降）では、送信元を完全にコントロールするために `SendUsingAccount` という強力なプロパティが用意されています。
これを使うと、Outlookに登録されているアカウントのリスト（`Session.Accounts`）から、特定の条件に一致するアカウントオブジェクトを探し出し、それをメールアイテムに「ガッチリと結びつける」ことができます。
全体像のイメージ
[メール作成]
↓
[宛先（To）のドメインをチェック]
↓
├─ 社内ドメイン (example.com) なら ──> アカウントAを設定
└─ 顧客ドメイン (client.jp) なら ───> アカウントBを設定
↓
[送信準備完了！]
この流れを、美しいVBAコードに落とし込んでいきましょう。
—
3. 実装コード：ドメイン判定による送信元自動切り替え
以下のコードを、OutlookのVBAエディタ（`Alt + F11` で開けます）の標準モジュールに貼り付けてください。
実務でそのままコピペして、ドメイン名をご自身の環境に書き換えるだけで動くように設計しています。
Sub CreateEmailWithSmartAccount()
Dim objMail As MailItem
Dim objAccount As Account
Dim targetDomain As String
Dim sendTo As String
‘ 送信先のメールアドレス（ここでは仮に代入していますが、選択中のメールやフォームから取得も可能です）
sendTo = “partner@client-domain.jp”
‘ 1. 新規メールアイテムのオブジェクトを生成
Set objMail = Application.CreateItem(olMailItem)
‘ 2. 宛先のドメインを判定して、適切な送信元アカウントを決定する
‘ ＠マーク以降の文字列を抽出して判定します
targetDomain = Split(sendTo, “@”)(1)
Set objAccount = Nothing ‘ 一旦リセット
‘ Outlookに登録されている全アカウントをループして、条件に合うものを探す
For Each objAccount In Application.Session.Accounts
‘ 例：特定のクライアントドメインの場合のアカウント切り替え
If targetDomain = “client-domain.jp” Then
If objAccount.DisplayName = “sub-account@yourcompany.com” Then
Exit For ‘ 見つかったらループを抜ける
End If
‘ 例：子会社や別事業のドメインの場合
ElseIf targetDomain = “subsidiary.co.jp” Then
If objAccount.DisplayName = “subsidiary-sender@yourcompany.com” Then
Exit For
End If
‘ デフォルト（上記以外）の場合は、メインのアカウントを使用
Else
If objAccount.DisplayName = “main-account@yourcompany.com” Then
Exit For
End If
End If
Next objAccount
‘ 3. メールオブジェクトに宛先と「送信元アカウント」をバインドする
With objMail
.To = sendTo
.Subject = “【自動作成】ドメイン判定によるアカウント切り替えテスト”
.Body = “いつもお世話になっております。” & vbCrLf & _
“このメールは送信元アカウントが自動判定されて送信されています。”
‘ 見つかったアカウントが有効であれば、送信元として設定する
If Not objAccount Is Nothing Then
Set .SendUsingAccount = objAccount
Else
‘ 万が一見つからなかった場合のフォールバック
MsgBox “指定された送信元アカウントが見つかりませんでした。デフォルトのアカウントで作成します。”, vbExclamation
End If
‘ すぐに送信せず、画面に表示して人間が最終確認できるようにする（安全第一！）
.Display
End With
‘ 4. 領域の解放（メモリリークを防ぐプロの作法）
Set objMail = Nothing
Set objAccount = Nothing
End Sub
—
4. コードの注目ポイント（知るべき本質）
このコードには、現場で役立ついくつかの重要なテクニックが詰まっています。
① `Split(sendTo, “@”)(1)` によるドメイン抽出
メールアドレスから `@` を境目に文字列を分割し、後半（インデックス `1`）を取得することで、純粋なドメイン名（例: `client-domain.jp`）を取り出しています。これにより、部分一致の誤作動を防ぎ、正確な判定が可能になります。
② `Application.Session.Accounts` の走査
Outlookには複数のアカウントが混在しています。`.DisplayName`（または `.SmtpAddress`）を条件にループを回すことで、現在利用可能な正しいアカウントオブジェクトを確実にキャッチできます。
③ `.Display` で一旦止める（安全性の担保）
どれほどコードに自信があっても、自動送信（`.Send`）をいきなり組み込むのはリスクが高すぎます。まずは `.Display` で画面上に作成された状態を見せ、人間が「よし！」と確認してから送信ボタンを押せるフローにするのが、実務における鉄則です。
—
5. 陥りやすいエラーと回避策
エラー：『オブジェクト変数または With ブロック変数が見つかりません。』
- 原因: 変数の宣言漏れ（`Dim` 忘れ）や、`Set` を使うべきところで使っていない場合に発生します。
- 対策: モジュールの最上部に必ず `Option Explicit` を記述し、変数の宣言を強制する習慣をつけましょう。
エラー：『このメッセージを送信するアクセス許可がありません。』
- 原因: `SendUsingAccount` に指定したアカウントのメールボックスに対して、現在のWindowsユーザーに「送信権限（代理送信権など）」が付与されていない場合に発生します。
- 対策: Outlookの画面で、手動でそのアカウントから送信できるかどうかを事前に必ず確認してください。
—
まとめ
いかがでしたか？
「複数のアカウントを使い分ける」という一見面倒な作業も、Outlook VBAのオブジェクト構造を理解し、適切なプロパティ（`SendUsingAccount`）を操作してあげれば、完全自動化は驚くほど簡単です。
ここをクリアできれば、あなたも「マクロの記録」を卒業し、真の意味でOutlookを意のままに操るエンジニアの仲間入りです。ぜひ、ご自身の環境に合わせてドメイン名やアドレスを書き換え、日々の業務効率化に役立ててくださいね。
それでは、快適なVBAライフを！
