Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako uvoziti datoteke s sporočil iz datotečnega sistema v mapo Outlook?

Običajno lahko uvozite datoteke s sporočili iz datotečnega sistema v mapo Outlook tako, da jih povlečete in spustite. V tem članku vam bomo pokazali preprost način za uvoz vseh datotek s sporočil iz datotečnega sistema v določeno mapo Outlook v podrobnosti.

Uvozite datoteke s sporočil iz datotečnega sistema v mapo Outlook s kodo VBA


Preprosto shranite izbrana e-poštna sporočila v različne datoteke v formatu Outlook:

S pripomočkom Shrani kot datoteko datoteke Kutools for Outlook lahko enostavno shranite več izbranih e-poštnih sporočil kot posamezno datoteko HTML, datoteko TXT, dokument Word, datoteko CSV in datoteko PDF v Outlooku, kot je prikazano spodaj.

Kutools za Outlook: z več kot 40 priročnimi dodatki Outlook, lahko brezplačno poskusite brez omejitev v dnevih 45. Prenesite in brezplačno preizkusite zdaj!


Uvozite datoteke s sporočil iz datotečnega sistema v mapo Outlook s kodo VBA

Prosimo, naredite naslednje, da uvozite datoteke s sporočili iz datotečnega sistema v določeno mapo v programu Outlook.

1. Pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli. Nato kopirajte spodnjo kodo VBA v okno Modul.

VBA koda: uvozite sporočilne datoteke iz datotečnega sistema v mapo Outlook

Sub ImportMessagesInFolder () Dim xFSO Kot Scripting.FileSystemObject Dim xSourceFld Kot Scripting.Folder Dim xSourceFldPath As String Dim xFileItem Kot Scripting.File Dim xMSG Kot objekt Dim Dim xMailItem Kot MailItem Dim xSaveFld Kot Outlook.Folder On Napaka Nadaljuj Next Set xFSO = New Scripting. FileSystemObject Nastavi xSelFolder = CreateObject ("Shell.Application"). BrowseForFolder (0, "Izberite mapo:", 0, 0) Če Not TypeName (xSelFolder) = "Nič" Potem xSourceFldPath = xSelFolder.self.Path + "\ Else xSourceFldPath = "" Exit Sub End Če nastavite xSourceFld = xFSO.GetFolder (xSourceFldPath) Nastavite xSaveFld = GetObject ("", "Outlook.Application") GetNamespace ("MAPI") PickFolder Če TypeName (xSaveFld) = "Nič" Potem zapustite podokno, če za vsak xFileItem v xSourceFld.Files nastavite xMSG = Session.OpenSharedItem (xFileItem.Path) Nastavite xMailItem = xMSG.Copy xMailItem.Move xSaveFld Nastavi xMailItem = Nič xMSG.Delete Nastavi xMSG = Nič Naslednja xFileItem Nastavi xFileItem = Nič Nastavi xSourceFld = Nič Nastavi xFSO = N konec konca

3. Pritisnite F5 ključ za zagon kode. V odprtju Brskaj po mapi pogovorno okno, izberite mapo, ki vsebuje datoteke s sporočili, ki jih boste uvozili v mapo Outlook, in nato kliknite OK gumb. Prikaz slike:

4. Zdaj a Izberite mapo pogovorno okno se pojavi, prosim izberite Outlook mapo, da shranite uvožene datoteke s sporočili in kliknite OK gumb.

Potem se vse datoteke s sporočili v določeni mapi v vašem datotečnem sistemu takoj uvozijo v določeno mapo Outlook.


Sorodni članki:


Orodja za produktivnost programa Excel

Trak Excel (z nameščenim programom Kutools for Excel)

300 + Napredne funkcije Povečajte svojo produktivnost za 70% in pomagajte, da se izstopite iz množice!

Želite hitro in popolno opraviti svoje vsakodnevno delo? Kutools for Excel prinaša 300 + kul in zmogljive napredne funkcije (Združite delovne zvezke, vsoto za barvo, vsebino deljene celice, datum pretvorbe in tako naprej ...) za Delovni scenariji 1500 +, vam pomaga rešiti Težave z 80% Excelom.

  • Obravnavajte vse zapletene naloge v nekaj sekundah, pomagajte izboljšati svojo delovno sposobnost, dobil uspeh od ostre konkurence, in nikoli ne skrbi, da bi odpustili.
  • Prihranite veliko delovnega časa, pustite veliko časa za ljubezen in skrb za družino in uživajte v udobnem življenju.
  • Zmanjšajte število tisoč klikov na tipkovnici in miški vsak dan, razbremenite utrujene oči in rokein vam daje zdravo telo.
  • Postanite strokovnjak za Excel v minutah 3 in si oglejte čudovite poglede svojih kolegov ali prijateljev.
  • Ni več treba zapomniti bolečih formul in VBA kod, imajo sproščujoč in prijeten um, vam vznemirjenje, ki ga še niste imeli.
  • Porabite samo $ 39, vendar vredno kot $ 4000 usposabljanje drugih. Uporabljajo ga 110,000 elite in 300 + znana podjetja.
  • 60-dnevno neomejeno brezplačno preizkusno različico. 60-dnevno jamstvo vračila denarja. Brezplačna nadgradnja in podpora za leta 2. Kupite enkrat, uporabite večno.
  • Spremenite način dela zdaj in vam takoj omogočite boljše življenje!

Pisarniški zavihek prinaša učinkovite in priročne zavihke v Office (vključno z Excelom), tako kot Chrome, Firefox in nova IE

  • Poveča vašo produktivnost z 50% pri ogledu in urejanju več dokumentov.
  • Zmanjšajte stotine klikov z miško za vas vsak dan, se poslovite od miške.
  • Odprite in ustvarite dokumente v novih zavihkih istega okna in ne v novih oknih.
  • Pomagajte vam hitreje in lažje izstopati iz množice! Ena sekunda za preklop med desetimi odprtimi dokumenti!
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 · 11 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.