Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe msg-bestanden van het bestandssysteem naar Outlook-map te importeren?

Normaal gesproken kunt u msg-bestanden van het bestandssysteem naar een Outlook-map importeren door te slepen en neer te zetten. In dit artikel laten we u een eenvoudige methode zien om alle msg-bestanden van een bestandssysteem naar een opgegeven Outlook-map in detail te importeren.

Importeer msg-bestanden van het bestandssysteem naar de map Outlook met VBA-code


Sla eenvoudig geselecteerde e-mails op als verschillende indelingsbestanden in Outlook:

Met het Save as File-hulpprogramma van Kutools voor Outlook kunt u gemakkelijk meerdere geselecteerde e-mails opslaan, zoals een afzonderlijk HTML-bestandsformaat, een TXT-indeling, een Word-document, een CSV-bestand en een PDF-bestand in Outlook, zoals hieronder te zien was.

Kutools for Outlook: met meer dan 40 handige Outlook add-ins, gratis om te proberen zonder beperking in 45 dagen. Download en gratis proef nu!


Importeer msg-bestanden van het bestandssysteem naar de map Outlook 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 bijvoegsel > module. Kopieer vervolgens de VBA-code naar het modulevenster.

VBA-code: importeer msg-bestanden van het bestandssysteem naar de map Outlook

Sub ImportMessagesInFolder () Dim xFSO als scripting.FileSystemObject Dim xSourceFld als scripting.Folder Dim xSourceFldPath als string Dim xFileItem als scripting.File Dim xMSG als object Dim xMailItem als MailItem Dim xSaveFld als Outlook.Folder Aan Fout hervatten Volgende Set xFSO = nieuwe scripts. FileSystemObject Set xSelFolder = CreateObject ("Shell.Application"). BrowseForFolder (0, "Selecteer een map:", 0, 0) If Not TypeName (xSelFolder) = "Nothing" Then xSourceFldPath = xSelFolder.self.Path + "\" Anders xSourceFldPath = "" Sub-einde afsluiten Als xSourceFld = xFSO.GetFolder instellen (xSourceFldPath) xSaveFld = GetObject instellen ("", "Outlook.Application"). GetNamespace ("MAPI"). PickFolder If TypeName (xSaveFld) = "Niets" 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 = Niets Set xSourceFld = Nothing Set xFSO = N einde Sub

3. druk de F5 sleutel om de code uit te voeren. In de opening Blader naar de map dialoogvenster, selecteert u de map met de msg-bestanden die u naar de map Outlook wilt importeren en klikt u vervolgens op OK knop. Zie screenshot:

4. Nu a map selecteren dialoogvenster verschijnt, selecteer een Outlook map om de geïmporteerde msg-bestanden op te slaan en klik op de OK knop.

Vervolgens worden alle MSG-bestanden in een bepaalde map in uw bestandssysteem onmiddellijk geïmporteerd in een opgegeven Outlook-map.


Gerelateerde artikelen:



Aanbevolen productiviteitstools

Office Tab

gouden ster1 Breng handige tabbladen naar Excel en andere Office-software, net zoals Chrome, Firefox en nieuwe Internet Explorer.

Kutools for Excel

gouden ster1 Verbazingwekkend! Verhoog uw productiviteit in 5 minuten. Heb geen speciale vaardigheden nodig, bespaar elke dag twee uur!

gouden ster1 300 Nieuwe functies voor Excel, maak Excel veel gemakkelijk en krachtig:

  • Cel / rijen / kolommen samenvoegen zonder gegevens te verliezen.
  • Combineer en consolideer meerdere bladen en werkmappen.
  • Bereiken vergelijken, meerdere bereiken kopiëren, tekst converteren naar datum, eenheid en valuta omrekenen.
  • Count by Colors, paging-subtotalen, geavanceerde sortering en superfilter,
  • Meer Selecteren / Invoegen / Wissen / Tekst / Formaat / Link / Commentaar / Werkmappen / Werkbladen Hulpmiddelen ...

Schermopname van Kutools voor Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Amey Thombre · 10 months ago
    This is amazing and just does what i was looking for. just make sure that you have Microsoft System Runtime library selected in the references of the VBA project as Scripting object is from that library.