如何将 msg 文件从文件系统导入到 Outlook 文件夹？

通常，您只需通过拖放操作即可将 msg 文件从文件系统导入到 Outlook 文件夹。本文将为您详细介绍一种简单高效的方法，帮助您将所有 msg 文件从文件系统导入到指定的 Outlook 文件夹。

使用 VBA 代码将 msg 文件从文件系统导入到 Outlook 文件夹

使用 VBA 代码将 msg 文件从文件系统导入到 Outlook 文件夹

请按照以下步骤，将 msg 文件从文件系统导入到 Outlook 的指定文件夹中。

1. 请按下 Alt+F11 组合键，即可打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，点击插入 > 模块。然后将下方 VBA 代码复制到模块窗口中，即可轻松完成操作。

VBA 代码：将 msg 文件从文件系统导入到 Outlook 文件夹

Sub ImportMessagesInFolder()
Dim xFSO As Scripting.FileSystemObject
Dim xSourceFld As Scripting.Folder
Dim xSourceFldPath As String
Dim xFileItem As Scripting.File
Dim xMSG As Object
Dim xMailItem As MailItem
Dim xSaveFld As Outlook.Folder
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
Set xSelFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Select a folder：", 0, 0)
If Not TypeName(xSelFolder) = "Nothing" Then
    xSourceFldPath = xSelFolder.self.Path + "\"
Else
    xSourceFldPath = ""
    Exit Sub
End If
Set xSourceFld = xFSO.GetFolder(xSourceFldPath)
Set xSaveFld = GetObject("", "Outlook.Application").GetNamespace("MAPI").PickFolder
If TypeName(xSaveFld) = "Nothing" Then
    Exit Sub
End If
For Each xFileItem In xSourceFld.Files
    Set xMSG = Session.OpenSharedItem(xFileItem.Path)
    Set xMailItem = xMSG.Copy
    xMailItem.Move xSaveFld
    Set xMailItem = Nothing
    xMSG.Delete
    Set xMSG = Nothing
Next xFileItem
Set xFileItem = Nothing
Set xSourceFld = Nothing
Set xFSO = Nothing
End Sub

3. 请按 F5 键运行代码。在弹出的选择文件夹对话框中，选择包含需导入至 Outlook 文件夹的 msg 文件的文件夹，然后点击确定按钮。如下图所示：

4. 此时会弹出选择文件夹对话框，请选择一个 Outlook 文件夹用于保存导入的 msg 文件，然后点击确定按钮。

然后，文件系统中该文件夹内的所有 msg 文件将会立即导入到指定的 Outlook 文件夹中。

相关文章：

• 如何在 Outlook 中批量将多封选中的邮件保存为 MSG 文件？

最佳办公效率工具

🤖	KUTOOLS AI 助手：基于数据分析革新智能执行   |  生成代码|  创建自定义公式  |  数据分析及生成图表|  调用 Kutools Functions……
	热门功能：查找、高亮或标记重复项   |  删除空白行   |  合并列或单元格且不丢失数据   |  不使用公式的四舍五入……
	高级 LOOKUP：多条件 VLookup  |  多值 VLookup  |   跨多表 VLookup   |   模糊查找……
	高级下拉列表：快速创建下拉列表   |  依赖下拉列表   |  多选下拉列表……
	列管理器：添加指定数量的列|移动列|切换隐藏列的可见状态|比较区域和列……
	精选功能：网格聚焦   |  设计视图   |增强编辑栏   | 工作簿和表管理器   |  资源库（自动文本）|  日期提取   |  汇总工作表  |  加密/解密单元格   | 按列表批量发送邮件   |  超级筛选   |   特殊筛选（筛选粗体单元格/斜体/删除线等） ......
	顶级 15 工具集：12 文本工具（添加文本，删除特定字符，……）|   50+ 图表 类型（甘特图，……）|   40+ 实用公式（基于生日计算年龄，……）|   19 插入工具（插入二维码，按路径插入图片，……）|   12 转换工具（小写金额转大写，汇率转换，……）|   7 合并和拆分工具（高级合并行，分割单元格，……）|…… 以及更多

在您的首选语言中使用 Kutools——支持英语、西班牙语、德语、法语、中文及 40+ 种其它语言！

用 Kutools for Excel 全面提升您的 Excel 技能，体验前所未有的高效办公。Kutools for Excel 提供 300 多项高级功能，助您高效提升工作效率，节省宝贵时间。点击此处，立即获取您最需要的功能……

更多 Kutools for Excel 详情……免费下载……

---

Office Tab 为 Office 带来标签式界面，让您的工作更加轻松高效

• 在 Word、Excel、PowerPoint 中启用标签式编辑与阅读，同样适用于 Publisher、Access、Visio 和 Project。
• 在同一窗口中以新标签页的形式打开和创建多个文档，而无需另起新窗口。
• 让您的工作效率提升 50%，每天为您减少上百次鼠标点击！

更多 Office Tab 详情……免费下载……

---

所有 Kutools 插件，一键安装

Kutools for Office 套件集成了 Excel、Word、Outlook 和 PowerPoint 插件，以及 Office Tab Pro，非常适合需要跨 Office 应用协作的团队。

• 全能套件— Excel、Word、Outlook 及 PowerPoint 插件 + Office Tab Pro
• 一键安装，一证多用— 数分钟完成部署（支持 MSI）
• 协同更高效— 实现 Office 应用间高效协作
• 30 天完整功能试用— 无需注册，无需信用卡
• 极致性价比— 比单独购买插件更省钱

更多 Kutools for Office 详情……免费下载……