Hvordan gemmes flere valgte e-mails som MSG-filer i bulk i Outlook?
Det er nemt at gemme en e-mail som en MSG-fil i Outlook. Hvordan kan du gemme flere valgte e-mails som individuelle MSG-filer i bulk i Outlook? Denne artikel viser dig en metode til at opnå det.
Gem flere valgte e-mails som MSG-filer med VBA-kode
Gem flere valgte e-mails som MSG-filer med VBA-kode
Følgende VBA-kode kan hjælpe dig med at gemme flere valgte e-mails som individuelle MSG-filer i bulk i Outlook. Gør som følger.
1. Vælg de e-mails, du vil gemme som MSG-filer. Tryk derefter på Alt + F11-tasterne samtidigt for at åbne vinduet Microsoft Visual Basic til applikationer.
2. I vinduet Microsoft Visual Basic til applikationer skal du klikke på Indsæt> Modul og derefter kopiere under VBA-koden til modulvinduet.
VBA-kode: Gem flere valgte e-mails som individuelle 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. Tryk på F5-tasten for at køre koden.
4. I dialogboksen Søg efter mappe skal du angive en mappe til at gemme MSG-filerne og derefter klikke på knappen OK. Se skærmbillede:
Nu gemmes alle valgte e-mails som individuelle MSG-filer som vist nedenfor.
Gem nemt valgte e-mails som forskellige formatfiler i Outlook:
Med Massebesparelse nytte af Kutools til Outlook, kan du nemt gemme flere valgte e-mails som individuel HTML-formatfil, TXT-formatfil, Word-dokument, CSV-fil samt PDF-fil i Outlook, som nedenstående skærmbillede viste. Download og prøv det nu! (60-dages gratis spor)
Bedste kontorproduktivitetsværktøjer
Kutools til Outlook - Over 100 kraftfulde funktioner til at superlade din Outlook
🤖 AI Mail Assistant: Øjeblikkelige pro-e-mails med AI-magi – et klik for geniale svar, perfekt tone, flersproget beherskelse. Forvandl e-mailing ubesværet! ...
📧 Email Automation: Ikke til stede (tilgængelig til POP og IMAP) / Planlæg Send e-mails / Auto CC/BCC efter regler ved afsendelse af e-mail / Automatisk videresendelse (avancerede regler) / Tilføj automatisk hilsen / Opdel automatisk e-mails med flere modtagere i individuelle meddelelser ...
📨 Email Management: Genkald nemt e-mails / Bloker svindel-e-mails af emner og andre / Slet duplikerede e-mails / Avanceret søgning / Konsolider mapper ...
📁 Vedhæftede filer Pro: Batch Gem / Batch adskilles / Batch komprimere / Automatisk gem / Automatisk afmontering / Automatisk komprimering ...
🌟 Interface Magic: 😊 Flere smukke og seje emojis / Boost din Outlook-produktivitet med fanebaserede visninger / Minimer Outlook i stedet for at lukke ...
👍 Wonders med et enkelt klik: Besvar alle med indgående vedhæftede filer / Anti-phishing e-mails / 🕘Vis afsenderens tidszone ...
👩🏼🤝👩🏻 Kontakter og kalender: Batch Tilføj kontakter fra udvalgte e-mails / Opdel en kontaktgruppe til individuelle grupper / Fjern fødselsdagspåmindelser ...
Over 100 Features Afvent din udforskning! Klik her for at finde mere.