Outlookの別のアカウントを介して特定の受信メールを自動転送する方法

Outlookソリューション 2025 年 9 月 29 日

一部のユーザーは、Outlookで複数の電子メールアカウントを構成し、XNUMXつをデフォルトアカウントとして設定しています。ただし、Outlookが特定の受信メールを別のアカウントから自動転送することも望んでいます。 Outlookにはそのような機能がないため、この記事で共有するVBAコードでのみ実現できます。

たとえば、Outlookで3つのPOP1電子メールアカウントを設定し、アカウント1をデフォルトのアカウントとして設定しました。これにより、すべての受信メールがアカウント2のOutlookファイルに保存されます。また、特定の受信メールを他のユーザーに自動転送するOutlookルールを作成します。ここで、すべてのメール転送が別の電子メールアカウント、つまりアカウントXNUMXを介して実行されることを期待します。ただし、Outlookルールはそのようなアクションを提供しません。したがって、次のような他の方法を使用する必要があります。

別のアカウントを介して特定の受信メールを自動転送する

まず、Outlookで、「Alt + F11」を介してVBAエディターにアクセスします。
次に、VBAエディターで、次のVBAコードをアイドル状態のモジュールに配置します。

Sub AutoForwardMailsThroughAnotherAccount(objMail As Outlook.MailItem)
    Dim objForwardMail As Outlook.MailItem
    Dim objRecipient As Outlook.Recipient
    Dim objMailAccounts As Outlook.Accounts
    Dim objMailAccount As Outlook.Account
 
    Set objForwardMail = objMail.Forward
    'Change the recipients of forwarding email
    Set objRecipient = objForwardMail.Recipients.Add("shelly@datanumen.com")
    objRecipient.Type = olTo
    objForwardMail.Recipients.ResolveAll
 
    Set objMailAccounts = Outlook.Application.Session.Accounts
    For Each objMailAccount In objMailAccounts
        'Replace "John Smith" with the display name of your email account
        If objMailAccount.DisplayName = "John Smith" Then
           objForwardMail.SendUsingAccount = objMailAccount
           objForwardMail.Send
        End If
    Next
End Sub

次に、VBAエディターを終了します。
続いて、「ホーム」タブの「ルール」>「ルールとアラートの管理」をクリックします。
次に、新しいダイアログボックスで「新しいルール」をクリックします。
その後、別のダイアログボックスが表示されます。このダイアログボックスで、[受信したメッセージにルールを適用する]を選択し、[次へ]をクリックする必要があります。
次に、新しい画面で、「件名に特定の単語を含める」などのルール条件を設定し、「次へ」をクリックする必要があります。
次の画面で、「スクリプトの実行」を選択し、今追加した新しいマクロを選択する必要があります。
その後、画面上のウィザードに従ってルールの設定を完了することができます。
これ以降、特定の電子メールが特定のメールボックスに届くたびに、Outlookは別の特定の電子メールアカウントを介してそれを自動転送します。

損傷後のOutlookデータのサルベージ

Outlookは多くの機能を提供しますが、それでもエラーや破損がないわけではありません。 Outlookが突然クラッシュした場合、Outlookデータファイルが破損している可能性があります。その時、作り付けでさえ Outlookの修復ツール、Scanpstはあなたを助けることができません。次のような手ごわい外部ツールを利用する以外に方法はありません。 DataNumen Outlook Repair.

著者紹介：

Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。破損したSQL と見通し修理ソフトウェア製品。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com