Ábending: Önnur tungumál eru Google-þýdd. Þú getur heimsótt English útgáfa af þessum tengil.
Skrá inn
x
or
x
x
Nýskráning
x

or

Hvernig á að flytja inn msg skrá frá skráarkerfi til Outlook möppu?

Venjulega er hægt að flytja inn msg skrár úr skráarkerfi í Outlook möppu með því að draga og sleppa. Í þessari grein ætlum við að sýna þér auðveldan hátt til að flytja inn öll msg skrár úr skráarkerfi í tiltekinn Outlook möppu í smáatriðum.

Innflutningur msg skrár úr skráarkerfi til Outlook möppu með VBA kóða


Vistaðu vel valda tölvupóst sem mismunandi snið skrár í Outlook:

Með Vista sem skrá gagnsemi Kutools fyrir Outlook, getur þú auðveldlega vistað margar valin tölvupósts einstakra HTML sniði skrá, TXT snið skrá, Word skjal, CSV skrá og PDF skrá í Outlook eins og sýnt er hér að neðan.

Kutools fyrir Outlook: með fleiri en 40 handvirkt Outlook viðbætur, ókeypis að reyna án takmörkunar á 45 dögum. Niðurhal og ókeypis prufa núna!


Innflutningur msg skrár úr skráarkerfi til Outlook möppu með VBA kóða

Vinsamlegast gerðu eftirfarandi til að flytja inn msg skrá frá skráarkerfi í tiltekinn möppu í Outlook.

1. Ýttu á Alt + F11 lyklar til að opna Microsoft Visual Basic fyrir forrit gluggi.

2. Í Microsoft Visual Basic fyrir forrit glugga, smella Setja > Mát. Síðan afritaðu neðan VBA kóða í Module glugganum.

VBA kóða: Innflutningur msg skrá frá skráarkerfi til Outlook möppu

Sub ImportMessagesInFolder () Dim xFSO Eins Scripting.FileSystemObject Dim xSourceFld Sem Scripting.Folder Dim xSourceFldPath Eins og String Dim xFileItem sem Scripting.File Dim xMSG sem Object Dim xMailItem sem MailItem Dim xSaveFld sem Outlook.Folder á Villa halda áfram að setja Next xFSO = New Scripting. FileSystemObject Setja xSelFolder = CreateObject ("Shell.Application"). BrowseForFolder (0, "Veldu möppu:", 0, 0) Ef ekki tegundName (xSelFolder) = "Ekkert" Þá xSourceFldPath = xSelFolder.self.Path + "\" (XSaveFld) = "Ekkert" xSourceFld = xFSourceFldPath = Setja xSaveFld = xFSourceFldPath) Setja xSaveFld = GetObject ("", "Outlook.Application"). GetNamespace ("MAPI"). PickFolder Ef TypeName (xSaveFld) = "Ekkert" Síðan Hætta undir lok Ef fyrir hvern xFileItem Í xSourceFld.Files Setja xMSG = Session.OpenSharedItem (xFileItem.Path) Setja xMailItem = xMSG.Copy xMailItem.Move xSaveFld Setja xMailItem = Ekkert xMSG.Delete Setja xMSG = Ekkert Næsta xFileItem Setja xFileItem = Ekkert Setja xSourceFld = Ekkert sett xFSO = N Othing End Sub

3. Ýttu á F5 lykillinn að því að keyra kóðann. Í opnuninni Flettu eftir möppu valmynd, veldu möppuna sem inniheldur msg skráin sem þú vilt flytja inn í Outlook möppuna og smelltu síðan á OK takki. Sjá skjámynd:

4. Nú a Veldu möppu gluggi birtist skaltu velja Horfur möppu til að vista fluttar msg skrár og smelltu á OK hnappinn.

Þá eru öll msg skrá í ákveðinni möppu í skráarkerfinu flutt inn í tiltekinn Outlook möppu strax.


Tengdar greinar:



Ráðlögð framleiðni verkfæri

Office flipi

gull star1 Komdu með handan flipa í Excel og önnur Office hugbúnaður, eins og Króm, Firefox og nýjan Internet Explorer.

Kutools fyrir Excel

gull star1 Ótrúlegt! Auka framleiðni þína á 5 mínútum. Ekki þörf á sérstökum hæfileikum, spara tvær klukkustundir á hverjum degi!

gull star1 300 Nýjar eiginleikar fyrir Excel, Gera Excel mjög auðvelt og öflugt:

  • Sameina Cell / Rows / dálka án þess að tapa gögnum.
  • Sameina og sameina margar töflur og vinnubækur.
  • Bera saman sviðum, afritaðu margar línur, umbreyta texta í dag, einingar og gjaldmiðil viðskipta.
  • Fjöldi með litum, síðuskiptafjölda, háþróaður flokkur og frábær sía,
  • Meira Veldu / Setja / Eyða / Texti / Snið / Link / Athugasemd / Vinnubækur / Verkstæði Verkfæri ...

Skjár skot af Kutools fyrir 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.