Come salvare più e-mail selezionate come file MSG in blocco in Outlook?
È facile salvare un'e-mail come file MSG in Outlook. Come puoi salvare più email selezionate come singoli file MSG in blocco in Outlook? Questo articolo ti mostrerà un metodo per ottenerlo.
Salva più email selezionate come file MSG con codice VBA
Salva più email selezionate come file MSG con codice VBA
Il seguente codice VBA può aiutarti a salvare più email selezionate come singoli file MSG in blocco in Outlook. Si prega di fare quanto segue.
1. Selezionare le e-mail che si desidera salvare come file MSG. Quindi premere contemporaneamente i tasti Alt + F11 per aprire la finestra di Microsoft Visual Basic, Applications Edition.
2. Nella finestra di Microsoft Visual Basic, Applications Edition, fare clic su Inserisci> Modulo, quindi copiare sotto il codice VBA nella finestra del modulo.
Codice VBA: salva più e-mail selezionate come singoli file MSG 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.

Easily save selected emails as different format files in Outlook:
With the Bulk Save 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. Download and try it now! (60-day free trail)

Kutools for Outlook - Brings 100 Advanced Features to Outlook, and Make Work Much Easier!
- Auto CC/BCC by rules when sending email; Auto Forward Multiple Emails by custom; Auto Reply without exchange server, and more automatic features...
- BCC Warning - show message when you try to reply all if your mail address is in the BCC list; Remind When Missing Attachments, and more remind features...
- Reply (All) With All Attachments in the mail conversation; Reply Many Emails in seconds; Auto Add Greeting when reply; Add Date into subject...
- Attachment Tools: Manage All Attachments in All Mails, Auto Detach, Compress All, Rename All, Save All... Quick Report, Count Selected Mails...
- Powerful Junk Emails by custom; Remove Duplicate Mails and Contacts... Enable you to do smarter, faster and better in Outlook.

Sort comments by
#27608
This comment was minimized by the moderator on the site
Report
0
0
#27609
This comment was minimized by the moderator on the site
0
0
#27610
This comment was minimized by the moderator on the site
0
0
#28850
This comment was minimized by the moderator on the site
0
0
#34045
This comment was minimized by the moderator on the site
0
0
There are no comments posted here yet