How to import msg files from file system to Outlook folder?
Normally, you can import msg files from file system to an Outlook folder by dragging and dropping. In this article, we are going to show you an easy method to import all msg files from a file system to a specified Outlook folder in details.
Import msg files from file system to Outlook folder with VBA code
Easily save selected emails as different format files in Outlook:
With the Save as File utility of Kutools for Outlook, you can easily save multiple selected emailsas individual HTML format file, TXT format file, Word document, CSV file as well as PDF file in Outlook as below screenshot showed.
Kutools for Outlook: with more than 40 handy Outlook add-ins, free to try with no limitation in 45 days. Download and free trial Now!
Import msg files from file system to Outlook folder with VBA code
Please do as follows to import msg files from file system to a specified folder in Outlook.
1. Press the Alt + F11 keys to open the Microsoft Visual Basic for Applications window.
2. In the Microsoft Visual Basic for Applications window, click Insert > Module. Then copy below VBA code into the Module window.
VBA code: Import msg files from file system to Outlook folder
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. Press the F5 key to run the code. In the opening Browse For Folder dialog box, select the folder contains the msg files you will import to Outlook folder, and then click the OK button. See screenshot:
4. Now a Select Folder dialog box pops up, please select an Outlook folder to save the imported msg files, and click the OK button.
Then all msg files in a certain folder in your file system are imported into a specified Outlook folder immediately.
Related articles:
Kutools for Excel Solves Most of Your Problems, and Increases Your Productivity by 80%
- Reuse: Quickly insert complex formulas, charts and anything that you have used before; Encrypt Cells with password; Create Mailing List and send emails...
- Super Formula Bar (easily edit multiple lines of text and formula); Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
- Merge Cells/Rows/Columns without losing Data; Split Cells Content; Combine Duplicate Rows/Columns... Prevent Duplicate Cells; Compare Ranges...
- Select Duplicate or Unique Rows; Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
- Exact Copy Multiple Cells without changing formula reference; Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
- Extract Text, Add Text, Remove by Position, Remove Space; Create and Print Paging Subtotals; Convert Between Cells Content and Comments...
- Super Filter (save and apply filter schemes to other sheets); Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
- Combine Workbooks and WorkSheets; Merge Tables based on key columns; Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
- More than 300 powerful features. Supports Office/Excel 2007-2019 and 365. Supports all languages. Easy deploying in your enterprise or organization. Full features 30-day free trial.

Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier
- Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
- Open and create multiple documents in new tabs of the same window, rather than in new windows.
- Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!
