Wie speichere ich mehrere ausgewählte E-Mails in Outlook als MSG-Dateien in großen Mengen?

Es ist einfach, eine E-Mail als MSG-Datei in Outlook zu speichern. Wie können Sie mehrere ausgewählte E-Mails in Outlook als einzelne MSG-Dateien in großen Mengen speichern? Dieser Artikel zeigt Ihnen eine Methode, um dies zu erreichen.

Speichern Sie mehrere ausgewählte E-Mails als MSG-Dateien mit VBA-Code

Speichern Sie mehrere ausgewählte E-Mails als MSG-Dateien mit VBA-Code

Mit dem folgenden VBA-Code können Sie mehrere ausgewählte E-Mails als einzelne MSG-Dateien in großen Mengen in Outlook speichern. Bitte gehen Sie wie folgt vor.

1. Wählen Sie die E-Mails aus, die Sie als MSG-Dateien speichern möchten. Drücken Sie dann gleichzeitig die Tasten Alt + F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.

2. Klicken Sie im Fenster Microsoft Visual Basic für Applikationen auf Einfügen> Modul und kopieren Sie den folgenden VBA-Code in das Modulfenster.

VBA-Code: Speichern Sie mehrere ausgewählte E-Mails als einzelne MSG-Dateien in 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. Drücken Sie die Taste F5, um den Code auszuführen.

4. Geben Sie im Dialogfeld „Nach Ordner suchen“ einen Ordner zum Speichern der MSG-Dateien an und klicken Sie dann auf die Schaltfläche „OK“. Siehe Screenshot:

Jetzt werden alle ausgewählten E-Mails als einzelne MSG-Dateien gespeichert, wie im folgenden Screenshot gezeigt.

---

Beste Office-Produktivitätstools

Kutools for Outlook - Über 100 leistungsstarke Funktionen zur Optimierung Ihres Outlooks

🤖 KI-Mail-Assistent: Sofortige Profi-E-Mails mit KI-Magie – geniale Antworten mit einem Klick, perfekter Ton, mehrsprachige Beherrschung. Verwandeln Sie den E-Mail-Versand mühelos! ...

📧 E-Mail Automation: Abwesenheit (verfügbar für POP und IMAP)  /  Planen Sie das Senden von E-Mails  /  Automatisches CC/BCC nach Regeln beim E-Mail-Versand  /  Automatische Weiterleitung (erweiterte Regeln)   /  Begrüßung automatisch hinzufügen   /  Teilen Sie E-Mails mit mehreren Empfängern automatisch in einzelne Nachrichten auf ...

📨 E-Mail-Management: E-Mails einfach abrufen  /  Blockieren Sie betrügerische E-Mails nach Betreff und anderen  /  Doppelte E-Mails löschen  /  Erweiterte Suche  /  Ordner konsolidieren ...

📁 Anhänge Pro: Batch speichern  /  Stapeltrennung  /  Stapelkomprimierung  /  Automatisches Speichern   /  Automatische Trennung  /  Automatische Komprimierung ...

???? Schnittstellenmagie: 😊Mehr hübsche und coole Emojis   /  Steigern Sie Ihre Outlook-Produktivität mit Registerkartenansichten  /  Ausblick minimieren statt schließen ...

👍 Wunder mit einem Klick: Allen mit eingehenden Anhängen antworten  /   Anti-Phishing-E-Mails  /  🕘Zeitzone des Absenders anzeigen ...

👩🏼‍🤝‍👩🏻 Kontakte und Kalender: Fügen Sie Kontakte aus ausgewählten E-Mails im Stapel hinzu  /  Teilen Sie eine Kontaktgruppe in einzelne Gruppen auf  /  Geburtstagserinnerungen entfernen ...

Auf über 100 Eigenschaften Warten Sie auf Ihre Erkundung! Klicken Sie hier, um mehr zu erfahren.

Weiterlesen       Free Download      Bezug von MarvelClient