VBAでOutlookの送信アカウントを切り替える方法

皆さん、こんにちは。今回は、Outlookで複数のメールアカウントをお使いの方に向けて、VBAを活用して送信アカウントを簡単に切り替える方法をご紹介します。これにより、業務やプライベートなど、用途に応じて適切なアカウントからメールを送信できるようになります。

Outlookで複数アカウントを使い分ける必要性
VBAを使って送信アカウントを指定する方法
よくある質問や疑問
1. Q1. 複数のアカウントを持っていますが、特定のアカウントをデフォルトに設定できますか？
2. Q2. このマクロは返信や転送時にも適用できますか？
今すぐ解決したい！どうしたらいい？
まとめ

Outlookで複数アカウントを使い分ける必要性

Outlookのイメージ

例えば、仕事用と個人用のメールアドレスをOutlookに登録している場合、メールを送信する際に毎回手動で送信元アカウントを選択するのは手間ですよね。特に、送信先や内容によって適切なアカウントを使い分けたい場合、自動化できれば非常に便利です。

VBAを使って送信アカウントを指定する方法

VBA（Visual Basic for Applications）を活用することで、Outlookのメール作成時に特定のアカウントを自動的に送信元として設定することが可能です。以下に、具体的な手順をご紹介します。

1. Outlook VBAエディターの起動

まず、Outlookを開き、キーボードの「Alt」キーを押しながら「F11」キーを押して、VBAエディターを起動します。この画面で、Outlookの動作をカスタマイズするコードを記述できます。

2. 新しいモジュールの作成

VBAエディター内で、上部メニューの「挿入」から「標準モジュール」を選択します。これにより、新しいモジュールが作成され、コードを入力するためのウィンドウが表示されます。

3. コードの入力

以下のコードを新しいモジュールにコピー＆ペーストしてください。このコードは、特定のアカウントを使用してメールを作成し、送信するものです。

vba

Sub SendEmailUsingSpecificAccount()

    Dim oApp As Outlook.Application

    Dim oMail As Outlook.MailItem

    Dim oAccount As Outlook.Account

    Dim sendAccount As String
    ' 使用したい送信元のメールアドレスを指定

    sendAccount = "your_email@example.com"
    ' Outlookアプリケーションを取得

    Set oApp = New Outlook.Application
    ' 新しいメールアイテムを作成

    Set oMail = oApp.CreateItem(olMailItem)
    ' 指定したメールアドレスのアカウントを検索

    For Each oAccount In oApp.Session.Accounts

        If oAccount.SmtpAddress = sendAccount Then

            ' 送信元アカウントを設定

            Set oMail.SendUsingAccount = oAccount

            Exit For

        End If

    Next oAccount
    ' メールの件名、本文、宛先を設定

    oMail.Subject = "件名を入力"

    oMail.Body = "本文を入力"

    oMail.To = "recipient@example.com"
    ' メールを表示（送信する場合は .Send を使用）

    oMail.Display

    ' oMail.Send

' オブジェクトの解放 Set oMail = Nothing Set oApp = Nothing End Sub

このコードでは、`sendAccount`に使用したい送信元のメールアドレスを設定しています。メールの件名、本文、宛先も適宜変更してください。`oMail.Display`を`oMail.Send`に変更すると、メール作成画面を表示せずに直接送信できます。

4. マクロの実行

コードを入力したら、VBAエディターを閉じ、Outlookのメイン画面に戻ります。次に、キーボードの「Alt」キーを押しながら「F8」キーを押して、「マクロ」ダイアログを表示します。先ほど作成した`SendEmailUsingSpecificAccount`を選択し、「実行」ボタンをクリックすると、指定したアカウントからメールが作成されます。