【極意】Outlook VBAで「共有メールボックス」を自在に操る！送信元を動的に切り替える魔法
こんにちは。自動化の深淵へようこそ。
マクロの記録ボタンを押して生成されたコードを眺める段階は、もう卒業しましょう。
今回は、業務自動化の現場で最もリクエストが多く、かつ「ハマりどころ」満載のテーマ。「Exchangeの共有メールボックスをVBAで動的に切り替えて送信する方法」を伝授します。
多くのエンジニアがここで躓くのは、Outlookが「誰のアカウントで送信しているか」というコンテキストを、非常に厳格に管理しているからです。ここを掌握すれば、あなたはメール業務自動化のマスターになれますよ。
—
1. なぜ「共有メールボックス」の制御は難しいのか？
まず、基本を押さえましょう。通常、Outlook VBAで`CreateItem(olMailItem)`を実行すると、デフォルトの自分のアカウントでメールが作成されます。
しかし、共有メールボックス（サポート窓口やチーム用アドレスなど）から送るには、ただ宛先を変えるだけでは不十分です。以下の2つのプロパティを理解する必要があります。
- `SentOnBehalfOfName`: 「～を代理で送信」するプロパティ。ただし、権限設定によっては「○○が△△の代理で送信しました」という表示が相手に出てしまうことがあります。
- `SendUsingAccount`: これこそが本命です。Outlookに登録されている「アカウント情報」そのものを送信時に指定します。現代のExchange環境では、こちらを使うのが正攻法です。
—
2. 実践！共有アカウントを指定して送信するコード
以下のコードは、Outlookに設定されているアカウントをループで検索し、指定したメールアドレスと一致するアカウントを見つけて送信を行う、非常に堅牢な設計です。
Sub SendFromSharedMailbox()
Dim olApp As Outlook.Application
Dim mail As Outlook.MailItem
Dim targetAccount As Outlook.Account
Dim targetEmail As String
‘ 送信元としたい共有メールボックスのアドレス
targetEmail = “info@yourcompany.com”
Set olApp = New Outlook.Application
Set mail = olApp.CreateItem(olMailItem)
‘ 1. 送信元アカウントを検索（SendUsingAccountの指定）
For Each targetAccount In olApp.Session.Accounts
If LCase(targetAccount.SmtpAddress) = LCase(targetEmail) Then
Set mail.SendUsingAccount = targetAccount
Exit For
End If
Next
‘ アカウントが見つからなかった場合のガード節
If mail.SendUsingAccount Is Nothing Then
MsgBox “エラー：指定されたアカウントが見つかりません。”, vbCritical
Exit Sub
End If
‘ 2. メールの構成
With mail
.To = “client@example.com”
.Subject = “【自動送信】テストメール”
.Body = “これは共有メールボックスからのテスト送信です。”
‘ 3. 送信処理（一旦確認したい場合は .Display に変更してください）
.Send
End With
MsgBox “送信完了！”, vbInformation
End Sub
—
3. このコードを使いこなすための「3つの極意」
① `SendUsingAccount` の重要性
昔のコードでは `SentOnBehalfOfName` が多用されていましたが、これはあくまで「代理送信」です。`SendUsingAccount` を使うことで、Outlookは「そのアカウントの本人として」送信処理を行います。これにより、送信済みアイテムが正しく「共有メールボックスの送信済みフォルダ」に格納されるようになります（※サーバー側の設定に依存します）。
② インテリセンス（入力補完）を信じすぎるな
VBAを書いていると、オブジェクトの階層を辿るのに苦労しますよね。
`olApp.Session.Accounts` を操作する際、もしアカウントが取得できない場合は、Outlookがまだ立ち上がっていないか、あるいは権限が正しく付与されていない可能性があります。常に `If targetAccount Is Nothing Then` のようなチェックを入れておくのが、プロの流儀です。
③ 陥りやすい罠：同期のタイムラグ
共有メールボックスを後から追加した場合、Outlookのキャッシュ（OSTファイル）の同期に時間がかかることがあります。コードが正しいのに動かない時は、一度Outlookを再起動し、アカウント情報が `Session.Accounts` に正しくロードされているか確認してください。
—
最後に：自動化は「道具」ではなく「設計」です
今回紹介したコードは、あくまで「送信」という一瞬の動作です。
しかし、これを「Excelのリストから宛先を読み込み、添付ファイルを動的に変え、共有アカウントで送る」というフローに組み合わせれば、一気にあなたの仕事の質は劇的に変わります。
「プログラムを書く」のではなく「業務の仕組みをコードに移植する」。
この視点さえ忘れなければ、Outlook VBAはあなたの最強の武器になります。分からないことがあれば、いつでも聞いてくださいね。一緒に最高峰の自動化環境を構築していきましょう！
