如何使用Outlook VBA自動保存特定的電子郵件附件

Outlook解決方案 2025 年 9 月 29 日

許多用戶希望Outlook可以自動在附件名稱中查找特定的單詞，然後將特定的附件保存到其計算機上的本地文件夾中。本文將教您如何使用Outlook VBA完成此任務。

在我的日常工作中，如果收到的電子郵件中的附件不是很重要，我寧願不要將其保存到本地磁盤，只需直接在Outlook中閱讀它們即可。但是，如果附件很重要，例如人事法規，每月工作報告，我會將它們保存到計算機上的特定文件夾中。在這種情況下，我希望將Outlook配置為自動將名稱包含特定單詞的電子郵件附件保存到某個文件夾。因此，我找到了一種使用Outlook VBA來實現它的快速方法。以下是詳細的VBA代碼和步驟：

自動保存特定的電子郵件附件

首先，您應該啟動Outlook並轉到“開發人員”選項卡。
隨後，單擊“代碼”組中的“ Visual Basic”按鈕。
然後，在“ Visual Basic”窗口中，應打開“ ThisOutlookSession”項目，並將以下代碼複製到其中。

Public WithEvents olItems As Outlook.Items

Private Sub Application_Startup()
    Set olItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub olItems_ItemAdd(ByVal Item As Object)
    Dim NewMail As Outlook.MailItem
    Dim Atts As Attachments
    Dim Att As Attachment
    Dim strPath As String
    Dim strName As String
 
    If Item.Class = olMail Then
       Set NewMail = Item
    End If
 
    Set Atts = Item.Attachments
 
    If Atts.Count > 0 Then
       For Each Att In Atts
           'Replace "test" with what you want to look for in attachment name
           If InStr(LCase(Att.FileName), "test") > 0 Then
              'Use your wanted destination folder path to save the attachments
              strPath = "C:\Attachments\"
              strName = NewMail.Subject & " " & Chr(45) & " " & Att.FileName
              Att.SaveAsFile strPath & strName
           End If
       Next
    End If
End Sub