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

Author: Xiaoyang Last Modified: 2025-05-23

通常、メールを転送する際には、元のメッセージ本文と添付ファイルも含まれます。しかし、時には、特定の基準に基づいて、元のメッセージなしに添付ファイルのみを特定の人に転送したい場合があります。Outlookでこの作業をどのように解決すればよいでしょうか？

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

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

例えば、「kto feature」というテキストが件名に含まれるメールを受信した場合、そのメールのすべての添付ファイルが本文なしで特定の人に自動的に転送されます。次の手順はあなたを助けることができますので、以下のように行ってください：

1. ALT + F11 キーを押しながら押して、 Microsoft Visual Basic for Applications ウィンドウを開きます。

2. Microsoft Visual Basic for Applications ウィンドウで、Project1(VbaProject.OTM) ペインから ThisOutlookSession をダブルクリックしてモードを開き、以下のコードを空白のモジュールにコピーして貼り付けます。

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

注意: 上記のコードでは、件名のテキストと宛先アドレスを自分のものに変更する必要があります。