Outlookで常に特定のアカウントから新しいメールを送信するにはどうすればよいですか？

Author: Siluvia Last Modified: 2025-05-23

複数のメールアカウントをOutlookに作成していると仮定すると、Outlookでメールを送信する際、差出人フィールドに表示されるメールアカウントは、現在使用しているアカウントによって異なります。どのアカウントを使用していても、常に特定のメールアカウントから新しいメールを送信したい場合、次のチュートリアルが役立ちます。この方法により、その目的を達成できます。

VBAコードを使用して常に特定のアカウントから新しいメールを送信する

VBAコードを使用して常に特定のアカウントから新しいメールを送信する

このVBAコードを使用すると、Outlookで特定のアカウントから簡単に新しいメールを送信できます。以下の手順に従ってください。

1. 「Alt」+「F11」キーを押して、「Microsoft Visual Basic for Applications」ダイアログボックスを開いてください。

2. 「Project1」>「Microsoft Outlook Objects」をダブルクリックして展開し、次に「ThisOutlookSession」をダブルクリックして「VbaProject.OTM」ダイアログボックスを開きます。

steps of always sending a new email from specific account in outlook

3. 以下のVBAコードをダイアログボックスにコピーして貼り付けてください。

VBA: 常に特定のアカウントから新しいメールを送信する

Public Sub NewBySpecAccount()
Dim oAccount As Outlook.Account
Dim oMail As Outlook.MailItem
For Each oAccount In Application.Session.Accounts
If oAccount.DisplayName = "Your account name" Then
    Set oMail = Application.CreateItem(olMailItem)
    oMail.SendUsingAccount = oAccount
    oMail.Display
End If
Next
End Sub

4. 次に、「Your account name」を、常に新しいメールを送信したいメールアカウント名に変更します。