Savjet: drugi jezici su prevedeni na Google. Možete posjetiti English verzija ove veze.
Prijava
x
or
x
x
Registracija
x

or

Kako uvesti MSG datoteke iz datotečnog sustava u Outlook mapu?

Normalno, možete importirati MSG datoteke iz datotečnog sustava u Outlook mapu povlačenjem i ispuštanjem. U ovom članku ćemo vam pokazati jednostavan način uvoza svih MSG datoteka iz datotečnog sustava u određenu Outlook mapu.

Import MSG datoteke iz datotečnog sustava u mapu Outlook s VBA kodom


Jednostavno spremite odabrane poruke e-pošte kao različite formate datoteka u programu Outlook:

Pomoću programa Save as File (Spremi kao datoteku) programa Kutools za Outlook možete jednostavno spremiti više odabranih e-poruka kao pojedinačne HTML datoteke, datoteku TXT formata, Word dokument, CSV datoteku kao i PDF datoteku u programu Outlook.

Kutools za Outlook: s više od 40 zgodnih dodataka za Outlook, slobodno možete isprobati bez ograničenja u 45 danima. Preuzmite i besplatno testiranje odmah!


Import MSG datoteke iz datotečnog sustava u mapu Outlook s VBA kodom

Učinite sljedeće za uvoz MSG datoteka iz datotečnog sustava u određenu mapu u programu Outlook.

1. pritisni drugo + F11 tipke za otvaranje Microsoft Visual Basic for Applications prozor.

2. U Microsoft Visual Basic for Applications prozor, kliknite umetak > Moduli, Zatim kopirajte ispod VBA koda u prozor Modula.

VBA kod: Import MSG datoteke iz datotečnog sustava u Outlook mapu

Sub ImportMessagesInFolder () Dim xFSO kao Scripting.FileSystemObject Dim xSourceFld kao Scripting.Folder Dim xSourceFldPath kao String Dim xFileItem kao Scripting.File Dim xMSG kao objekt Dim xMailItem kao MailItem Dim xSaveFld Kao Outlook.Folder na pogrešku Nastavi Sljedeći Set xFSO = Nova Scripting. FileSystemObject Set xSelFolder = CreateObject ("Shell.Application"). BrowseForFolder (0, "Odabir mape:", 0, 0) Ako nije tipName (xSelFolder) = "Ništa" Zatim xSourceFldPath = xSelFolder.self.Path + Else xSourceFldPath = "" Izlaz iz Sub End Ako postavite xSourceFld = xFSO.GetFolder (xSourceFldPath) Postavite xSaveFld = GetObject ("", "Outlook.Application") GetNamespace ("MAPI") PickFolder Ako TypeName (xSaveFld) = " Zatim Exit Sub End Ako je za svaki xFileItem U xSourceFld.Files Set xMSG = Session.OpenSharedItem (xFileItem.Path) Postavite xMailItem = xMSG.Copy xMailItem.Move xSaveFld Postavi xMailItem = Ništa xMSG.Delete Set xMSG = Ništa Sljedeći xFileItem Set xFileItem = Ništa Postavi xSourceFld = Ništa Postavite xFSO = N othing End Sub

3. pritisni F5 ključ za pokretanje koda. U otvoru Pretraži za mapu dijaloški okvir, odaberite mapu koja sadrži MSG datoteke koje ćete uvesti u Outlook mapu, a zatim kliknite gumb OK dugme. Pogledajte snimak zaslona:

4. Sada a Odabir mape pojavljuje se dijaloški okvir, odaberite pogled mapu za spremanje uvezenih MSG datoteka i kliknite na OK tipku.

Zatim sve datoteke msg u određenoj mapi u datotečnom sustavu odmah se uvoze u određenu Outlook mapu.


Povezani članci:



Preporučeni alati za produktivnost

Kartica sustava Office

zlato star1 Donesite praktične kartice u program Excel i drugi Office, kao što su Chrome, Firefox i novi Internet Explorer.

Kutools za Excel

zlato star1 Nevjerojatno! Povećajte produktivnost u 5 minuta. Ne trebaju nikakve posebne vještine, osim dva sata svaki dan!

zlato star1 300 nove značajke za Excel, izraditi Excel mnogo jednostavan i snažan:

  • Spoji ćeliju / retke / stupce bez gubitka podataka.
  • Kombinirajte i konsolidirajte više tablica i radnih knjiga.
  • Usporedba raspona, kopiranje više raspona, pretvaranje teksta na datum, jedinica i pretvorba valuta.
  • Count po bojama, Paging Subtotal, Advanced Sort i Super Filter,
  • Više Odabir / umetanje / brisanje / tekst / oblikovanje / veza / komentar / radne knjige / alati za radne listove ...

Screen shot tvrtke Kutools za 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.