用戶可能希望將電子郵件保存在硬盤驅動器上，以便獨立於Outlook查看電子郵件或與他人共享。 在本文中，我們將介紹如何通過VBA自動執行此操作。
從Outlook導出電子郵件
並非每個互聯網用戶都將Outlook用作電子郵件客戶端，並且可能正在使用其他客戶端。 可能還有一種情況，需要與某人共享電子郵件，而不發送實際電子郵件。 此外，出於文檔編制和審查目的，通常將電子郵件作為證據。 對於此類情況，Outlook提供了一種將電子郵件獨立導出為.msg或.html文件的方法。 以下VBA腳本將所有傳入電子郵件自動保存到硬盤驅動器上的預定義位置，而無需用戶以html格式進行干預。 保存後，可以在任何Internet瀏覽器中查看電子郵件，而無需電子郵件客戶端。
Outlook VBA腳本
以下是完整的Outlook VBA腳本：
Private WithEvents Items As Outlook.Items
Private Count As Integer
Private Sub Application_Startup()
Dim objApp As Outlook.Application
Dim objNameSpace As Outlook.NameSpace
' Get the items in the Inbox folder
Set objApp = Outlook.Application
Set objNameSpace = objApp.GetNamespace("MAPI")
Set Items = objNameSpace.GetDefaultFolder(olFolderInbox).Items
' Initialize count
Count = 1
End Sub
Private Sub Items_ItemAdd(ByVal objItem As Object)
On Error GoTo ShowError
Dim objMail As Outlook.MailItem
' Check if the item is a mail. If yes, then save it as a HTML file and update Count
If TypeName(objItem) = "MailItem" Then
Set objMail = objItem
objMail.SaveAs "C:\MyEmails\MyEmail" & CStr(Count), olHTML
Count = Count + 1
End If
Exit Sub
ShowError:
MsgBox Err.Number & " - " & Err.Description
End Sub
如何運行腳本
媒體中心 Alt + F11鍵 打開Outlook VBA編輯器，並將上面的代碼粘貼到“ ThisOutlookSession”中。 在運行此腳本之前，請確保文件夾“ C：\ MyEmails”存在，並且用戶對其具有寫權限。 此外，重要的是要知道在運行此腳本之前，Microsoft Outlook XX Object library應該從“工具”菜單添加到項目引用中，其中XX是library版本。
了解腳本
在腳本中，將在“收件箱”文件夾中的每個傳入項目上觸發“ Items_ItemAdd”例程。 那裡的“ TypeName”功能可以進一步確保例程僅在郵件為電子郵件而不是其他任何類型的Outlook對象時才繼續。 如果將電子郵件從任何其他文件夾拖到收件箱中，說“已發送郵件”，該例程仍將繼續工作。 重要的是要注意，只有在將電子郵件添加到“收件箱”主文件夾中後，“ Items_ItemAdd”才會觸發。 如果主收件箱文件夾中有嵌套文件夾，則在其中任何一個電子郵件中添加代碼後，該代碼將不起作用。 為了使其適用於任何其他文件夾，應將“ Items_ItemAdd”連接到“ Application_S”中的特定文件夾tartup”例程。 在上述腳本中，可以將olHTML格式替換為olMSG，olRTF，olDoc或olTxt格式。 每個要保存的電子郵件的默認命名格式是“ MyEmail ##”，其中##是計數tar從1開始逐漸遞增。 例如，運行此腳本後的第十二封傳入電子郵件應另存為“ MyEmail12”。
Outlook失敗後的數據恢復
Outlook崩潰並導致用戶最終丟失大量數據的情況並不少見。 從這種情況下恢復可能是一項非常艱鉅且耗時的任務。 在這種情況下，為了使您的生活更輕鬆，您可以使用 Outlook數據恢復 高效，無錯誤恢復的工具。
作者簡介：
瑪麗·安德伍德（Mary Underwood）是 DataNumen，Inc.是數據恢復技術的全球領導者，包括 dwg 復甦 以及 rar 恢復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM