Hur sparar jag flera valda e-postmeddelanden som MSG-filer i bulk i Outlook?
Det är enkelt att spara ett e-postmeddelande som en MSG-fil i Outlook. Hur kan du spara flera valda e-postmeddelanden som enskilda MSG-filer i bulk i Outlook? Den här artikeln visar en metod för att uppnå det.
Spara flera valda e-postmeddelanden som MSG-filer med VBA-kod
Spara flera valda e-postmeddelanden som MSG-filer med VBA-kod
Följande VBA-kod kan hjälpa dig att spara flera valda e-postmeddelanden som enskilda MSG-filer i bulk i Outlook. Gör så här.
1. Välj de e-postmeddelanden som du vill spara som MSG-filer. Tryck sedan på Alt + F11-tangenterna samtidigt för att öppna Microsoft Visual Basic for Applications-fönstret.
2. I Microsoft Visual Basic for Applications-fönstret klickar du på Infoga> Modul och kopierar sedan under VBA-koden till modulfönstret.
VBA-kod: Spara flera valda e-postmeddelanden som enskilda MSG-filer i Outlook
Public Sub SaveMessageAsMsg()
'Update by 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 Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, strStartingFolder)
If Not TypeName(xFolder) = "Nothing" Then
Set xFolderItem = xFolder.self
xFileName = xFolderItem.Path & "\"
Else
xFileName = ""
Exit Sub
End If
For Each xObjItem In Outlook.ActiveExplorer.Selection
If xObjItem.Class = olMail Then
Set xMail = xObjItem
xName = xMail.Subject
xDtDate = xMail.ReceivedTime
xName = Format(xDtDate, "yyyymmdd", vbUseSystemDayOfWeek, _
vbUseSystem) & Format(xDtDate, "-hhnnss", _
vbUseSystemDayOfWeek, vbUseSystem) & "-" & xName & ".msg"
xPath = xFileName + xName
xMail.SaveAs xPath, olMSG
End If
Next
End Sub
3. Tryck på F5-tangenten för att köra koden.
4. I dialogrutan Bläddra efter mapp, ange en mapp för att spara MSG-filerna och klicka sedan på OK-knappen. Se skärmdump:
Nu sparas alla valda e-postmeddelanden som individuella MSG-filer enligt skärmbilden nedan.
Spara enkelt valda e-postmeddelanden som filer i olika format i Outlook:
Med Bulk Spara nytta av Kutools för Outlook, kan du enkelt spara flera valda e-postmeddelanden som enskild HTML-formatfil, TXT-formatfil, Word-dokument, CSV-fil samt PDF-fil i Outlook som nedanstående skärmdump visade. Ladda ner och prova nu! (60 dagars gratis spår)
Bästa kontorsproduktivitetsverktyg
Kutools för Outlook - Över 100 kraftfulla funktioner för att överladda din Outlook
🤖 AI Mail Assistant: Instant proffs-e-postmeddelanden med AI-magi – ett klick för geniala svar, perfekt ton, flerspråkig behärskning. Förvandla e-post utan ansträngning! ...
📧 Email Automation: Frånvaro (tillgänglig för POP och IMAP) / Schemalägg Skicka e-post / Auto CC/BCC enligt regler när du skickar e-post / Automatisk vidarebefordran (avancerade regler) / Lägg automatiskt till hälsning / Dela automatiskt e-postmeddelanden med flera mottagare i individuella meddelanden ...
📨 Email Management: Hämta enkelt e-postmeddelanden / Blockera bluff-e-postmeddelanden av ämnen och andra / Ta bort duplicerade e-postmeddelanden / Avancerad Sökning / Konsolidera mappar ...
📁 Bilagor Pro: Batch Spara / Batch lossa / Batchkomprimera / Automatisk sparning / Auto Lossa / Automatisk komprimering ...
🌟 Gränssnittsmagi: 😊 Fler vackra och coola emojis / Öka din Outlook-produktivitet med flikar / Minimera Outlook istället för att stänga ...
👍 Underverk med ett klick: Svara alla med inkommande bilagor / E-postmeddelanden mot nätfiske / 🕘Visa avsändarens tidszon ...
👩🏼🤝👩🏻 Kontakter och kalender: Lägg till kontakter i grupp från valda e-postmeddelanden / Dela upp en kontaktgrupp till individuella grupper / Ta bort påminnelser om födelsedag ...
Över 100 funktioner Vänta på din utforskning! Klicka här för att upptäcka mer.