也许您在 Windows 文件夹中保存了几封 Outlook 电子邮件。 现在，如果您想将它们导回 Outlook 文件夹，您该怎么做呢？ 本文将教您 3 种方法。

众所周知，Outlook 提供了一个内置选项——“另存为”，您可以通过该选项将电子邮件保存到 Windows 文件夹。 但是，您无法将导出的电子邮件重新添加回 Outlook 文件夹。 因此，如果您想将 Outlook 邮件导入回 Outlook，您如何实现呢？ 下面教大家3种方法。 您可以根据自己的喜好选择任何一个。

方法一：拖放导入

一开始，您需要访问源 Windows 文件夹，该文件夹存储要导入到 Outlook 的 Outlook 电子邮件。

然后，启动您的 Outlook 应用程序。

接下来打开您要将电子邮件导入到的 Outlook 文件夹。

随后，您需要缩小 Windows 文件夹窗口和 Outlook 窗口，直到您可以同时查看它们。

之后，在 Windows 文件夹中，您可以选择其中一封 Outlook 电子邮件，然后按“Ctrl + A”全选。

稍后您可以将选定的电子邮件拖放到可见的 Outlook 文件夹中，如下图所示：

最后，您会看到所有的 Outlook 邮件都已经从 Windows 文件夹导入到 Outlook 文件夹中，如下图所示：

方法 2：在 VBA 中使用“CreateItemFromTemplate”

到tart 在 Outlook 主窗口中，按“Alt + F11”键按钮。

接下来，您将可以访问 Outlook VBA 编辑器窗口。

然后将以下 VBA 代码复制到空白模块中。

Sub ImportAllOutlookEmailsfromLocaltoOutlook1() Dim objFileSystem As Object Dim strLocalFolderPath As String Dim objLocalFolder As Object Dim objTargetFolder 作为 Outlook.Folder 昏暗 objFiles 作为对象 Dim objFile 作为对象 Dim strFileType 作为字符串 Dim objItem 作为对象 Set objFileSystem = CreateObject("Scripting.FileSystemObject") strLocalFolderPath = strSelectedFolder("") = objLocalFolder.Files '设置 tar获取 Outlook 文件夹设置对象TargetFolder = Session.GetDefaultFolder(olFolderInbox).folders("Ago") 对于 objFiles 中的每个 objFile移动对象TargetFolder '删除Windows文件夹中的源文件'objFileSystem.DeleteFile(objFile.Path) End If Next End Sub Function strSelectedFolder(strStartFolder As String) As String Dim objShell As Object Dim objFolder As Object On Error Resume Next Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.BrowseForFolder(0, "选择源文件夹:", 0, strStartFolder) strSelectedFolder = objFolder.self.Path 结束函数

接下来您可以在当前模块窗口中按 F5 键按钮来 start宏。

之后，您需要在弹出的对话框中浏览到源 Windows 文件夹。

最后，选择源文件夹后，该文件夹中的所有 Outlook 项目都将导入到预定义的 Outlook 文件夹中。

注意：这样导入的邮件都是全新的邮件，你可以随意编写，如下截图：

方法 3：在 VBA 中使用“OpenSharedItem”

与方法 2 一样，将以下 VBA 代码复制到另一个模块中。

Sub ImportAllOutlookEmailsfromLocaltoOutlook2() Dim objFileSystem As Object Dim strLocalFolderPath As String Dim objLocalFolder As Object Dim objTargetFolder 作为 Outlook.Folder Dim objFiles 作为对象 Dim objFile 作为对象 Dim strFileType 作为字符串 Dim objItem 作为对象 Dim objCopiedItem 作为 Outlook.MailItem GetFolder(strLocalFolderPath) Set objFiles = objLocalFolder.Files '设置 tar获取 Outlook 文件夹设置对象TargetFolder = Session.GetDefaultFolder(olFolderInbox).folders("Ago") 对于 objFiles 中的每个 objFile如果 TypeOf objItem 是 MailItem 然后设置 objCopiedItem = objItem.Copy objCopiedItem.Move objTargetFolder '删除Windows文件夹中的源文件'objFileSystem.DeleteFile(objFile.Path) End If End If Next End Sub Function strSelectedFolder(strStartFolder As String) As String Dim objShell As Object Dim objFolder As Object On Error Resume Next Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.BrowseForFolder(0, "选择源文件夹:", 0, strStartFolder) strSelectedFolder = objFolder.self.Path 结束函数

然后通过点击“F5”键按钮运行这个宏。

接下来选择源文件夹。

最终所有的电子邮件都将被导入，如下图所示：

比较

方法

性能

缺点

方法1

对于不熟悉VBA的人来说更容易被接受。

这要求您缩小两个窗口，直到您可以同时看到它们。

方法2

您可以将导入的电子邮件用作全新的电子邮件，您可以随意编写和发送这些电子邮件。

如果 Windows 文件夹中有其他以“.msg”格式保存的 Outlook 项目，例如联系人或任务，这种方式也会导入它们。

方法3

它可以准确识别 Outlook 电子邮件并转义其他 Outlook 项目。

通过这种方式，您无法像方法 2 那样轻松地编写和发送导入的电子邮件。

阻止 PST 数据损坏的方法

众所周知，Outlook 预装了一个内置工具 – 扫描仪。 中号ost 久而久之，它就能解决小问题。 但是，如果问题非常严重，内置工具往往会失败。 所以，你最好重新使用一个更强大的工具，比如 DataNumen Outlook Repair.

作者简介：

Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 SQL Server 腐败 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com