Wie importiere ich Nachrichtendateien aus dem Dateisystem in den Outlook-Ordner?
Normalerweise können Sie Nachrichtendateien durch Ziehen und Ablegen aus dem Dateisystem in einen Outlook-Ordner importieren. In diesem Artikel zeigen wir Ihnen eine einfache Methode zum detaillierten Importieren aller Nachrichtendateien aus einem Dateisystem in einen angegebenen Outlook-Ordner.
Importieren Sie Nachrichtendateien aus dem Dateisystem mit VBA-Code in den Outlook-Ordner
Importieren Sie Nachrichtendateien aus dem Dateisystem mit VBA-Code in den Outlook-Ordner
Gehen Sie wie folgt vor, um Nachrichtendateien 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 Insert > Modul. Kopieren Sie dann den folgenden VBA-Code in das Modulfenster.
VBA-Code: Importieren Sie Nachrichtendateien aus dem Dateisystem in den Outlook-Ordner
Sub ImportMessagesInFolder()
Dim xFSO As Scripting.FileSystemObject
Dim xSourceFld As Scripting.Folder
Dim xSourceFldPath As String
Dim xFileItem As Scripting.File
Dim xMSG As Object
Dim xMailItem As MailItem
Dim xSaveFld As Outlook.Folder
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
Set xSelFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Select a folder:", 0, 0)
If Not TypeName(xSelFolder) = "Nothing" Then
xSourceFldPath = xSelFolder.self.Path + "\"
Else
xSourceFldPath = ""
Exit Sub
End If
Set xSourceFld = xFSO.GetFolder(xSourceFldPath)
Set xSaveFld = GetObject("", "Outlook.Application").GetNamespace("MAPI").PickFolder
If TypeName(xSaveFld) = "Nothing" Then
Exit Sub
End If
For Each xFileItem In xSourceFld.Files
Set xMSG = Session.OpenSharedItem(xFileItem.Path)
Set xMailItem = xMSG.Copy
xMailItem.Move xSaveFld
Set xMailItem = Nothing
xMSG.Delete
Set xMSG = Nothing
Next xFileItem
Set xFileItem = Nothing
Set xSourceFld = Nothing
Set xFSO = Nothing
End 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 Nachrichtendateien aus, die Sie in den Outlook-Ordner importieren möchten, und klicken Sie dann auf OK Taste. Siehe Screenshot:
4. Nun a Ordner auswählen Das Dialogfeld wird angezeigt. Wählen Sie eine aus Outlook Ordner, um die importierten Nachrichtendateien zu speichern, und klicken Sie auf OK .
Anschließend werden alle Nachrichtendateien in einem bestimmten Ordner in Ihrem Dateisystem sofort in einen angegebenen Outlook-Ordner importiert.
Speichern Sie ausgewählte E-Mails einfach als Dateien mit unterschiedlichem Format in Outlook:
Mit der Massenspeicherung Nutzen von Kutools for OutlookSie können problemlos mehrere ausgewählte E-Mails als einzelne HTML-Formatdatei, TXT-Formatdatei, Word-Dokument, CSV-Datei sowie PDF-Datei in Outlook speichern, wie in der folgenden Demo gezeigt.
Jetzt herunterladen und ausprobieren! (60 Tage kostenloser Trail)
In Verbindung stehende Artikel:
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!