Outlookでカスタムの件名と本文を使用して特定の受信メールを自動転送する方法

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

特定の受信メールを自動転送するには、まずOutlookでルールを使用することを検討します。ただし、ルールでは、転送時にメールの件名と本文をカスタマイズすることはサポートされていません。カスタムの件名と本文を含む特定の電子メールを自動転送する場合は、この記事で紹介した方法を使用できます。

ご存知のとおり、Outlookのルールは、ユーザーが特定の受信メールを自動的に転送することをサポートできます。これにより、「FW：元のメールの件名」のパターンの件名と元のメール本文を持つ特定の人にメールが自動転送されます。ただし、多くのユーザーは、カスタムの件名と本文を使用して電子メールを自動転送することを望んでいます。どうやら、ルールはそれを実現することはできません。そのため、ここでは簡単に入手できるアプローチを紹介します。

カスタムの件名と本文を使用して特定の受信メールを自動転送する

非常に最初に、starOutlookプログラム。
次に、「」を参照してVBAエディタにアクセスします。OutlookでVBAコードを実行する方法"
次に、次のVBAコードをコピーして「ThisOutlookSession」プロジェクトに貼り付けます。

Public WithEvents objInbox As Outlook.Folder
Public WithEvents objInboxItems As Outlook.Items

Private Sub Application_Startup()
    Set objInbox = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Set objInboxItems = objInbox.Items
End Sub

Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
    Dim objForward As Outlook.MailItem
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       'If it is a specific new email
       If (objMail.SenderEmailAddress = "bob_black@datanumen.com") And (objMail.Importance = olImportanceHigh) And (objMail.Attachments.Count > 0) Then
 
           Set objForward = objMail.Forward
           'Customize the forward subject, body and recipients
           With objForward
                .Subject = "Custom Subject"
                .HTMLBody = "<HTML><BODY>Type body here. </BODY></HTML>" & objForward.HTMLBody
                .Recipients.Add ("boss@datanumen.com")
                .Recipients.Add ("john@datanumen.com")
                .Recipients.ResolveAll
                .Importance = olImportanceHigh
                .Send
           End With
       End If
    End If
End Sub

その後、指定した受信メールの条件を変更します。また、必要に応じて、コード内の特定の本文、件名、および受信者を変更します。
最終的に、「Application_S」をクリックしますtar「tup」サブルーチンを選択し、「F5」キーを押します。
それ以降、特定の着信がデフォルトの受信トレイフォルダーに到着するたびに、Outlookはそれをカスタムの件名と本文とともに事前定義された受信者に自動的に転送します。

Outlookの問題に柔軟に対処する

Outlookは機能が豊富ですが、エラーやその他の問題の影響を受けないようにすることはできません。たとえば、OutlookのPSTファイルは複数の要因により簡単に破損する可能性があります。これらには、人為的エラー、ウイルス、特大のPSTファイル、破損したOutlookプロファイルなどが含まれます。そのため、Outlook PSTファイルのサイズに注意する、すべてのウイルスを寄せ付けない、堅牢性を確保するなど、いくつかの予防策を講じる必要があります。 Outlookの回復などのツール DataNumen Outlook Repair.

著者紹介：

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