Patarimas: kitos kalbos yra "Google" išverstos. Galite aplankyti English šios nuorodos versija.
Prisijungti
x
or
x
x
Registruotis
x

or

Kaip importuoti "msg" failus iš failų sistemos į "Outlook" aplanką?

Paprastai galite vilkti ir nulenkti failus meniu "msg" failus iš failų sistemos į "Outlook" aplanką. Šiame straipsnyje mes parodysime jums paprastą būdą išsiųsti išsamią visų failų sistemos failus iš failų sistemos į konkretų aplanką Outlook.

Importuoti msg failus iš failų sistemos į Outlook aplanką su VBA kodu


Lengvai išsaugokite pasirinktus el. Laiškus kaip įvairius formatų failus "Outlook":

Naudodami Kutools for Outlook programą "Išsaugoti kaip failą", galite lengvai išsaugoti keletą pasirinktų el. Laiškų, atskirų HTML formato bylos, TXT formato bylos, "Word" dokumento, CSV failo ir PDF failo, kaip parodyta paveikslėlyje.

Kutools for Outlook: su daugiau nei 40 patogiais "Outlook" papildinimais, galite nemokamai išbandyti be apribojimų per 45 dienas. Atsisiųskite ir nemokamai bandykite dabar!


Importuoti msg failus iš failų sistemos į Outlook aplanką su VBA kodu

Prašome atlikti toliau nurodytus veiksmus, jei norite importuoti "msg" failus iš failų sistemos į nurodytą "Outlook" aplanką.

1. Paspauskite Kitas + F11 raktus atidaryti "Microsoft Visual Basic for Applications" langas.

2. Viduje "Microsoft Visual Basic for Applications" langas, spustelėkite įsiuvas > Moduliai. Tada nukopijuokite žemiau VBA kodą į modulio langą.

VBA kodas: importuokite "msg" failus iš failų sistemos į "Outlook" aplanką

Sub ImportMessagesInFolder () Dim xFSO kaip Scripting.FileSystemObject Dim xSourceFld kaip scenarijus. Aplankas Dim xSourceFldPath kaip String Dim xFileItem kaip scenarijus. Fails Dim xMSG kaip Object Dim xMailItem kaip MailItem Dim xSaveFld kaip Outlook.Folder dėl klaidos tęsti toliau. Nustatyti xFSO = Naujas scenarijus. FileSystemObject Set xSelFolder = CreateObject ("Shell.Application"). BrowseForFolder (0, "Pasirinkite aplanką:", 0, 0) Jei ne tipasName (xSelFolder) = "Nothing" Tada xSourceFldPath = xSelFolder.self.Path + "\" Kita "xSourceFldPath =" "Exit Sub End" Jei nustatykite xSourceFld = xFSO.GetFolder (xSourceFldPath) Nustatykite xSaveFld = GetObject ("", "Outlook.Application"). GetNamespace ("MAPI"). PickFolder Jei TypeName (xSaveFld) = "Nothing" Tada Exit Sub End, jei kiekvienam xFileItem Į xSourceFld.Files nustatykite xMSG = Session.OpenSharedItem (xFileItem.Path) Nustatykite xMailItem = xMSG.Copy xMailItem.Move xSaveFld Nustatyti xMailItem = Nieko xMSG.Delete Set xMSG = Nieko Kitas xFileItem Nustatyti xFileItem = Nieko Nustatyti xSourceFld = Nieko Nustatyti xFSO = N Obe End Sub

3. Paspauskite F5 raktas paleisti kodą. Atidaryme Naršyti aplanką Dialogo lange pasirinkite aplanką, kuriame yra failai msg, kuriuos importuosite į aplanką Outlook, tada spustelėkite OK mygtukas. Žr. Ekrano kopiją:

4. Dabar a Pasirinkite aplanką dialogo langas pasirodys, pasirinkite Outlook aplanką, kuriame bus išsaugoti importuoti failai ir spustelėkite OK mygtuką.

Tada visi failai, esantys tam tikrame failų sistemos aplanke, nedelsiant importuojami į nurodytą "Outlook" aplanką.


Susiję straipsniai:



Rekomenduojami įrankiai našumui

Office Tab

aukso žvaigždutė1 Pateikite patogius skirtukus "Excel" ir kitai "Office" programinei įrangai, kaip ir "Chrome", "Firefox" ir "Internet Explorer".

Kutools for Excel

aukso žvaigždutė1 Nuostabi! Padidinkite savo našumą per 5 min. Nereikia jokių specialių įgūdžių, išskyrus dvi valandas kiekvieną dieną!

aukso žvaigždutė1 "300" naujos funkcijos "Excel", "Excel" daug lengvumo ir galingumo:

  • Sujungti elementus / eilutes / stulpelius neprarandant duomenų.
  • Suderinkite ir susinenkite kelis lapus ir darbaknygius.
  • Palyginkite diapazonus, nukopijuokite keletą diapazonų, konvertuokite tekstą į datą, vienetą ir valiutos konvertavimą.
  • Skaičiuojamas pagal spalvas, tarpinių pranešimų vidurkis, išplėstinis rūšiavimas ir super filtras,
  • Daugiau Pasirinkite / Įterpti / Ištrinti / Tekstas / Formatas / Nuoroda / Komentaras / Darbaknygiai / Užduotys Įrankiai ...

Kutools ekrano kopija 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.