如何在 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 就會自動將其附件（不含郵件內文）轉發給指定人員！

注意：此程式碼僅適用於預設帳戶。