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

Outlook に複数のメールアカウントを設定している場合、新規メール作成時に「差出人」欄に表示されるアカウントは、現在使用中のアカウントによって変わります。現在のアカウントに関係なく、常に特定のメールアカウントからメールを送信したい場合は、以下のチュートリアルが役立ちます。ぜひこの方法をお試しください。

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

---

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

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

1。「Alt」＋「F11」キーを押して、「Microsoft Visual Basic for Applications」ウィンドウを開いてください。

2。「Project1」＞「Microsoft Outlook Objects」をダブルクリックして展開し、続けて「ThisOutlookSession」をダブルクリックすると、「VbaProject.OTM」ダイアログボックスが開きます。

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 ユーザー名」を、常に新規メールの送信元として使用したいメールアカウントに変更してください。

5。その後、「F5」キーを押して VBA コードを実行します。

6。VBA コードを実行すると新しい「メッセージ」ウィンドウが開きますので、メールを作成して「送信」ボタンをクリックし、送信してください。

注：この VBA コードはOutlook 2007、2010、および2013 で正常に動作することを確認済みですが、Exchange 2007 および2010 では実行しないでください。