Hoe msg-bestanden van het bestandssysteem naar de Outlook-map te importeren?
Normaal gesproken kunt u msg-bestanden van het bestandssysteem naar een Outlook-map importeren door ze te slepen en neer te zetten. In dit artikel laten we u een eenvoudige methode zien om alle msg-bestanden van een bestandssysteem in detail naar een opgegeven Outlook-map te importeren.
Importeer msg-bestanden van het bestandssysteem naar de Outlook-map met VBA-code
Importeer msg-bestanden van het bestandssysteem naar de Outlook-map met VBA-code
Ga als volgt te werk om msg-bestanden van het bestandssysteem naar een opgegeven map in Outlook te importeren.
1. druk de anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module. Kopieer vervolgens onderstaande VBA-code naar het modulevenster.
VBA-code: importeer msg-bestanden van het bestandssysteem naar de Outlook-map
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. druk de F5 sleutel om de code uit te voeren. In de opening Blader naar de map dialoogvenster, selecteer de map met de msg-bestanden die u naar de Outlook-map wilt importeren en klik vervolgens op het OK knop. Zie screenshot:
4. Nu een map selecteren dialoogvenster verschijnt, selecteer een Outlook map om de geïmporteerde msg-bestanden op te slaan, en klik op het OK knop.
Vervolgens worden alle msg-bestanden in een bepaalde map in uw bestandssysteem onmiddellijk geïmporteerd in een opgegeven Outlook-map.
Bewaar geselecteerde e-mails eenvoudig als bestanden met verschillende indelingen in Outlook:
Met de Bulk opslaan nut van Kutools for Outlook, kunt u eenvoudig meerdere geselecteerde e-mails opslaan als individueel HTML-bestand, TXT-bestand, Word-document, CSV-bestand en PDF-bestand in Outlook, zoals de onderstaande demo laat zien.
Download en probeer het nu! (60 dagen gratis proefperiode)
Gerelateerde artikelen:
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!