Wie kopiert man alle Anhänge aus mehreren E-Mails in eine neue E-Mail in Outlook?

Das effiziente Verwalten von E-Mail-Anhängen in Outlook kann herausfordernd sein – besonders, wenn Sie Anhänge aus mehreren E-Mails extrahieren und in einer neuen E-Mail zusammenführen oder alle Anhänge einer Nachricht direkt in eine Antwortnachricht kopieren möchten. Das manuelle Speichern und erneute Anhängen der Dateien ist nicht nur zeitaufwendig, sondern auch fehleranfällig. Glücklicherweise gibt es zwei effektive Lösungen, um diese Aufgabe zu vereinfachen: Sie können VBA nutzen, um Anhänge aus mehreren E-Mails in eine neue E-Mail zu extrahieren und einzufügen – dies erfordert jedoch gewisse technische Kenntnisse. Für eine schnellere und unkompliziertere Lösung bietet das Kutools für Outlook-Tool eine Option per Mausklick, mit der Sie sofort alle Anhänge einer E-Mail in eine Antwortnachricht kopieren können – die effizienteste und benutzerfreundlichste Wahl.

Kopieren Sie alle Anhänge aus mehreren E-Mails mithilfe von VBA in einen Neue Email(Manuell und technisch)

Kopieren Sie alle Anhänge einer E-Mail sofort mit einem hervorragenden Tool in eine Antwortnachricht 👍(Mühelos und empfohlen)

---

Kopieren Sie alle Anhänge aus mehreren E-Mails mithilfe von VBA in einen Neue Email

Wenn Sie VBA zur Automatisierung des Prozesses bevorzugen, können Sie diese Schritte befolgen, um schnell alle Anhänge aus mehreren E-Mails zu extrahieren und in eine neue E-Mail zu kopieren.

Schritt 1: Wählen Sie mehrere E-Mails aus

Wählen Sie in Outlook die E-Mails mit den gewünschten Anhängen aus, die Sie kopieren möchten.

• Halten Sie die „Strg“-Taste gedrückt, um mehrere nicht zusammenhängende E-Mails auszuwählen.
• Halten Sie die Umschalttaste gedrückt, um einen zusammenhängenden Bereich von E-Mails auszuwählen.

Schritt 2: Öffnen Sie den VBA-Editor

Drücken Sie „Alt“ + „F11“, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.

Schritt 3: Fügen Sie den VBA-Code in ein neues Modul ein

Klicken Sie auf „Einfügen“ > „Modul“, um ein neues Modul zu erstellen.  Fügen Sie anschließend den folgenden VBA-Code in das Modulfenster ein:

VBA: Kopieren Sie alle Anhänge aus mehreren E-Mails in einen Neue Email

Sub NewEmailInsertAttachmentsName()
Dim xSelection As Outlook.Selection
Dim xMailItem As Outlook.MailItem
Dim xAttachment As Outlook.Attachment
Dim xFSO As Object
Dim xFldPath As String

Dim xFilePath As String
Dim xNewMail As Outlook.MailItem
On Error Resume Next
Set xSelection = Outlook.Application.ActiveExplorer.Selection
Set xNewMail = Outlook.Application.CreateItem(olMailItem)
Set xFSO = CreateObject("Scripting.FileSystemObject")
xFldPath = xFSO.GetSpecialFolder(2).Path & "\MyAttachments"
If xFSO.FolderExists(xFldPath) = False Then
xFSO.CreateFolder (xFldPath)
End If

For Each xMailItem In xSelection
For Each xAttachment In xMailItem.Attachments
xFilePath = xFldPath & "\" & xAttachment.FileName
xAttachment.SaveAsFile (xFilePath)
xNewMail.Attachments.Add (xFilePath)
xFSO.DeleteFile (xFilePath)
Next
Next
xFSO.GetFolder(xFldPath).Delete
xNewMail.Display
End Sub

Schritt 4: Führen Sie den VBA-Code aus

Drücken Sie „F5“ oder klicken Sie auf die Schaltfläche „Ausführen“, um den Code auszuführen. Anschließend öffnet sich eine neue E-Mail mit allen Anhängen, die aus den ausgewählten E-Mails extrahiert wurden.

---

Kopieren Sie alle Anhänge einer E-Mail sofort mit einem hervorragenden Tool in eine Antwortnachricht 👍

Für eine einfachere und schnellere Lösung nutzen Sie einfach die Funktion „Antwort mit ursprünglichem Anhang“ aus „Kutools für Outlook“. Damit kopieren Sie alle Anhänge einer E-Mail mit nur einem Klick direkt in Ihre Antwort – ganz ohne VBA oder manuelles Anhängen.

1. Wählen Sie in der Mail-Ansicht die E-Mail aus, auf die Sie antworten möchten, und klicken Sie anschließend auf „Kutools“ > „Antwort mit ursprünglichem Anhang“ oder „Allen antworten mit ursprünglichem Anhang“.

2. Alle Anhänge der ausgewählten E-Mail werden nun automatisch in Ihre Antwortnachricht übernommen.

---

Verwandte Artikel

Wie kopiert man einen Anhang aus einer E-Mail in eine andere E-Mail in Outlook?