如何自動將Outlook電子郵件保存到硬盤/磁盤?
為了備份,工作證據或其他目的,您可能需要將Outlook電子郵件保存到硬盤驅動器。 通過從Outlook手動拖動到磁盤,可以輕鬆地將幾封電子郵件保存到磁盤。 但是,您知道如何自動將每個收到的電子郵件保存到磁盤嗎? 本文將介紹在Outlook中處理它的VBA。
自動將Outlook電子郵件保存到硬盤/磁盤
此方法將引入VBA,以自動將Outlook中的所有傳入電子郵件作為單獨的HTML文件保存到特定磁盤。 請執行以下操作:
1。 按 其他 + F11 鍵以打開“ Microsoft Visual Basic應用程序”窗口。
2。 展開Project1,然後雙擊 本次展望會議 打開它,然後將下面的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 將在 Documents 資料夾下建立一個名為「MyEmails」的資料夾。 您可以透過以下資料夾路徑找到自動儲存的電子郵件: C:\Users\你的使用者名稱\Documents\MyEmails
(2) 此 VBA 將適用於預設電子郵件帳戶的收件匣資料夾中收到的電子郵件。
相關文章
最佳辦公生產力工具
Kutools for Outlook - 超過 100 種強大的功能可增強您的 Outlook
🤖 人工智慧郵件助手: 具備人工智慧魔力的即時專業電子郵件——一鍵天才回覆、完美語調、多語言掌握。輕鬆改變電子郵件! ……
📧 電子郵件自動化: 外出(適用於 POP 和 IMAP) / 安排發送電子郵件 / 發送電子郵件時按規則自動抄送/密件副本 / 自動轉送(進階規則) / 自動添加問候語 / 自動將多收件者電子郵件拆分為單獨的訊息 ...
📨 電子郵件管理: 輕鬆回憶電子郵件 / 按主題和其他人阻止詐騙電子郵件 / 刪除重複的電子郵件 / 進階搜索 / 合併資料夾 ...
📁 附件專業版: 批量保存 / 批量分離 / 批量壓縮 / 自動保存 / 自動分離 / 自動壓縮 ...
🌟 介面魔法: 😊更多又漂亮又酷的表情符號 / 使用選項卡式視圖提高 Outlook 工作效率 / 最小化 Outlook 而不是關閉 ...
👍 一鍵奇蹟: 使用傳入附件回覆全部 / 反網路釣魚電子郵件 / 🕘顯示寄件者的時區 ...
👩🏼🤝👩🏻 通訊錄和行事曆: 從選定的電子郵件中大量新增聯絡人 / 將聯絡人群組拆分為各組 / 刪除生日提醒 ...
超過 100特點 等待您的探索! 按此處了解更多。