Tipp: Andere Sprachen sind Google-Übersetzungen. Sie können die English Version dieses Links.
Einloggen
x
or
x
x
Registrieren
x

or

Wie msg-Dateien aus dem Dateisystem in Outlook-Ordner importieren?

Normalerweise können Sie MSG-Dateien aus dem Dateisystem per Drag & Drop in einen Outlook-Ordner importieren. In diesem Artikel zeigen wir Ihnen eine einfache Methode zum Importieren aller msg-Dateien aus einem Dateisystem in einen angegebenen Outlook-Ordner im Detail.

Importieren Sie Nachrichten-Dateien aus dem Dateisystem in Outlook-Ordner mit VBA-Code


Einfaches Speichern ausgewählter E-Mails als verschiedene Formatdateien in Outlook:

Mit dem Speichern als Datei-Dienstprogramm von Kutools für Outlook, können Sie einfach mehrere ausgewählte E-Mails als einzelne HTML-Format-Datei, TXT-Format-Datei, Word-Dokument, CSV-Datei sowie PDF-Datei in Outlook speichern, wie unten Screenshot gezeigt.

Kutools for Outlook: mit mehr als 40 praktischen Outlook-Add-Ins, die in 45-Tagen kostenlos zur Verfügung stehen. Download und kostenlose Testversion Jetzt!


Importieren Sie Nachrichten-Dateien aus dem Dateisystem in Outlook-Ordner mit VBA-Code

Gehen Sie folgendermaßen vor, um MSG-Dateien aus dem Dateisystem in einen angegebenen Ordner in Outlook zu importieren.

1. Drücken Sie die Taste Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Einsatz > Modul. Kopieren Sie dann den VBA-Code in das Modulfenster.

VBA-Code: Importieren Sie die msg-Dateien aus dem Dateisystem in den Outlook-Ordner

Sub ImportMessagesInFolder () Dim xFSO Wie Scripting.FileSystemObject Dim xSourceFld Als Scripting.Folder Dim xSourceFldPath Als String Dim xFileItem Als Scripting.File Dim xMSG Als Objekt Dim xMailItem Als MailItem Dim xSaveFld As Outlook.Folder Bei Fehler Resume Next Setzen Sie xFSO = New Scripting. FileSystemObject Set xSelFolder = CreateObject ("Shell.Application"). BrowseForFolder (0, "Wählen Sie einen Ordner:", 0, 0) Wenn nicht TypeName (xSelFolder) = "Nothing" Dann xSourceFldPath = xSelFolder.self.Path + "\" Else xSourceFldPath = "" Exit Sub End Wenn gesetzt xSourceFld = xFSO.GetFolder (xSourceFldPath) Setze xSaveFld = GetObject ("", "Outlook.Application"). GetNamespace ("MAPI"). PickFolder Wenn TypeName (xSaveFld) = "Nothing" Dann Exit Sub End Wenn für jedes xFileItem In xSourceFld.Files Set xMSG = Sitzung.OpenSharedItem (xFileItem.Path) Set xMailItem = xMSG.Copy xMailItem.Move xSaveFld Set xMailItem = Nichts xMSG.Delete Set xMSG = Nichts Weiter xFileItem Set xFileItem = Nichts Setze xSourceFld = Nothing Setze xFSO = N othing Ende Sub

3. Drücken Sie die Taste F5 Schlüssel zum Ausführen des Codes. In der Eröffnung Suche nach Ordner Wählen Sie im Dialogfeld den Ordner mit den msg - Dateien aus, die Sie in den Outlook - Ordner importieren möchten, und klicken Sie dann auf OK Taste. Siehe Screenshot:

4. Jetzt a Ordner auswählen Dialogfeld erscheint, bitte wählen Sie ein Outlook Ordner zum Speichern der importierten MSG - Dateien und klicken Sie auf OK klicken.

Anschließend werden alle MSG-Dateien in einem bestimmten Ordner in Ihrem Dateisystem sofort in einen angegebenen Outlook-Ordner importiert.


In Verbindung stehende Artikel:



Empfohlene Produktivitätswerkzeuge

Office Tab

Goldstern1 Bringen Sie praktische Tabs zu Excel und anderer Office-Software, genau wie Chrome, Firefox und den neuen Internet Explorer.

Kutools for Excel

Goldstern1 Tolle! Steigern Sie Ihre Produktivität in 5 Minuten. Brauche keine besonderen Fähigkeiten, spare zwei Stunden pro Tag!

Goldstern1 300 Neue Funktionen für Excel, machen Excel viel einfacher und leistungsfähiger:

  • Zelle / Zeilen / Spalten zusammenführen, ohne Daten zu verlieren.
  • Kombinieren und konsolidieren Sie mehrere Arbeitsblätter und Arbeitsmappen.
  • Bereiche vergleichen, Mehrere Bereiche kopieren, Text in Datum umwandeln, Einheit und Währungsumrechnung.
  • Zählen nach Farben, Paging-Zwischensummen, Erweiterte Sortierung und Super-Filter,
  • Mehr Auswählen / Einfügen / Löschen / Text / Formatieren / Verknüpfen / Kommentieren / Arbeitsmappen / Arbeitsblätter Werkzeuge ...

Screenshot von Kutools für Excel

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.
    Amey Thombre · 10 months ago
    This is amazing and just does what i was looking for. just make sure that you have Microsoft System Runtime library selected in the references of the VBA project as Scripting object is from that library.