如何僅基於Outlook中的特定條件自動轉發附件？

通常，轉發電子郵件時，還會包含原始郵件正文和附件。 但是，有時，您只需要轉發附件，而無需將基於標準的原始郵件轉發給特定的人。 您如何在Outlook中解決這項工作？

僅根據特定條件將附件自動轉發給具有VBA代碼的人員

僅根據特定條件將附件自動轉發給具有VBA代碼的人員

例如，當收到一封主題為“ kto feature”的電子郵件時，該電子郵件的所有附件將自動轉發給特定的人，而無需消息正文。 以下步驟可以為您提供幫助：

1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2。 在 Microsoft Visual Basic for Applications 窗口，雙擊 本次展望會議 來自 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 ""    'change address to your own
            .ResolveAll
        End With
        .Send
    End With
End Sub

備註：在上面的代碼中，您應該將主題文本和收件人地址更改為您自己的主題文本和收件人地址。

3。 然後保存代碼，然後重新啟動Outlook以使代碼生效。

4。 從現在開始，每當一封包含特定主題文本的新電子郵件到達您的郵箱時，Outlook都會自動將其附件轉發，而無需將郵件正文發送給所需的人員。

備註：此代碼僅適用於默認帳戶。