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 da un file system a una cartella di Outlook specificata in dettaglio.
Importa file msg dal file system alla cartella di Outlook con codice VBA
Importa file msg dal file system alla cartella di Outlook con codice VBA
Si prega di fare quanto segue per importare i file msg dal file system in una cartella specificata in Outlook.
1. premi il altro + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Nel Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Moduli. Quindi copia sotto il codice VBA nella finestra del modulo.
Codice VBA: importa i 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 Sub3. premi il F5 chiave per eseguire il codice. In apertura Sfoglia per cartella finestra di dialogo, selezionare la cartella contenente i file msg che verranno importati nella cartella di Outlook, quindi fare clic su OK pulsante. Vedi screenshot:
4. Ora a Seleziona cartella si apre la finestra di dialogo, selezionare un file Outlook cartella per salvare i file msg importati e fare clic su OK pulsante.
Quindi tutti i file msg in una determinata cartella nel file system vengono importati immediatamente in una cartella di Outlook specificata.
Salva facilmente le email selezionate come file di formato diverso in Outlook:
Grazie alla Risparmio collettivo utilità di Kutools for Outlook, puoi facilmente salvare più e-mail selezionate come singoli file in formato HTML, file in formato TXT, documento Word, file CSV e file PDF in Outlook come mostrato nella demo di seguito.
Scaricalo e provalo ora! (Percorso gratuito di 60 giorni)
Articoli correlati:
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- 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 della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
