Skip to main content

Kutools per Office — Una Suite. Cinque Strumenti. Ottieni di Più.

Come salvare più email selezionate come file MSG in blocco in Outlook?

Author Siluvia Last modified

È 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:

the screenshot of step 1 about saving selected emails as msg files using vba in outlook

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

the screenshot of step 2 about saving selected emails as msg files using vba in outlook

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! 

ad about saving emails as multiple file formats in outlook with kutools for outlook

I migliori strumenti per la produttività in Office

Ultime notizie: Kutools per Outlook lancia la versione gratuita!

Scopri il nuovissimo Kutools per Outlook con oltre100 funzionalità straordinarie! Clicca per scaricare ora!

🤖 Kutools AI : Utilizza una tecnologia AI avanzata per gestire le email senza sforzo, inclusa la risposta, la sintesi, l’ottimizzazione, l’estensione, la traduzione e la composizione dei messaggi.

📧 Automazione Email: Risposta automatica (disponibile per POP e IMAP)  /  Programma invio Email  /  CC/BCC automatico tramite Regola durante l’invio delle Email  /  Inoltro automatico (Regola avanzata)   /  Aggiungi Saluto automaticamente   /  Dividi automaticamente Email multi-destinatario in messaggi singoli ...

📨 Gestione Email: Richiama Email  /  Blocca Email fraudulent (tramite Oggetto e altri parametri)  /  Elimina Email Duplicato  /  Ricerca Avanzata  /  Organizza cartelle ...

📁 Allegati Pro: Salva in Batch  /  Distacca in Batch  /  Comprimi in Batch  /  Salvataggio automatico   /  Distacca automaticamente  /  Auto Comprimi ...

🌟 Magia Interfaccia: 😊Più emoji belle e divertenti   /  Notifiche per le email importanti in arrivo  /  Riduci Outlook al posto di chiuderlo ...

👍 Funzioni rapide: Rispondi a Tutti con Allegati  /  Email Anti-Phishing  /  🕘Mostra il fuso orario del mittente ...

👩🏼‍🤝‍👩🏻 Contatti & Calendario: Aggiungi in Batch contatti dalle Email selezionate  /  Dividi un Gruppo di Contatti in Gruppi singoli  /  Rimuovi promemoria di compleanno ...

Utilizza Kutools nella lingua che preferisci – supporta Inglese, Spagnolo, Tedesco, Francese, Cinese e oltre40 altre!

Sblocca Kutools per Outlook istantaneamente con un solo clic. Non aspettare, scarica ora e aumenta la tua efficienza!

kutools for outlook features1 kutools for outlook features2

🚀 Download con un solo clic — Ottieni tutti gli Add-in per Office

Consigliato: Kutools per Office (5-in-1)

Un solo clic per scaricare cinque installatori contemporaneamente — Kutools per Excel, Outlook, Word, PowerPoint e Office Tab Pro. Clicca per scaricare ora!

  • ✅ Comodità con un solo clic: scarica tutti e cinque i pacchetti di installazione in una sola azione.
  • 🚀 Pronto per qualsiasi attività Office: installa i componenti aggiuntivi necessari, quando ti servono.
  • 🧰 Inclusi: Kutools per Excel / Kutools per Outlook / Kutools per Word / Office Tab Pro / Kutools per PowerPoint