Come si importano i file MSG dal file system in una cartella di Outlook?
Di solito, puoi importare file .msg dal file system direttamente in una cartella di Outlook semplicemente trascinandoli e rilasciandoli. In questo articolo ti illustreremo un metodo semplice per importare tutti i file .msg da una cartella del file system in una cartella specifica di Outlook, passo dopo passo.
Importa file msg dal file system in una cartella di Outlook con codice VBA
Importa file msg dal file system in una cartella di Outlook con codice VBA
Segui questi semplici passaggi per importare i file MSG dal tuo file system direttamente in una cartella specifica di Outlook.
1. Premi 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, copia il seguente codice VBA nella finestra del modulo.
Codice VBA: Importa file msg dal file system in una 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 Sub3. Premi il tasto F5 per eseguire il codice. Nella finestra di dialogo Sfoglia per cartella che si apre, seleziona la cartella contenente i file MSG da importare in Outlook e fai clic sul pulsante OK. Vedi screenshot:
4. A questo punto si apre la 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 cartella specifica del tuo file system vengono importati immediatamente in una cartella predefinita di Outlook.
Salva facilmente le email selezionate come file in formati diversi in Outlook:
Grazie all’utility Salva in blocco di Kutools per Outlook, puoi salvare facilmente più email selezionate come singoli file in formato HTML, TXT, documenti Word, file CSV e persino PDF direttamente da Outlook, come mostrato nella demo seguente.
Scarica subito la versione gratuita di Kutools per Outlook! /a>
Articoli correlati:
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi