Outlook VBAで特定のアカウントからメールを送信する方法

こんにちは！今日は、Outlookで複数のメールアカウントをお持ちの方に向けて、Outlook VBAを使って特定のアカウントからメールを送信する方法をご紹介します。例えば、プライベート用と仕事用のアカウントを使い分けている場合、間違ったアカウントからメールを送ってしまうと困りますよね。そんな時に、この方法が役立ちます。

Outlook VBAとは？
特定のアカウントからメールを送信する手順
よくある質問や疑問
1. Q1: 複数のアカウントがある場合、どのように特定のアカウントを選べばいいですか？
2. Q2: 他のOutlookアイテム（例えば、予定表やタスク）でも同様の方法でアカウントを指定できますか？
今すぐ解決したい！どうしたらいい？
まとめ

Outlook VBAとは？

Outlookのイメージ

まず、Outlook VBAについて簡単に説明します。VBA（Visual Basic for Applications）は、Microsoft Office製品に組み込まれているプログラミング言語で、Outlookの操作を自動化することができます。これにより、日々のメール作成や送信作業を効率化できます。

特定のアカウントからメールを送信する手順

では、具体的な手順を見ていきましょう。

1. 開発者タブの表示

まず、Outlookで開発者タブを表示する必要があります。

Outlookを開き、左上の「ファイル」タブをクリックします。
「オプション」を選択し、表示されたウィンドウで「リボンのユーザー設定」をクリックします。
右側のリストから「開発者」にチェックを入れ、「OK」をクリックします。

これで、リボンに「開発者」タブが表示されます。

2. VBAエディターの起動

次に、VBAエディターを起動します。

「開発者」タブをクリックし、「Visual Basic」を選択します。
VBAエディターが開いたら、左側のプロジェクトエクスプローラーで「ThisOutlookSession」をダブルクリックします。

3. コードの入力

以下のコードを入力してみましょう。このコードは、特定のアカウントからメールを送信するものです。

vb

Sub SendMailFromSpecificAccount()

    Dim olApp As Outlook.Application

    Dim olMail As Outlook.MailItem

    Dim olAccount As Outlook.Account

    Dim accountName As String
    ' Outlookアプリケーションを取得

    Set olApp = Application
    ' 送信に使用するアカウント名を指定

    accountName = "your-email@example.com" ' ここを使用したいアカウントのメールアドレスに変更してください
    ' 新しいメールアイテムを作成

    Set olMail = olApp.CreateItem(olMailItem)
    ' 指定したアカウントを検索して設定

    For Each olAccount In olApp.Session.Accounts

        If olAccount.SmtpAddress = accountName Then

            Set olMail.SendUsingAccount = olAccount

            Exit For

        End If

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

    olMail.Subject = "テストメール"

    olMail.Body = "これはテストメールです。"

    olMail.To = "recipient@example.com" ' 送信先のメールアドレスに変更してください
    ' メールを送信

    olMail.Send