Näpunäide. Teised keeled on Google'i tõlgitud. Võite külastada English selle lingi versioon.
Logi sisse
x
or
x
x
Regist.
x

or

Kuidas Outlookis mitut valitud meili salvestada MSG-failidena?

Outlooki MSG-faili on lihtne salvestada. Kuidas saate Outlookis mitmesuguseid valitud e-kirju eraldi mitme MSG-failina salvestada? See artikkel näitab teile meetodit selle saavutamiseks.

Salvestage mitme valitud e-kirju MSB-failidena VBA-koodiga


Outlooki erinevate formaadifailide abil saate hõlpsalt salvestada valitud meilid:

Kutools Outlooki jaoks Save as File-i abil saate hõlpsalt salvestada mitut valitud meilisõnumit eraldi HTML-vormingus faili, TXT-vormingusfaili, Wordi dokumendi, CSV-faili ja PDF-failina Outlookis, nagu allpool on kujutatud ekraanipildi.

Outlooki Kutools: rohkem kui 40 käepärased Outlooki lisandmoodulid, mida saate tasuta proovida 45 päeva jooksul ilma piiranguteta. Laadige alla ja proovige kohe proovige nüüd!


Salvestage mitme valitud e-kirju MSB-failidena VBA-koodiga

Järgmine VBA-kood aitab teil Outlooki mitmesuguseid MSG-faile mitut valitud meilisõnumit salvestada. Palun tehke järgmist.

1. Valige e-kirjad, mida soovite salvestada MSG-failidena. Seejärel vajutage üheaegselt klahve Alt + F11, et avada Microsoft Visual Basic for Applications aken.

2. Klõpsake aknas Microsoft Visual Basic for Applications, klõpsake Lisa> Moodul ja seejärel kopeerige VBA koodi akna moodulisse.

VBA-kood: salvestage mitu valitud meilisõnumit kui üksikud MSG-failid Outlookis

Avalik Sub SaveMessageAsMsg () 'Uuenda Extendoffice kaudu 2018 / 3 / 5 Dim xMail Nagu Outlook.MailItem Dim xObjItem Nagu Object Dim xPath Nagu String Dim xDtDate Nagu Date Dim xName, xFileName Nagu String On Error Jätkata Järgmine Määra xShell = CreateObject ("Shell. Rakendus ") Määra xFolder = xShell.BrowseForFolder (0," Vali kaust: ", 0, strStartingFolder) Kui not TypeName (xFolder) =" Nothing "Siis määrake xFolderItem = xFolder.self xFileName = xFolderItem.Path &" \ "Muu xFileName = "" Exit Sub End Kui iga xObjItem Outlookis.ActiveExplorer.Selection Kui xObjItem.Class = olMail Siis määrake xMail = xObjItem xName = xMail.Subject xDtDate = xMail.ReceivedTime xName = Formaat (xDtDate, "yyyymmdd", vbUseSystemDayOfWeek, _ vbUseSystem) & Format (xDtDate, "-hhnnss", _ vbUseSystemDayOfWeek, vbUseSystem) & "-" & xName & ". msg" xPath = xFileName + xName xMail.SaveAs xPath, olMSG End Kui Järgmine End Sub

3. Koodi käivitamiseks vajutage klahvi F5.

4. Dialoogiboksis Sirvi kaust valige palun MSG-failide salvestamiseks kaust ja seejärel klõpsake nuppu OK. Vaata pilti:

Nüüd valitakse kõik valitud e-kirjad eraldi MSG-failidena, nagu on näidatud allpool.



Outlooki Kutools

Rohkem kui 100 täiustatud funktsioonid Outlooki 2010, 2013, 2016, 2019 ja 365 jaoks

ekraanipilt kutools jaoks banneri 201812 jaoks väikeseks

Veel | Tasuta allalaadimine | Ainult $ 39.00 sadade funktsioonide jaoks

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.
    LBJ · 2 months ago
    When there is a ":" in the subject, this code cannot copy the whole subject to be the name of the saved message, is there any way to solve this problem?
    • To post as a guest, your comment is unpublished.
      Daniel · 2 months ago
      change line 21 to xName="". The saved message filname will not include the subject anymore.