1970 Honda SL90 | W201 | Las Vegas Motorcycle 2018
Lot W201 Las Vegas Motorcycle 2018 Jan 23-27
1969 titled in 1970
Believed to be 6,048 actual miles 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.
Gaan soos volg te werk om msg-lêers vanaf lêerstelsel na 'n gespesifiseerde vouer in Outlook in te voer.
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.
Amey Thombre · 9 months ago