Näpunäide. Teised keeled on Google'i tõlgitud. Võite külastada English selle lingi versioon.
Logi sisse
x
or
x
x
Regist.
x

or

Kuidas importida msg-failid failisüsteemist Outlooki kausta?

Tavaliselt saate importida msg-failid failisüsteemist Outlooki kausta, lohistades ja kukutades. Selles artiklis me näeme teile lihtsat meetodit, et importida kõiki msg-failid failisüsteemist täpsustatud kausta Outlooki.

Maksefailide import failisüsteemist VBA-koodi Outlooki kausta


Outlooki erinevate formaadifailide abil saate hõlpsalt salvestada valitud meilid:

Kutools Outlooki jaoks Save as File-i abil saate hõlpsalt salvestada mitut valitud meilisõnumit eraldi HTML-vormingus faili, TXT-vormingusfaili, Wordi dokumendi, CSV-faili ja PDF-failina Outlookis, nagu allpool on kujutatud ekraanipildi.

Outlooki Kutools: rohkem kui 40 käepärased Outlooki lisandmoodulid, mida saate tasuta proovida 45 päeva jooksul ilma piiranguteta. Laadige alla ja proovige kohe proovige nüüd!


Maksefailide import failisüsteemist VBA-koodi Outlooki kausta

Palun tehke järgmist, et importida msg-failid failisüsteemist Outlooki määratud kausta.

1. Vajutage nuppu muu + F11 võtmed avada Microsoft Visual Basic rakenduste jaoks aken.

2. Aastal Microsoft Visual Basic rakenduste jaoks Klõpsake aknas Sisesta > moodulid. Seejärel kopeerige VBA-kood alla aknas Moodul.

VBA kood: impordige msg-failid failisüsteemist Outlooki kausta

Sub ImportMessagesInFolder () Dim xFSO Scripting.FileSystemObject Dim xSourceFld Scripting.Folder Dim xSourceFldPath String Dim xFileItem Scripting.File Dim xMSG Nagu Object Dim xMailItem Nagu MailItem Dim xSaveFld Nagu Outlook.Folder On Error Resume Järgmine Määra xFSO = Uus skriptimine. FileSystemObject Set xSelFolder = CreateObject ("Shell.Application") BrowseForFolder (0, "Vali kaust:", 0, 0) Kui not TypeName (xSelFolder) = "Nothing" Siis xSourceFldPath = xSelFolder.self.Path + "\" Muu kui xSourceFldPath = "" Exit Sub End Kui Set xSourceFld = xFSO.GetFolder (xSourceFldPath) Määra xSaveFld = GetObject ("", "Outlook.Application"). GetNamespace ("MAPI"). PickFolder Kui TypeName (xSaveFld) = "Mitte midagi" Siis Exit Sub End, kui iga xFileItem jaoks xSourceFld.Files seadistatakse xMSG = Session.OpenSharedItem (xFileItem.Path) Set xMailItem = xMSG.Copy xMailItem.Move xSaveFld Set xMailItem = pole midagi xMSG.Delete Set xMSG = pole midagi Järgmine xFileItem Set xFileItem = pole midagi Määra xSourceFld = Miski pole määratud xFSO = N Oote Lõpp Sub

3. Vajutage nuppu F5 koodi käivitamiseks klahv. Avamisel Kausta otsimine dialoogiboksis valige kaust sisaldab msg-faile, mida impordite Outlooki kausta ja seejärel klõpsake nuppu OK nuppu. Vaata pilti:

4. Nüüd a Vali kataloog Avaneb dialoogiboks, palun valige väljavaade imporditud msg-failide salvestamiseks ja klõpsake nuppu OK nuppu.

Seejärel imporditakse kõik failisüsteemis olevad failid faili määratud kausta otsekohe ette määratud Outlooki kausta.


Teemaga seotud artiklid:



Soovitatavad tööriistad

Office'i vahekaart

kuldne staatus1 Tooge kasulikke kaarte Exceli ja muudele Office'i tarkvaradele, nagu Chrome, Firefox ja uus Internet Explorer.

Kutools Exceli jaoks

kuldne staatus1 Amazing! Suurendage oma tootlikkust 5 minutiga. Ei vaja erilisi oskusi, välja arvatud kaks tundi iga päev!

kuldne staatus1 300 uued funktsioonid Exceli jaoks, tee Exceli palju lihtsaks ja võimsaks:

  • Ühendage lahtrid / ridad / veerud andmete kaotamata.
  • Mitme lehe ja töövihikute kombineerimine ja konsolideerimine.
  • Võrdlema diapasse, kopeeri mitu vahemikku, teisendades teksti kuupäeva, ühiku ja valuuta konverteerimise.
  • Värvide arv, lehtede vahesummad, täiustatud sorteerimine ja superfiltrid
  • Veel Vali / Lisa / Kustuta / Tekst / Vormindus / Link / Kommentaar / Töölehed / Töölehed Tööriistad ...

Kutoolsi ekraanipilt Exceli jaoks

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.