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

Salvare un'email come file MSG in Outlook è semplice, ma come fare per esportare più messaggi selezionati contemporaneamente come singoli file MSG? Questo articolo ti mostra un metodo efficace per farlo in blocco.

Salva più email selezionate come file MSG con codice VBA

---

Salva più email selezionate come file MSG con codice VBA

Il seguente codice VBA ti permette di salvare in blocco più email selezionate come singoli file MSG in Outlook. Segui questi passaggi.

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, fai clic su «Inserisci» > «Modulo», quindi incolla il seguente codice VBA nella finestra del modulo.

Codice VBA: salva più email 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. Premi il tasto "F5" per eseguire il codice.

4. Nella finestra di dialogo «Sfoglia cartelle», seleziona la cartella in cui desideri salvare i file MSG, quindi fai clic su «OK». Vedi lo screenshot:

Ora tutte le email selezionate sono state salvate come singoli file MSG, come illustrato nello screenshot seguente.

---