Outlook で特定の条件に基づいて添付ファイルのみを自動転送するには、どうすればよいですか？

通常、メールを転送する際には、元の本文と添付ファイルの両方が含まれますが、特定の人物に対して、特定の条件に基づき、元のメッセージ本文を含めずに添付ファイルのみを転送したい場合があります。Outlook では、この操作をどのように実現すればよいでしょうか？

VBA コードを使用して、特定の条件に基づき添付ファイルのみを自動的に相手に転送する

---

VBA コードを使用して、特定の条件に基づき添付ファイルのみを自動的に相手に転送する

たとえば、「kto feature」というテキストを件名に含むメールを受信した際に、そのメールのすべての添付ファイルが自動的に指定された相手にメッセージ本文なしで転送されるように設定できます。以下の手順に従って設定してください。

1．ALT + F11キーを押すと、Microsoft Visual Basic for Applicationsウィンドウが開きます。

2．Microsoft Visual Basic for Applicationsウィンドウで、左側のThisOutlookSessionをProject1(VbaProject.OTM)ペインからダブルクリックしてモジュールを開き、次のコードを空のモジュールにコピー＆ペーストしてください。

VBA コード：メッセージ本文を含めず、添付ファイルのみを含むメールを自動転送するコード：

Public WithEvents ReceivedItems As Outlook.Items
Private Sub Application_Startup()
    Set ReceivedItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub ReceivedItems_ItemAdd(ByVal Item As Object)
    Dim xForwardMail As Outlook.MailItem
    Dim xEmail As MailItem
    On Error Resume Next
    If Item.Class <> olMail Then Exit Sub
    Set xEmail = Item
    If InStrRev(UCase(xEmail.Subject), UCase("kto feature")) = 0 Then Exit Sub  'change subject text to your need
    If xEmail.Attachments.Count = 0 Then Exit Sub
    Set xForwardMail = xEmail.Forward
    With xForwardMail
        .HTMLBody = ""
        With .Recipients
            .Add "skyyang@addin88.com"    'change address to your own
            .ResolveAll
        End With
        .Send
    End With
End Sub

注：上記コード内の件名と受信者のメールアドレスは、必ずご自身の情報に変更してください。

3．その後、コードを保存して Outlook を再起動すると、コードが有効になります。

4．これ以降、特定の件名テキストを含む新規メールが受信トレイに届くたびに、Outlook はメッセージ本文を除き、添付ファイルのみを指定された相手に自動転送します。

注：このコードはデフォルトのアカウントでのみご利用いただけます。