如何從檔案系統將 MSG 檔案匯入 Outlook 資料夾？

作者Siluvia修改日期2024-08-28

一般情況下，您可透過拖放方式，將 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 資料夾。

透過批次儲存功能，您可輕鬆將多封選取的電子郵件分別儲存為 Kutools for Outlook 支援的 HTML、TXT、Word、CSV 及 PDF 格式檔案，如下方示範所示。
立即下載 Kutools for Outlook 免費版！

關於使用 kutools for outlook 將電子郵件匯出為多種檔案格式的廣告

如何在 Outlook 中將多封選取的電子郵件批次儲存為 MSG 檔案？

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料與產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依性下拉式清單｜多重選擇下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單寄送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……更多功能