How to save multiple selected emails as MSG files in bulk in Outlook?
It is easy to save an email as a MSG file in Outlook. How can you save multiple selected emails as individual MSG files in bulk in Outlook? This article will show you a method to achieve it.
Office Tab: Enable Tabbed Editing and Browsing in Office, Just Like Chrome, Firefox, IE 8/9/10.
Classic Menu: Bring Old Menus and Toolbars Back to Office 2007, 2010, 2013 and 2016.
The following VBA code can help you save multiple selected emails as individual MSG files in bulk in Outlook. Please do as follows.
1. Select the emails you want to save as MSG files. Then press the Alt + F11 keys simultaneously to open the Microsoft Visual Basic for Applications window.
2. In the Microsoft Visual Basic for Applications window, click Insert > Module, and then copy below VBA code into the Module window.
VBA code: Save multiple selected emails as individual MSG files in Outlook
Public Sub SaveMessageAsMsg() 'Update by Extendoffice 2018/3/5 Dim xMail As Outlook.MailItem Dim xObjItem As Object Dim xPath As String Dim xDtDate As Date Dim xName, xFileName As String On Error Resume Next Set xShell = CreateObject("Shell.Application") Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, strStartingFolder) If Not TypeName(xFolder) = "Nothing" Then Set xFolderItem = xFolder.self xFileName = xFolderItem.Path & "\" Else xFileName = "" Exit Sub End If For Each xObjItem In Outlook.ActiveExplorer.Selection If xObjItem.Class = olMail Then Set xMail = xObjItem xName = xMail.Subject xDtDate = xMail.ReceivedTime xName = Format(xDtDate, "yyyymmdd", vbUseSystemDayOfWeek, _ vbUseSystem) & Format(xDtDate, "-hhnnss", _ vbUseSystemDayOfWeek, vbUseSystem) & "-" & xName & ".msg" xPath = xFileName + xName xMail.SaveAs xPath, olMSG End If Next End Sub
3. Press the F5 key to run the code.
4. In the Browse For Folder dialog box, please specify a folder to save the MSG files and then click the OK button. See screenshot:
Now all selected emails are saved as individual MSG files as below screenshot shown.
20+ Powerful Tools and Features for Outlook 2010 / 2013 / 2016 / Office 365:
Compatible with Outlook 2010 / 2013 / 2016 / Office 365 (32/64);
Compatible with Windows XP, Windows Vista, Windows 7 / 8 / 10, Windows Server 2003/2008, Citrix System and Windows Terminal (Remote Desktop) Server;
Free trial without feature limitation in 45 days!