Padoms. Citas valodas ir Google tulkotas. Jūs varat apmeklēt English šīs saites versiju.
Pieslēgties
x
or
x
x
Reģistrēties
x

or

Kā importēt msg failus no failu sistēmas uz Outlook mapi?

Parasti jūs varat importēt msg failus no failu sistēmas uz mapi Outlook, velkot un nometot. Šajā rakstā mēs parādīsim jums vienkāršu metodi, kā importēt visus msg failus no failu sistēmas uz noteiktu Outlook mapi.

Importēt msg failus no failu sistēmas uz mapi Outlook ar VBA kodu


Vienkārši saglabājiet atlasītos e-pastus kā dažādus formāta failus programmā Outlook:

Ar Saglabāt kā failu lietderība Kutools Outlook, jūs varat viegli ietaupīt vairākus atlasītus emailsas individuālu HTML formāta failu, TXT formāta failu, Word dokumentu, CSV failu kā arī PDF failu programmā Outlook, kā turpmāk screenshot parādīja.

Kutools for Outlook: ar vairāk nekā 40 ērtiem Outlook pievienojumprogrammām, bez maksas var izmēģināt bez ierobežojumiem 45 dienās. Lejupielādēt un bezmaksas izmēģinājuma versija tūlīt!


Importēt msg failus no failu sistēmas uz mapi Outlook ar VBA kodu

Lūdzu, rīkojieties šādi, lai importētu msg failus no failu sistēmas uz noteiktu mapi programmā Outlook.

1. Nospiediet cits + F11 taustiņi, lai atvērtu Microsoft Visual Basic for Applications logs.

2. Iekš Microsoft Visual Basic for Applications logs, noklikšķiniet uz ielaidums > Moduļi. Pēc tam kopējiet VBA kodu moduļa logā.

VBA kods: importējiet msg failus no failu sistēmas uz Outlook mapi

Sub ImportMessagesInFolder () Dim xFSO Kā 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 Kā Outlook.Folder On Error Resume Next Set xFSO = new skriptu. . FileSystemObject Set xSelFolder = CreateObject ( "Shell.application") BrowseForFolder (0, "Izvēlieties mapi:", 0, 0) Ja nav TypeName (xSelFolder) = "Nekas" Tad xSourceFldPath = xSelFolder.self.Path + "\" Else xSourceFldPath = "" Exit sub beigas Ja Set xSourceFld = xFSO.GetFolder (xSourceFldPath) Set xSaveFld = GetObject ( "", "Outlook.Application"). GetNamespace ( "MAPI"). PickFolder If TypeName (xSaveFld) = "Nekas" Tad Iziet Sub beigas Ja Par katru xFileItem In xSourceFld.Files komplekts xMSG = Session.OpenSharedItem (xFileItem.Path) Set xMailItem = xMSG.Copy xMailItem.Move xSaveFld Set xMailItem = Nekas xMSG.Delete Set xMSG = Nekas Nākamais xFileItem Set xFileItem = Nothing Iestatīt xSourceFld = Nothing Set xFSO = N othing End Sub

3. Nospiediet F5 taustiņš, lai palaistu kodu. Atklāšanā Pārlūkot mapi Dialoglodziņā atlasiet mapi, kurā atrodas msg faili, kurus importēsit Outlook mapē, un pēc tam noklikšķiniet uz OK poga Skatīt ekrānuzņēmumu:

4. Tagad a Izvēlieties mapi Dialoglodziņš uznirst, lūdzu, izvēlieties perspektīva mapi, lai saglabātu importētos failu failus, un noklikšķiniet uz OK poga.

Tad visi failu faili konkrētā faila sistēmas mapē tiek nekavējoties importēti konkrētā Outlook mapē.


Līdzīgi raksti:



Ieteicamie produktivitātes rīki

Cilnē Office

zelta zvaigzne1 Novietojiet parocīgas cilnes Excel un citai Office programmatūrai, tāpat kā Chrome, Firefox un jaunā Internet Explorer.

Kutools Excel

zelta zvaigzne1 Pārsteidzošs! Palieliniet savu produktivitāti 5 minūtēs. Nepieciešamas īpašas prasmes, izņemot katru dienu divas stundas!

zelta zvaigzne1 300 jaunas funkcijas Excel, Make Excel daudz viegli un jaudīgu:

  • Apvienot šūnu / rindas / kolonnas, nezaudējot datus.
  • Apvienot un konsolidēt vairākas lapas un darbgrāmatas.
  • Salīdziniet diapazonus, kopējiet vairākus diapazonus, pārveidojiet tekstu uz datumu, vienību un valūtas konvertēšanu.
  • Count by Colors, Paging Starpsvars, Advanced Kārtot un Super Filter,
  • Vairāk Izvēlēties / Ievietot / Dzēst / Teksts / Format / Saite / Komentārs / Darbgrāmatas / Darblapas Rīki ...

Kutools ekrānuzņēmums 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.