如何将文件系统中的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文件？