如何自動將 Outlook 電子郵件儲存至硬碟或磁碟？

出於備份、工作憑證或其他需求，您或許希望將 Outlook 電子郵件儲存至硬碟。手動將幾封郵件從 Outlook 拖曳到磁碟上，即可輕鬆完成這項操作。但您知道如何自動將每一封新收到的郵件儲存至硬碟嗎？本文將介紹一段 VBA 程式碼，協助您在 Outlook 中實現此功能。

自動將 Outlook 電子郵件儲存至硬碟／磁碟

---

自動將 Outlook 電子郵件儲存至硬碟／磁碟

此方法將介紹一段 VBA 程式碼，可自動將 Outlook 中每一封新收到的郵件以獨立 HTML 檔案格式儲存至指定磁碟。請依照下列步驟操作：

1. 按下「Alt」+「F11」鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 展開 Project 1，雙擊「ThisOutlookSession」以開啟該模組，然後將下方的 VBA 程式碼貼入 ThisOutlookSession 視窗中。請參閱截圖：

VBA：自動將 Outlook 電子郵件以 HTML 文件格式儲存至磁碟

Private WithEvents InboxItems As Outlook.Items
Sub Application_Startup()
 Dim xNameSpace As Outlook.NameSpace
 Set xNameSpace = Outlook.Application.Session
 Set InboxItems = xNameSpace.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub InboxItems_ItemAdd(ByVal objItem As Object)
 Dim FSO
 Dim xMailItem As Outlook.MailItem
 Dim xFilePath As String
 Dim xRegEx
 Dim xFileName As String
 On Error Resume Next
 xFilePath = CreateObject("WScript.Shell").SpecialFolders(16)
 xFilePath = xFilePath & "\MyEmails"
 Set FSO = CreateObject("Scripting.FileSystemObject")
 If FSO.FolderExists(xFilePath) = False Then
 FSO.CreateFolder (xFilePath)
 End If
 Set xRegEx = CreateObject("vbscript.regexp")
 xRegEx.Global = True
 xRegEx.IgnoreCase = False
 xRegEx.Pattern = "\||\/|\|""|:|\*|\\|\?"
 If objItem.Class = olMail Then
 Set xMailItem = objItem
 xFileName = xRegEx.Replace(xMailItem.Subject, "")
 xMailItem.SaveAs xFilePath & "\" & xFileName & ".html", olHTML
 End If
 Exit Sub
End Sub

3. 儲存 VBA 程式碼，然後重新啟動 Microsoft Outlook。

從現在起，每封新收到的郵件都會以獨立 HTML 檔案格式儲存至「MyEmails」資料夾中。

注意事項：
（1) 此 VBA 會在「文件」資料夾中建立一個名為「MyEmails」的資料夾。您可透過以下路徑存取自動儲存的郵件：C：\Users\your_user_name\Documents\MyEmails
（2) 此 VBA 僅適用於預設電子郵件帳戶收件匣中的已接收郵件。

---

相關文章

如何在 Outlook 中將大量或選定的郵件匯出至 Excel、文字檔或 PST 檔案？