如何在Outlook中根据特定条件自动转发仅包含附件的邮件？

Author: Xiaoyang Last Modified: 2025-07-31

通常，在转发电子邮件时，原始邮件正文和附件也会一并包含在内。但是，有时您可能需要根据某些条件将仅包含附件的内容转发给特定的人，而不包括原始邮件正文。那么，如何在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

注意：在上述代码中，您应将主题文本和收件人地址更改为自己的内容。