【入門編】【上級者向け】Exchange共有メールボックスをVBAで切り替えて送信する際の権限管理とエラーハンドリング – Outlook VBA解析バイブル

【Outlook VBAの極意】共有メールボックスから「完璧に」送信するための技術的アプローチ

こんにちは。業務自動化の現場で、数々の「自動化の壁」を突破してきたエンジニアです。

皆さんは、Outlook VBAでメールを作成する際、こんな経験はありませんか？
「個人のアドレスからは送れるのに、共有メールボックスに変えた途端にエラーが出る」「送れたと思ったら送信済みアイテムが個人のフォルダに入ってしまった」。

これらは、Outlookの「送信者（Sender）とアカウント（Account）の乖離」という、VBAの初学者が必ず直面する深い闇です。今日は、ここを華麗に突破し、プロの現場で通用する「動的アカウント制御」の極意を伝授します。

—

1. なぜ「共有メールボックス」はエラーを吐くのか？

VBAで `MailItem.Send` を叩くとき、Outlookはデフォルトで「既定のアカウント」を使おうとします。しかし、共有メールボックスは「既定のアカウント」ではなく、あなたに「送信権限が与えられた別のアカウント」です。

ここを明示的に指定しない限り、コードは迷子になり、権限エラー（あるいは誤送信）を引き起こします。

核心となる考え方

1. Accountオブジェクトの特定: 送信元にしたい共有メールボックスのアカウントを、Outlookのセッションから正確に探し出す。
2. SendUsingAccountの割り当て: メールアイテムに対して「このアカウントを使いなさい」と明示的に命令する。
3. ライフサイクルの管理: オブジェクトを作成したら必ず解放する（メモリリーク対策）。

—

2. セキュアな送信実装コード

まずは、現場で即戦力となる実装例をご覧ください。このコードは、共有メールボックスの指定とエラーハンドリングを完備した「プロ仕様」のテンプレートです。

Public Sub SendFromSharedMailbox()
Dim olApp As Outlook.Application
Dim mail As Outlook.MailItem
Dim targetAccount As Outlook.Account
Dim acc As Outlook.Account

‘ 送信したい共有メールボックスのメールアドレス
Const SHARED_MAIL_ADDR As String = “support@yourcompany.com”

Set olApp = New Outlook.Application

‘ 1. 送信元アカウントを検索（権限チェックの第一歩）
For Each acc In olApp.Session.Accounts
If LCase(acc.SmtpAddress) = LCase(SHARED_MAIL_ADDR) Then
Set targetAccount = acc
Exit For
End If
Next acc

‘ アカウントが見つからない場合のエラーハンドリング
If targetAccount Is Nothing Then
MsgBox “指定された共有メールボックスが見つかりません。権限を確認してください。”, vbCritical
Exit Sub
End If

‘ 2. メールの作成
Set mail = olApp.CreateItem(olMailItem)

With mail
.Subject = “自動送信テスト”
.To = “client@example.com”
.Body = “これは自動送信されたメールです。”

‘ 3. 送信元アカウントを動的に割り当て
Set .SendUsingAccount = targetAccount

‘ 送信処理（テスト時は .Display に書き換えて確認推奨）
.Send
End With

‘ 4. オブジェクトの解放（重要：VBAのメモリ管理）
Set mail = Nothing
Set olApp = Nothing

MsgBox “送信完了！”, vbInformation
End Sub

—

3. 初学者が陥りやすい「3つの落とし穴」

① `SendUsingAccount` を設定するタイミング

`SendUsingAccount` は、メールの内容が確定した後、かつ `Send` メソッドを呼ぶ前に設定しなければなりません。これより先に行うと、Outlookが内部的に「既定のアカウント」に書き戻してしまうことがあります。

② 送信済みアイテムの保存場所問題

共有メールボックスから送っても、履歴が「個人の送信済みアイテム」に残ってしまうことがあります。これはサーバー側の設定（`DelegateSentItemsStyle`）に依存しますが、VBA側で `mail.SaveSentMessageFolder` を明示的に指定することで、確実に共有メールボックスの送信済みへ格納することが可能です。

③ 権限エラーの正体

コードが正しくてもエラーが出る場合、それは「Outlookのプロファイル」にその共有メールボックスが正しく追加されていないことがほとんどです。VBAはあくまで「Outlookが認識しているアカウント」しか操作できません。

—

4. プロの視点：安定運用のために

最後に、これだけは覚えて帰ってください。

• エラーハンドリングを怠らない: `On Error Resume Next` で誤魔化すのではなく、`If targetAccount Is Nothing` のように、システムが「存在しない」ことを検知するロジックを必ず入れてください。
• テストは `.Display` で: いきなり `.Send` を叩くのは、エンジニアとして自殺行為です。まずは `.Display` でプレビューし、送信元が正しく切り替わっているかを画面上で目視確認する。これが鉄則です。

—

まとめ

共有メールボックスの制御は、Outlook VBAにおける「脱・初心者」の登竜門です。今回ご紹介した `Account` オブジェクトの動的探索と、`SendUsingAccount` プロパティの制御をマスターすれば、もう貴方の自動化ツールは「個人のPCでしか動かないもの」から「組織のインフラとして機能するもの」へと進化します。

ここをクリアした貴方なら、次は「添付ファイルの動的生成」や「Exchangeカレンダーとの連動」など、さらに高度な世界へ挑戦できるはずです。

応援しています。何か詰まったら、いつでも戻ってきてくださいね。