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

通常，在转发邮件时，原始邮件的正文和附件都会一同发送。但有时，您可能只需根据特定条件，将附件单独转发给指定人员，而无需包含原始邮件内容。在 Outlook 中，该如何实现？

使用 VBA 代码自动根据特定条件仅将附件转发给指定联系人

---

使用 VBA 代码自动根据特定条件仅将附件转发给指定联系人

例如，当您收到一封主题或正文中包含“kto feature”字样的邮件时，系统会自动将该邮件的所有附件（不含正文）转发给指定联系人。请按照以下步骤进行操作：

1. 按住 ALT + F11 键，即可打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，双击 Project 1(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

注意：请将上述代码中的主题文本和收件人地址替换为您自己的信息。

3. 保存代码后，重启 Outlook 即可使代码生效。

4. 从现在开始，每当有带有特定主题文本的新邮件到达您的收件箱时，Outlook 会自动将其附件（不包括正文）转发给指定联系人。

注意：此代码仅适用于默认账户，敬请留意。