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
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
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.
LBJ · 2 months ago