メインコンテンツへスキップ

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

Outlook で複数の電子メール アカウントを作成した場合、Outlook で電子メールを送信するときに、送信者フィールドに表示される電子メール アカウントは、現在使用しているアカウントによって異なります。現在使用しているアカウントに関係なく、常に新しい電子メールを送信したい特定のメール アカウントからのメールについては、次のチュートリアルが役立ちます。このチュートリアルの方法が役立ちます。

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

Office タブ - Microsoft Office でタブによる編集と参照を有効にし、仕事をスムーズにします
Kutools for Outlook - 100 以上の高度な機能で Outlook を強化し、優れた効率を実現します
これらの高度な機能を使用して、Outlook 2021 ~ 2010 または Outlook 365 を強化します。 包括的な 60 日間の無料トライアルを利用して、メール エクスペリエンスを向上させてください。

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

このVBAコードは、Outlookの特定のアカウントから新しい電子メールを簡単に送信するのに役立ちます。 次のようにしてください。

1.を押してください 他の + F11 を開く アプリケーション向け Microsoft Visual Basic ダイアログボックス。

2.を展開します Project1 > MicrosoftOutlookオブジェクト それらをダブルクリックします。 そして、ダブルクリックします このOutlookSession を開く 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.次に、「あなたのアカウント名」を常に新しいメールを送信したいメールアカウントに送信します。 スクリーンショットを参照してください:

5.次にを押します F5 キーボードのキーを押して、VBAコードを実行します。

6. VBAコードを実行した後、新しい お問い合わせ内容 ウィンドウがポップアップします。メールを作成してクリックしてください 送信 それを送信するボタン。

Note:このVBAコードは、Outlook 2007、2010、および2013で正常にテストされていますが、Exchange2007および2010では実行されません。

 


最高のオフィス生産性向上ツール

Outlook用Kutools - Outlook を強化する 100 以上の強力な機能

📧 自動メール: 不在時 (POP および IMAP で利用可能)  /  メール送信のスケジュール設定  /  メール送信時のルールによる自動CC/BCC  /  自動転送 (高度なルール)   /  あいさつを自動追加   /  複数受信者の電子メールを個別のメッセージに自動的に分割する ...

📨 電子メール管理: メールを簡単に思い出す  /  件名などで詐欺メールをブロック  /  重複するメールを削除する  /  高度な検索  /  フォルダーを統合する ...

📁 アタッチメント プロバッチ保存  /  バッチデタッチ  /  バッチ圧縮  /  自動保存   /  自動デタッチ  /  自動圧縮 ...

🌟 インターフェースマジック: 😊もっと可愛くてクールな絵文字   /  タブ付きビューで Outlook の生産性を向上  /  Outlook を閉じる代わりに最小化する ...

???? ワンクリックの驚異: 受信した添付ファイルをすべてに返信する  /   フィッシングメール対策  /  🕘送信者のタイムゾーンを表示 ...

👩🏼‍🤝‍👩🏻 連絡先とカレンダー: 選択したメールから連絡先を一括追加  /  連絡先グループを個別のグループに分割する  /  誕生日のリマインダーを削除する ...

オーバー 100の特長 あなたの探索をお待ちしています! ここをクリックして詳細をご覧ください。

 

 

 

Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This code does not work if you have multiple Exchange accounts defined in your profile - pointing to different exchange servers.

In that case you need a variation on this code from Microsoft.

https://learn.microsoft.com/en-us/office/vba/outlook/concepts/accounts/create-a-sendable-item-for-a-specific-account-based-on-the-current-folder-outloo
This comment was minimized by the moderator on the site
Hi, the "VBA: always send a new email from specific account." does not work. If you want to send email from Excel, you have to change Outlook settings. Outlook - File - Account settings. Here you have to prioritise different email and different datafiles you have access to besides your usual account (email). This will work even if Outlook is closed then. (W10, O365)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations