こんにちは！Outlook VBAの世界へようこそ。
マクロの記録から一歩踏み出し、業務の自動化を極めようとしているあなたなら、きっとこんな壁にぶぶつかったことがあるはずです。
「自分のメールボックスからではなく、チームの『共有メールボックス』から自動でメールを送りたい！」
「でも、コードを書いたはいいものの、なぜか送信者エラーが出る……」
そう、複数人が出入りするExchangeサーバーの共有メールボックス（Shared Mailbox）をVBAで自在に操るには、ただメソッドを叩くだけではダメなんです。裏側にある「セッション」と「権限」の仕組みを知る必要があります。
今回は、ここさえクリアすれば共有メールボックスからの送信はバッチリ！という極上のテクニックを、優しく、そしてディープに解説していきますね。
—
1. なぜ共有メールボックスからの送信でエラーが出るのか？
初学者が最初にやりがちなのが、以下のようなコードです。
‘ ❌ やりがちなNGコード
Dim mail As MailItem
Set mail = Application.CreateItem(olMailItem)
mail.To = “client@example.com”
mail.Subject = “共有メールボックスからのテスト”
‘ 送信元を変えようとあれこれ試すが…ここでエラー！
mail.Send
Outlookを立ち上げると、あなたの個人アカウントが「セッションの主」として君臨しています。その状態で `mail.Send` を実行すると、Outlookは問答無用で「あなたの個人アドレス」からメールを飛ばそうとします。
もし、あなたがその共有メールボックスに対する「送信権限（Send As / 代理送信）」を持っていなかったり、Outlookのセッション上で「どの名義で送信するか」を明示的に切り替えていないと、Exchangeサーバー側でバッサリと弾かれてしまうのです。
ここを突破するための鍵は、「SendUsingAccountプロパティ」の正確な指定と、厳格な「エラーハンドリング」です。
—
2. 解決の全体像：セッションを制する者が共有メールボックスを制する
共有メールボックスから安全にメールを送信する大まかな流れはこうです。
1. Outlookに登録されているアカウント一覧から、目的の「共有メールボックスのアカウント」をハンティングする。
2. 作成したメールアイテムの `SendUsingAccount` に、そのアカウントをバシッと紐付ける。
3. 万が一、権限がない場合やアカウントが見つからない場合に備えて、強固なエラー処理を挟む。
では、実際の現場でそのまま使える「実用コード」をお見せしましょう。
—
3. 実践！共有メールボックス送信マスタースクリプト
以下のコードを、あなたのVBAエディタ（Module）に貼り付けてみてください。
Sub SendFromSharedMailbox_Advanced()
Dim olApp As Outlook.Application
Dim mail As Outlook.MailItem
Dim targetAccount As Outlook.Account
Dim sharedEmailAddress As String
Dim i As Long
Dim accountFound As Boolean
‘ ==========================================
‘ 設定エリア：ここをあなたの環境に合わせて変更
‘ ==========================================
sharedEmailAddress = “support-team@yourcompany.com”
On Error GoTo ErrorHandler
Set olApp = New Outlook.Application
Set mail = olApp.CreateItem(olOutlookMailItem)
‘ 1. Outlookのプロファイルから対象の共有メールボックスアカウントを探索
accountFound = False
For i = 1 to olApp.Session.Accounts.Count
If LCase(olApp.Session.Accounts(i).SmtpAddress) = LCase(sharedEmailAddress) Then
Set targetAccount = olApp.Session.Accounts(i)
accountFound = True
Exit For
End If
Next i
‘ 2. アカウントが見つからなかった場合のガード
If Not accountFound Then
MsgBox “指定された共有メールボックスが見つかりません: ” & vbCrLf & sharedEmailAddress & vbCrLf & _
“Outlookにアカウントが正しく追加されているか確認してください。”, vbCritical, “アカウントエラー”
GoTo CleanUp
End If
‘ 3. メールのプロパティを設定
With mail
‘ 【超重要】送信元アカウントを明示的にバインドする
Set .SendUsingAccount = targetAccount
.To = “client@example.com”
.Subject = “【重要】共有メールボックスからのご案内”
.Body = “いつもお世話になっております。” & vbCrLf & “共有サポートチームです。”
‘ 下書き保存して確認したい場合は .Display に、即時送信なら .Send に
.Send
End With
MsgBox “共有メールボックスからの送信が完了しました！”, vbInformation, “成功”
GoTo CleanUp
ErrorHandler:
‘ 4. 権限エラーや予期せぬトラブルをここでキャッチ
MsgBox “送信中にエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description & vbCrLf & _
“※共有メールボックスに対する『送信権限（Send As）』が正しく付与されているか確認してください。”, _
vbCritical, “権限・送信エラー”
CleanUp:
‘ オブジェクトの解放（メモリリーク防止の作法）
Set mail = Nothing
Set targetAccount = Nothing
Set olApp = Nothing
End Sub
—
4. コードの深掘りポイント（ここがプロの技）
① `SendUsingAccount` によるセッションの乗っ取り
Outlook VBAにおいて、メールの送信元を偽る（正当な権限のもとで切り替える）唯一にして最大の王道がこのプロパティです。
ただアドレス文字列を書き換えるだけの浅いコードは、Exchangeのセキュリティポリシーの前に必ず散ります。「Accountオブジェクトそのものを代入する」というオブジェクト指向の本質を忘れないでください。
② 厳格なエラーハンドリング (`On Error GoTo`)
共有メールボックス運用で最も多いトラブルは、実はVBAのバグではなく「Active Directory（AD）側の権限設定ミス」です。
コードが完璧でも、Microsoft 365の管理画面であなたに「Send As（送信権限）」が与えられていないと、`mail.Send` の瞬間に容赦なくエラー（通常は実行時エラー `-2147467259` など）が飛んできます。
上記コードのようにエラーハンドラーを用意しておけば、「あ、コードのミスじゃなくて権限がないんだな」と秒速で原因にたどり着けます。
—
まとめ：ここをクリアすれば、あなたはもう中級者卒業！
いかがでしたでしょうか？
共有メールボックスの切り替えは、一見難しそうに見えますが、「アカウントの検索 ➔ `SendUsingAccount` への代入 ➔ 適切なエラーキャッチ」という鉄の3ステップを踏みさえすれば、驚くほど安定して動作します。
ここをクリアできたあなたなら、日々の定型業務の自動化なんて余裕です。ぜひ実際の業務環境で試して、周囲をあっと言わせるような自動化ツールを作り上げてみてくださいね。応援しています！
