此方法将引入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可以处理在默认电子邮件帐户的“收件箱”文件夹中收到的电子邮件。

如何在Outlook中将批量/选定的电子邮件导出到Excel /文本/ PST文件？