Come salvare più email selezionate come file MSG in blocco in Outlook?
È facile salvare un'email come file MSG in Outlook. Come puoi salvare più email selezionate come file MSG individuali in blocco in Outlook? Questo articolo ti mostrerà un metodo per farlo.
Salva più email selezionate come file MSG con il codice VBA
Salva più email selezionate come file MSG con il codice VBA
Il seguente codice VBA può aiutarti a salvare più email selezionate come file MSG individuali in blocco in Outlook. Procedi come segue.
1. Seleziona le email che desideri salvare come file MSG. Quindi premi contemporaneamente i tasti "Alt" + "F11" per aprire la finestra di Microsoft Visual Basic for Applications.
2. Nella finestra di Microsoft Visual Basic for Applications, clicca su "Inserisci" > "Modulo", e poi copia il seguente codice VBA nella finestra del Modulo.
Codice VBA: Salva più email selezionate come file MSG individuali 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. Premi il tasto "F5" per eseguire il codice.
4. Nella finestra di dialogo "Sfoglia cartella", specifica una cartella in cui salvare i file MSG e poi clicca sul pulsante "OK". Vedi screenshot:

Ora tutte le email selezionate sono state salvate come file MSG individuali come mostrato nello screenshot sottostante.

Salva facilmente le email selezionate in diversi formati di file in Outlook:
Con l'utilità "Salvataggio in blocco" di "Kutools for Outlook", puoi facilmente salvare più email selezionate come file in formato HTML, file in formato TXT, documento Word, file CSV e anche file PDF in Outlook come mostrato nello screenshot sottostante. Scarica ora la versione gratuita di Kutools for Outlook!
I migliori strumenti per la produttività in Office
Ultime novità: Kutools per Outlook lancia la versione gratuita!
Scopri il nuovo Kutools per Outlook con oltre100 funzionalità incredibili! Clicca per scaricare ora!
📧 Automazione email: Risposta automatica (disponibile per POP e IMAP) / Programmazione invio email / CC/BCC automatico tramite regola durante l’invio dell’email / Inoltro automatico (Regola avanzata) / Aggiungi saluto automaticamente / Suddivisione automatica delle email con più destinatari in email individuali ...
📨 Gestione email: Richiama Email / Blocca email di truffa tramite Oggetto e altro / Elimina Email duplicate / Ricerca Avanzata / Organizza cartelle ...
📁 Allegati Pro: Salvataggio in batch / Distacco in batch / Compressione in batch / Salvataggio automatico / Distacca automaticamente / Auto Comprimi ...
🌟 Magia dell’interfaccia: 😊Più emoji belle e simpatiche / Ti avvisa quando arrivano email importanti / Minimizza Outlook invece di chiuderlo ...
👍 Meraviglie con un clic: Rispondi a Tutti con Allegati / Email Anti-phishing / 🕘Mostra il fuso orario del mittente ...
👩🏼🤝👩🏻 Contatti e Calendario: Aggiunta massiva dei contatti dalle email selezionate / Dividi un Gruppo di Contatti in gruppi individuali / Rimuovi promemoria di compleanno ...
Usa Kutools nella lingua che preferisci: supporta Inglese, Spagnolo, Tedesco, Francese, Cinese e oltre40 altre lingue!

