Mae cwcis yn ein helpu i gyflwyno ein gwasanaethau. Drwy ddefnyddio ein gwasanaethau, rydych yn cytuno i'n defnydd cwcis.
Tip: Mae ieithoedd eraill yn Google-Cyfieithu. Gallwch ymweld â'r English fersiwn o'r ddolen hon.
Mewngofnodi
x
or
x
x
cofrestr
x

or

Sut i fewnforio ffeiliau msg o'r system ffeiliau i ffolder Outlook?

Fel arfer, gallwch chi fewnforio ffeiliau msg o'r system ffeiliau i ffolder Outlook trwy lusgo a gollwng. Yn yr erthygl hon, byddwn yn dangos dull hawdd i chi mewnforio pob ffeil msg o system ffeil i ffolder Outlook penodol mewn manylion.

Mewnforio ffeiliau msg o'r system ffeiliau i ffolder Outlook gyda chod VBA


Yn hawdd arbed negeseuon e-bost dewisedig fel ffeiliau fformat gwahanol yn Outlook:

Gyda'r cyfleustodau Save as File o Kutools ar gyfer Outlook, gallwch chi arbed ffeil fformat HTML unigol, ffeil fformat TXT, dogfen Word, ffeil CSV yn ogystal â ffeil PDF yn Outlook fel y dangosir isod.

Kutools ar gyfer Outlook: gyda mwy na 40 Outlook ategol defnyddiol, yn rhad ac am ddim i geisio heb gyfyngiad mewn diwrnodau 45. Lawrlwythwch a threial am ddim Nawr!


Mewnforio ffeiliau msg o'r system ffeiliau i ffolder Outlook gyda chod VBA

Gwnewch fel a ganlyn i fewnforio ffeiliau msg o'r system ffeiliau i ffolder penodedig yn Outlook.

1. Gwasgwch y Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau. Yna copïwch y cod VBA isod i mewn i ffenestr y Modiwl.

Cod VBA: Mewnforio ffeiliau msg o'r system ffeiliau i ffolder Outlook

Sub ImportMessagesInFolder () Dim xFSO Fel Scripting.FileSystemObject Dim xSourceFld Fel Scripting.Folder Dim xSourceFldPath Fel String Dim xFileItem Fel Scripting.File Dim xMSG Fel Gwrthwynebiad Dim xMailItem Fel Post Dim Dim XSaveFld Fel Outlook.Folder Ar Gwall Dechreuwch Gosod Nesaf xFSO = Sgriptio Newydd. FileSystemObject Set xSelFolder = CreateObject ("Shell.Application") BrowseForFolder (0, "Dewiswch ffolder:", 0, 0) Os nad yw TypeName (xSelFolder) = "Does dim" Yna xSourceFldPath = xSelFolder.self.Path + "\" Else xSourceFldPath = "" Is-Ddechrau Ymadael Os Set xSourceFld = xFSO.GetFolder (xSourceFldPath) Gosod xSaveFld = GetObject ("", "Outlook.Application"). GetNamespace ("MAPI") PickFolder Os TypeName (xSaveFld) = "Dim" Yna Is-Ddechrau Ymadael Os Ar gyfer pob xFileItem Yn xSourceFld.Files Set xMSG = Session.OpenSharedItem (xFileItem.Path) Set xMailItem = xMSG.Copy xMailItem.Move xSaveFld Set xMailItem = Dim xMSG.Delete Set xMSG = Dim Nesaf xFileItem Set xFileItem = Dim Gosod xSourceFld = Dim Set xFSO = N dim byd diwedd

3. Gwasgwch y F5 allweddol i redeg y cod. Yn yr agoriad Pori Por Ffolder dialog, dewiswch y ffolder yn cynnwys y ffeiliau msg y byddwch yn eu mewnforio i ffolder Outlook, ac wedyn cliciwch OK botwm. Gweler y sgrin:

4. Nawr a Dewis Ffolder blwch deialog yn ymddangos, dewiswch Outlook ffolder i achub y ffeiliau msg a fewnforir, a chliciwch ar y OK botwm.

Yna caiff pob ffeil msg mewn ffolder penodol yn eich system ffeiliau eu mewnforio i mewn i blygell Outlook penodol ar unwaith.


Erthyglau cysylltiedig:



Offer Cynhyrchiant a Argymhellir

Tab Swyddfa

star1 aur Dewch â thafiau defnyddiol i Excel a meddalwedd Swyddfa eraill, yn union fel Chrome, Firefox a Internet Explorer newydd.

Kutools ar gyfer Excel

star1 aur Yn rhyfeddol! Cynyddu eich cynhyrchedd mewn munudau 5. Peidiwch ag angen unrhyw sgiliau arbennig, arbed dwy awr bob dydd!

star1 aur 300 Nodweddion Newydd ar gyfer Excel, Gwnewch Excel Yn Fach Hawdd a Phwerus:

  • Cyfuno Cell / Rows / Colofnau heb Colli Data.
  • Cyfuno a Chyfuno Taflenni Lluosog a Llyfrau Gwaith.
  • Cymharwch Rangau, Copi Lluosog, Trosi Testun hyd yma, Uned ac Addasu Arian.
  • Count by Colors, Subtotals Paging, Trefnu Uwch ac Uwch Hidlo,
  • Mwy Dethol / Mewnosod / Delete / Text / Format / Link / Comment / Llyfrau Gwaith / Taflenni Gwaith Offer ...

Sgrîn sgript o Kutools ar gyfer 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 · 8 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.