如何在 Outlook 中根據特定條件自動轉寄僅附件？

Author: Xiaoyang Last Modified: 2025-08-06

通常，在轉寄電子郵件時，原始郵件的正文和附件也會一併包含在內。但有時候，您可能需要根據某些條件，僅將附件轉寄給特定的人，而不包含原始郵件內容。那麼，該如何在 Outlook 中實現這個功能呢？

使用 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

注意：在上述程式碼中，您應該將主題文字和收件人地址更改為您自己的資訊。