Come importare file msg dal file system alla cartella di Outlook?

Normalmente, puoi importare file msg dal file system a una cartella di Outlook trascinandoli e rilasciandoli. In questo articolo, ti mostreremo un metodo semplice per importare tutti i file msg dal file system a una cartella specifica di Outlook in dettaglio.

Importa file msg dal file system alla cartella di Outlook con il codice VBA

Importa file msg dal file system alla cartella di Outlook con il codice VBA

Procedi come segue per importare file msg dal file system a una cartella specifica in Outlook.

1. Premi i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Nella finestra Microsoft Visual Basic for Applications, clicca su Inserisci > Modulo. Poi copia il seguente codice VBA nella finestra Modulo.

Codice VBA: Importa file msg dal file system alla cartella di Outlook

Sub ImportMessagesInFolder()
Dim xFSO As Scripting.FileSystemObject
Dim xSourceFld As Scripting.Folder
Dim xSourceFldPath As String
Dim xFileItem As Scripting.File
Dim xMSG As Object
Dim xMailItem As MailItem
Dim xSaveFld As Outlook.Folder
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
Set xSelFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Select a folder：", 0, 0)
If Not TypeName(xSelFolder) = "Nothing" Then
    xSourceFldPath = xSelFolder.self.Path + "\"
Else
    xSourceFldPath = ""
    Exit Sub
End If
Set xSourceFld = xFSO.GetFolder(xSourceFldPath)
Set xSaveFld = GetObject("", "Outlook.Application").GetNamespace("MAPI").PickFolder
If TypeName(xSaveFld) = "Nothing" Then
    Exit Sub
End If
For Each xFileItem In xSourceFld.Files
    Set xMSG = Session.OpenSharedItem(xFileItem.Path)
    Set xMailItem = xMSG.Copy
    xMailItem.Move xSaveFld
    Set xMailItem = Nothing
    xMSG.Delete
    Set xMSG = Nothing
Next xFileItem
Set xFileItem = Nothing
Set xSourceFld = Nothing
Set xFSO = Nothing
End Sub

3. Premi il tasto F5 per eseguire il codice. Nella finestra di dialogo Sfoglia Cartella che si apre, seleziona la cartella contenente i file msg che vuoi importare nella cartella di Outlook, quindi fai clic sul pulsante OK. Vedi screenshot:

4. Ora appare una finestra di dialogo Seleziona Cartella, seleziona una cartella di Outlook in cui salvare i file msg importati e fai clic sul pulsante OK.

Tutti i file msg presenti in una determinata cartella del tuo file system verranno immediatamente importati in una cartella specifica di Outlook.

Articoli correlati:

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