Wenk: Ander tale is Google-vertaal. U kan die English weergawe van hierdie skakel.
Teken aan
x
or
x
x
registreer
x

or

Hoe kan u verskeie geselekteerde e-posse as MSG-lêers in grootmaat in Outlook stoor?

Dit is maklik om 'n e-pos as 'n MSG-lêer in Outlook te stoor. Hoe kan jy verskeie geselekteerde e-posse as individuele MSG-lêers in grootmaat in Outlook stoor? Hierdie artikel sal jou 'n metode wys om dit te bereik.

Stoor verskeie geselekteerde e-posse as MSG-lêers met VBA-kode


Maklik geselekteerde e-posse stoor as verskillende formaat lêers in Outlook:

Met die lêer Stoor as lêer van Kutools vir Outlook kan jy maklik verskeie geselekteerde emails se individuele HTML-formaat lêer, TXT-formaatlêer, Word-dokument, CSV-lêer sowel as PDF-lêer in Outlook, soos hieronder vertoon, vertoon.

Kutools for Outlook: met meer as 40 handige Outlook-invoegtoepassings, kan jy sonder beperking in 45 dae probeer. Laai en gratis toets nou!


Stoor verskeie geselekteerde e-posse as MSG-lêers met VBA-kode

Die volgende VBA-kode kan u help om verskeie geselekteerde e-posse te stoor as individuele MSG-lêers in grootmaat in Outlook. Doen asseblief as volg.

1. Kies die e-posse wat jy wil stoor as MSG-lêers. Druk dan die Alt + F11 sleutels gelyktydig om die Microsoft Visual Basic for Applications venster oop te maak.

2. Klik in die venster Microsoft Visual Basic for Applications op Invoeg> Module, en kopieer dan VBA-kode onder in die Module-venster.

VBA-kode: Slaan verskeie geselekteerde e-posse as individuele MSG-lêers in Outlook

Openbare Sub SaveMessageAsMsg () 'Opdateer deur Extendoffice 2018 / 3 / 5 Dim xMail As Outlook.MailItem Dim xObjItem As Object Dim xPath As String Dim xDtDate As Date Dim xName, xFileName As String On Error, hervat volgende stel xShell = CreateObject ("Shell. Aansoek ") Stel xFolder = xShell.BrowseForFolder (0," Kies 'n gids: ", 0, strStartingFolder) As nie TypeName (xFolder) =" Niks "dan stel xFolderItem = xFolder.self xFileName = xFolderItem.Path &" \ "Else xFileName = "" Exit Sub End As Vir Elke xObjItem In Outlook.ActiveExplorer.Selection As xObjItem.Class = OlMail Stel xMail = xObjItem xName = xMail.Subject xDtDate = xMail.ReceivedTime xName = Format (xDtDate, "yyyymmdd", vbUseSystemDayOfWeek, _ vbUseSystem) en formaat (xDtDate, "-hhnnss", _ vbUseSystemDayOfWeek, vbUseSystem) & "-" & xName & ".msg" xPath = xFileName + xName xMail.SaveAs xPath, olMSG Einde As Volgende Einde Sub

3. Druk die F5 sleutel om die kode uit te voer.

4. Gee in die dialoogkassie Blaai vir gids 'n gids op om die MSG-lêers te stoor en klik dan op die OK-knoppie. Sien skermkiekie:

Nou word alle geselekteerde e-posse as individuele MSG-lêers gestoor soos hieronder aangedui.



Kutools for Outlook

Meer as 100 Gevorderde funksies vir Outlook 2010, 2013, 2016, 2019 en 365

skermskut kutools vir uitsig klein vir banner 201812

Meer funksies | Gratis aflaai | Slegs $ 39.00 vir honderde funksies

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.