如何根據附件文件名將傳入的電子郵件自動移動到特定的文件夾

Outlook解決方案 2025 年 9 月 29 日
立即分享：

許多用戶希望Outlook可以根據附件文件名稱自動將傳入的電子郵件移動並存檔到特定的郵件文件夾。 因此，在本文中，我們將介紹一種快速的方法來幫助您使用Outlook VBA。

如果您希望根據其附件的文件名將傳入的電子郵件自動移動到特定的文件夾，則絕對可以考慮首先使用Outlook規則。 但是，您最終會發現Outlook規則沒有檢查附件文件名的功能。 因此，如果您確實想實現它，則必須使用其他方式，例如通過第三方加載項或Outlook VBA。 因此，在這裡我們將教您如何使用VBA實現它。 繼續閱讀以獲取詳細的操作和具體的VBA代碼。

根據附件文件名自動將傳入電子郵件移動到特定文件夾

根據附件自動將傳入電子郵件移動到特定文件夾

  1. 對於作為tart，正常啟動Outlook程序。
  2. 然後按“ Alt + F11”鍵按鈕訪問VBA編輯器。
  3. 在隨後的“ Microsoft Visual Basic for Applications”窗口中，您可以找到並雙擊左側的“ ThisOutlookSession”項目。
  4. 接下來，在打開的“ ThisOutlookSession”項目窗口中，複製並粘貼以下VBA代碼。
Public WithEvents objMails As Outlook.Items

Private Sub Application_Startup()
 Set objMails = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub objMails_ItemAdd(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
    Dim objAttachments As Outlook.attachments
    Dim objAttachment As Outlook.Attachment
    Dim strAttachmentName As String
    Dim objInboxFolder As Outlook.Folder
    Dim objTargetFolder As Outlook.Folder
 
    'Ensure the incoming item is an email
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       Set objAttachments = objMail.attachments
 
       'Check if the incoming email contains one or more attachments
       If objAttachments.Count > 0 Then
          For Each objAttachment In objAttachments
              strAttachmentName = objAttachment.DisplayName
              Set objInboxFolder = Application.Session.GetDefaultFolder(olFolderInbox)
              'Check the names of all the attachments
              'Specify the target folders
              If InStr(LCase(strAttachmentName), "worklog") > 0 Then
                 Set objTargetFolder = objInboxFolder.Folders("WorkLog")
              ElseIf InStr(LCase(strAttachmentName), "report") > 0 Then
                 Set objTargetFolder = objInboxFolder.Folders("Report")
              ElseIf InStr(LCase(strAttachmentName), "statistics") > 0 Then
                 Set objTargetFolder = objInboxFolder.Folders("Statistics")
              End If
         Next
         'Move the email to specific folder
          objMail.Move objTargetFolder
       End If
    End If
End Sub

VBA代碼-根據附件文件名自動將傳入電子郵件移動到特定文件夾

  1. 隨後，您需要對新的VBA項目進行數字簽名。
  • 首先，您可以使用內置工具-VBA項目的數字證書來創建個人證書。
  • 然後在VBA編輯器中，單擊工具欄中的“工具”>“數字簽名”。
  • 接下來，按照屏幕上的說明進行簽名。
  1. 之後，您可以退出VBA編輯器並將Outlook宏安全性更改為低。
  2. 以後你應該重新tart Outlook激活新的VBA項目。
  3. 最終，從現在開始，Outlook將自動檢查所有傳入電子郵件的附件文件名，並將特定的文件名移至特定的文件夾。根據附件文件名存檔電子郵件

保護您的PST數據

這是阿爾姆ost 毫無疑問，Outlook容易受到損壞。 因此，保護您的PST數據不受損壞是一項艱鉅的任務。 但是您仍然可以找到一些規則和提示。 例如，為了避免PST數據丟失，您可以堅持進行常規數據備份。 此外，為了在Outlook崩潰後立即提供救援，您可以準備一個經驗豐富的 PST修復 工具，例如 DataNumen Outlook Repair.

作者簡介：

Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 SQL Server 復甦 和Outlook修復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM

立即分享：

評論被關閉。