如何使用 Outlook VBA 將特定已發送電子郵件自動保存到特定文件夾

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

默認情況下，Outlook 會將已發送的電子郵件保存在“已發送郵件”文件夾中。 如果您不想將特定發送的郵件保存在默認文件夾中，您可以使用本文介紹的方法。

一些用戶希望將一些已發送的電子郵件自動保存到指定的文件夾中，而不是將它們保存在默認的“已發送郵件”文件夾中。 因此，許多人求助於 Outlook 規則，該規則提供了類似的操作——“將副本移動到指定文件夾”，如下面的屏幕截圖所示。 但是，通過這種方式，實際上原始發送的電子郵件仍然保存在“已發送郵件”文件夾中。 只有已發送電子郵件的副本才會移動到指定文件夾。 顯然，此功能無法滿足實際需求。創建規則以自動將副本移動到指定文件夾

當然，用戶可以手動指定一個非默認文件夾來保存已發送的電子郵件。 只需轉到“選項”選項卡，然後單擊“將發送的項目保存到”>“其他文件夾”。 但是這種方法會很麻煩，因為用戶每次都必須手動指定文件夾。手動將發送的項目保存到其他文件夾

既然上面提到的兩種方法都沒有效率，為什麼不回到 Outlook VBA？ 以下是將特定發送的電子郵件自動保存到特定文件夾的具體代碼和步驟。

自動保存特定發送的電子郵件到特定文件夾

  1. 到tar然後啟動Outlook應用程序。
  2. 然後你應該按下“Alt + F11”鍵按鈕，這將幫助你訪問 VBA 編輯器窗口。
  3. 在彈出的“Microsoft Visual Basic for Applications”窗口中，您可以找到並雙擊左側的“ThisOutlookSession”項目。
  4. 接下來在打開的“ThisOutlookSession”項目窗口中，您應該將以下 VBA 代碼複製到其中。
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim SentFolder As Folder
    Dim desFolder As Folder
 
    If TypeName(Item) = "MailItem" And Item.DeleteAfterSubmit = False Then
       'Specify the sent emails
       If InStr(Item.To, "shirley") > 0 Or InStr(LCase(Item.Subject), "test") > 0 Then
          'Specify the folder for saving the sent emails
          'You can change it as per your needs
          Set SentFolder = Application.Session.GetDefaultFolder(olFolderSentMail)
          Set desFolder = SentFolder.Folders("Test")
          Set Item.SaveSentMessageFolder = desFolder
       End If
    End If
End Sub

VBA 代碼 - 將特定發送的電子郵件自動保存到特定文件夾

  1. 隨後，您應該簽署此代碼並將您的 Outlook 宏級別調整為低。
  2. 最後，您可以退出當前窗口。 從現在開始，特定發送的郵件將自動保存到指定的郵件文件夾中。

額外提示：發送時顯示“選擇文件夾”對話框

有些人想手動選擇郵件文件夾來保存已發送的電子郵件。 但是總是去“選項”選項卡選擇文件夾會很麻煩。 在這種情況下，他們希望 Outlook 可以在發送時自動顯示“選擇文件夾”對話框。 針對這一要求，這裡有另一個 VBA 代碼。 您可以將其複製到“ThisOutlookSession”項目中。

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim desFolder As Folder
 
    If TypeName(Item) = "MailItem" And Item.DeleteAfterSubmit = False Then
       'specify the email
       If InStr(Item.To, "shirley") > 0 Or InStr(LCase(Item.Subject), "test") > 0 Then
          'Display the “Select Folder” dialog box
          Set desFolder = Application.Session.PickFolder
          Set Item.SaveSentMessageFolder = desFolder
       End If
    End If
End Sub

VBA 代碼 - 發送時自動顯示“選擇文件夾”對話框

從現在開始，每次完成電子郵件並單擊“已發送”按鈕時，都會自動彈出“選擇文件夾”對話框，如下圖所示。 此時，您可以指定文件夾來保存當前發送的電子郵件。選擇文件夾對話框

維修展望

Outlook 因其多種功能而廣受讚譽。 然而，正是由於功能豐富，Outlook 很容易受到攻擊。 此外，惡意電子郵件是其中之一ost Outlook 數據的潛在威脅。 因此，作為普通 Outlook 用戶，您最好找一個卓越的 Outlook PST 郵件修復工具一樣， DataNumen Outlook Repair. 因此，您可以快速解決各種 Outlook 錯誤並確保您的 Outlook 數據受到良好保護。

作者簡介：

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

立即分享：

評論被關閉。