Wenk: Ander tale is Google-vertaal. U kan die English weergawe van hierdie skakel.
Teken aan
x
or
x
x
registreer
x

or

Hoe om msg-lêers vanaf lêerstelsel na Outlook-lêer in te voer?

Normaalweg kan jy msg-lêers vanaf lêerstelsel na 'n Outlook-lêer invoer deur te sleep en te val. In hierdie artikel gaan ons jou 'n maklike metode wys om alle msg-lêers vanaf 'n lêerstelsel na 'n gespesifiseerde Outlook-gids in besonderhede te invoer.

Voer msg lêers van lêer stelsel na Outlook gids met VBA kode


Maklik geselekteerde e-posse stoor as verskillende formaat lêers in Outlook:

Met die lêer Stoor as lêer van Kutools vir Outlook kan jy maklik verskeie geselekteerde emails se individuele HTML-formaat lêer, TXT-formaatlêer, Word-dokument, CSV-lêer sowel as PDF-lêer in Outlook, soos hieronder vertoon, vertoon.

Kutools for Outlook: met meer as 40 handige Outlook-invoegtoepassings, kan jy sonder beperking in 45 dae probeer. Laai en gratis toets nou!


Voer msg lêers van lêer stelsel na Outlook gids met VBA kode

Gaan soos volg te werk om msg-lêers vanaf lêerstelsel na 'n gespesifiseerde vouer in Outlook in te voer.

1. Druk die alt + F11 sleutels om die Microsoft Visual Basic vir toepassings venster.

2. In die Microsoft Visual Basic vir toepassings venster, kliek Plaas > module. Kopieer dan die VBA-kode hieronder in die Module-venster.

VBA-kode: invoer msg lêers van lêer stelsel na Outlook gids

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 Op Fout hervat Volgende Stel xFSO = Nuwe Scripting. FileSystemObject Stel xSelFolder = CreateObject ("Shell.Application"). BrowseForFolder (0, "Kies 'n gids:", 0, 0) As nie TypeName (xSelFolder) = "Niks" dan xSourceFldPath = xSelFolder.self.Path + "\" Anders xSourceFldPath = "" Exit Sub End As Set xSourceFld = xFSO.GetFolder (xSourceFldPath) Stel xSaveFld = GetObject ("", "Outlook.Application"). GetNamespace ("MAPI"). PickFolder As TypeName (xSaveFld) = "Niks" Vervolgens Exit Sub End As vir elke xFileItem In xSourceFld.Files Stel xMSG = Session.OpenSharedItem (xFileItem.Path) Stel xMailItem = xMSG.Copy xMailItem.Move xSaveFld Stel xMailItem = Niks xMSG.Delete Stel xMSG = Niks Volgende xFileItem Stel xFileItem = Niks Stel xSourceFld = Niks Stel xFSO = N othing End Sub

3. Druk die F5 sleutel om die kode uit te voer. In die opening Blaai vir gids dialoogkassie, kies die gids bevat die msg lêers wat u na Outlook-gids invoer, en klik dan op die OK knoppie. Sien skermkiekie:

4. Nou 'n Kies gids dialoog verskyn, kies asseblief 'n Outlook gids om die ingevoerde msg lêers te stoor en klik op die OK knoppie.

Dan word alle msg-lêers in 'n sekere gids in u lêersisteem onmiddellik in 'n gespesifiseerde Outlook-lêer ingevoer.


Verwante artikels:



Aanbevole Produktiviteitsinstrumente

Office Tab

goud star1 Bring handige oortjies na Excel en ander Office-sagteware, net soos Chrome, Firefox en nuwe Internet Explorer.

Kutools for Excel

goud star1 Amazing! Verhoog jou produktiwiteit in 5 minute. Geen spesiale vaardighede nodig nie, bespaar twee uur elke dag!

goud star1 300 Nuwe funksies vir Excel, maak Excel baie maklik en kragtig:

  • Voeg sel / Rye / Kolomme saam sonder om data te verloor.
  • Kombineer en konsolideer veelvuldige blaaie en werkboeke.
  • Vergelyk waardes, Kopieer verskeie reekse, skakel teks na datum, Eenheid en Geld Omskakeling.
  • Tel deur kleure, plasingsubtotale, gevorderde sorteer en superfilter,
  • Meer Kies / Invoeg / Skrap / Teks / Formaat / Skakel / Kommentaar / Werkboeke / Werkkaarte Gereedskap ...

Skermskoot van Kutools vir 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 · 9 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.