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. Premere il F5 per eseguire il codice.

4. Nella finestra di dialogo Sfoglia per cartelle, specificare una cartella in cui salvare i file MSG e quindi fare clic sul pulsante OK. Vedi screenshot:

Ora tutte le e-mail selezionate vengono salvate come singoli file MSG come mostrato nell'immagine sottostante.

Kutools for Outlook: porta 100 funzionalità avanzate in Outlook e semplifica notevolmente il lavoro!

• Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple personalizzate; Risposta automatica senza server di scambio e più funzioni automatiche ...
• Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo e-mail è nell'elenco BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
• Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email in secondi; Aggiunta automatica di saluto quando rispondi; Aggiungi la data all'oggetto ...
• Strumenti per gli allegati: gestisci tutti gli allegati in tutti i messaggi, Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto ... Rapporto rapido, Conta le email selezionate...
• E-mail spazzatura potenti per abitudine; Rimuovi messaggi e contatti duplicati... Consentono di fare in modo più intelligente, veloce e migliore in Outlook.

Leggi di più... Scarica ora...