Kidokezo: Lugha zingine ni Google-Ilitafsiriwa. Unaweza kutembelea English toleo la kiungo hiki.
Ingia
x
or
x
x
Daftari
x

or

Jinsi ya kuagiza faili za msg kutoka kwenye mfumo wa faili kwenye folda ya Outlook?

Kwa kawaida, unaweza kuagiza faili za msg kutoka kwenye mfumo wa faili kwenye folda ya Outlook kwa kuvuta na kuacha. Katika makala hii, tutaonyesha njia rahisi ya kuingiza faili zote za msg kutoka kwa mfumo wa faili kwenye folda maalum ya Outlook kwa maelezo.

Weka faili za msg kutoka kwenye mfumo wa faili kwenye folda ya Outlook na msimbo wa VBA


Weka salama barua pepe zilizochaguliwa kama faili tofauti za muundo katika Outlook:

Kwa Hifadhi kama faili ya Kutools kwa Outlook, unaweza kuhifadhi urahisi faili za barua pepe zilizochaguliwa kwa kila faili ya faili ya HTML, faili ya faili ya TXT, hati ya faili, faili ya CSV pamoja na faili ya PDF katika Outlook kama ilivyo hapo chini skrini.

Kutools kwa Outlook: na zaidi ya 40 Handy Outlook kuongeza, bure kujaribu na hakuna kiwango katika siku 45. Pakua na jaribio la bure Sasa!


Weka faili za msg kutoka kwenye mfumo wa faili kwenye folda ya Outlook na msimbo wa VBA

Tafadhali fanya kama ifuatavyo kuagiza faili za msg kutoka kwenye mfumo wa faili hadi kwenye folda maalum katika Outlook.

1. Waandishi wa habari Alt + F11 funguo za kufungua Microsoft Visual Msingi kwa Maombi dirisha.

2. Ndani ya Microsoft Visual Msingi kwa Maombi dirisha, bonyeza Ingiza > Modules. Kisha nakala chini ya VBA code kwenye dirisha la Module.

Nambari ya VBA: Ingiza faili za msg kutoka kwenye mfumo wa faili hadi folda ya Outlook

Uingizaji wa Msaada Msaada () Dim XFSO Kama Scripting.FileSystemObject Dim xSourceFld Kama Scripting.Dogo x xSourceFldPath kama String Dim xFileItem Kama Scripting.Kuweka Dim XMSG Kama Kitu Dim xMailItem Kama MailItem Dim xSaveFld Kama Outlook.Folder Juu ya Hitilafu Resume Next Kuweka xFSO = New Scripting. FileSystemObject Set xSelFolder = CreateObject ("Shell.Application"). BrowseForFolder (0, "Chagua folda:", 0, 0) Ikiwa Si Aina ya Nambari (xSelFolder) = "Hakuna" Kisha xSourceFldPath = xSelFolder.self.Path + "\" Nyingine xSourceFldPath = "" Mwisho wa Mwisho wa Kushoto Ikiwa Uweka XSourceFld = xFSO.GetFolder (xSourceFldPath) Weka xSaveFld = GetObject ("", "Outlook.Application") GetNamespace ("MAPI"). PickFolder Kama TypeName (xSaveFld) = "Hakuna" Kisha Mwisho wa Mwisho wa Kutoka Ikiwa Kwa Kila Hifadhi ya Nambari Katika XSourceFld.Files Weka xMSG = Kipindi.KuingiaSharedItem (xFileItem.Path) Weka xMailItem = xMSG.Kupata Mahali.Kuondoa xKuweka Hifadhi xMailItem = Hakuna XMSG.Kuweka Hifadhi xMSG = Hakuna Kitu Chini xFileItem Kuweka xFileItem = Hakuna Weka xSourceFld = Hakuna kuweka XFSO = N Othing End Sub

3. Waandishi wa habari F5 ufunguo wa kuendesha msimbo. Katika ufunguzi Vinjari kwa Folda sanduku la mazungumzo, chagua folda ina faili za msg ambazo utaagiza kwenye Folda ya Outlook, na kisha bofya OK kifungo. Angalia skrini:

4. Sasa a Chagua folda sanduku la mazungumzo linaendelea, tafadhali chagua Outlook folda ili uhifadhi faili za msg zilizoingizwa, na bofya OK button.

Kisha faili zote za msg katika folda fulani katika mfumo wako wa faili zinaingizwa kwenye folda maalum ya Outlook mara moja.


Related makala:


Vifaa vya Uzalishaji wa Excel

Ribbon ya Excel (pamoja na Kutools kwa Excel imewekwa)

Features 300 + Zinazoongeza Kuongeza Uzalishaji wako na 70%, na Kukusaidia Kusimama Kutoka kwenye Umati!

Ungependa kukamilisha kazi yako ya kila siku haraka na kwa ukamilifu? Kutools Kwa Excel huleta Vipengele vya juu vya 300 + vyema na vyema (Jumuisha vitabu vya kazi, jumla kwa rangi, kupangilia maudhui ya kiini, tarehe ya kubadilisha, na kadhalika ...) kwa Matukio ya kazi ya 1500 +, husaidia kutatua Matatizo ya 80% ya Excel.

  • Ushiriki na kazi zote ngumu katika sekunde, usaidie kuimarisha uwezo wako wa kazi, kupata mafanikio kutoka kwa ushindani mkali, na usiwe na wasiwasi juu ya kufukuzwa.
  • Hifadhi muda mwingi wa kazi, kuondoka muda mwingi kwa kupenda na kutunza familia na kufurahia maisha mazuri sasa.
  • Kupunguza maelfu ya keyboard na panya ikichunguza kila siku, kupunguza macho yako na uchovu wako, na kukupa mwili mzuri.
  • Kuwa mtaalam wa Excel katika dakika ya 3, na uone mtazamo wa wenzako au marafiki.
  • Hakuna tena haja ya kukumbuka kanuni zenye maumivu na nambari za VBA, kuwa na akili ya kupumzika na yenye kupendeza, kukupa furaha ambayo haujawahi kuwa nayo kabla.
  • Tumia $ 39 tu, lakini thamani ya mafunzo ya wengine ya $ 4000. Kutumiwa na wasomi wa 110,000 na makampuni ya maalumu ya 300.
  • Siku ya 60 ya jaribio la bure bila ukomo. Dhamana ya fedha ya siku ya 60. Uboreshaji bure na usaidizi kwa miaka 2. Kununua mara moja, tumia milele.
  • Badilisha jinsi unavyofanya kazi sasa, na kukupa maisha bora mara moja!

Kitabu cha Ofisi kinaleta Tabs za Ufanisi na Handy kwa Ofisi (ikiwa ni pamoja na Excel), Kama Chrome, Firefox, na IE Mpya

  • Inaongeza uzalishaji wako kwa 50% wakati wa kutazama na kuhariri nyaraka nyingi.
  • Kupunguza vifungo vya panya kwa kila siku kwa kila siku, sema kwaheri kwa panya mkono.
  • Fungua na uunda hati katika tabo mpya za dirisha sawa, badala ya madirisha mapya.
  • Kukusaidia kufanya kazi kwa haraka na kwa urahisi kusimama kutoka kwa umati! Jambo moja la kubadili kati ya hati nyingi za wazi!
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.