Kopieren Sie alle Anhänge aus mehreren E-Mails in eine neue E-Mail

Kopieren Sie alle Anhänge aus einer E-Mail in die antwortende E-Mail

In diesem Artikel wird eine VBA vorgestellt, mit der alle Anhänge aus mehreren E-Mails schnell in eine neue in Outlook kopiert werden können. Bitte gehen Sie wie folgt vor:

1. Wählen Sie mehrere E-Mails aus, deren Anhänge Sie kopieren möchten, und drücken Sie Andere + F11 Tasten zum Öffnen des Fensters Microsoft Visual Basic für Applikationen.
Note: Halten Ctrl Mit dieser Taste können Sie mehrere nicht benachbarte E-Mails auswählen, indem Sie nacheinander darauf klicken. Halten Shift Mit dieser Taste können Sie mehrere benachbarte E-Mails auswählen, indem Sie auf die erste und die letzte klicken.

2. Klicken Sie Insert > Modulund fügen Sie dann den folgenden VBA-Code in das neue Modulfenster ein.

VBA: Kopieren Sie alle Anhänge aus mehreren E-Mails in eine neue

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

3. Drücken Sie F5 Schlüssel oder die Führen Sie Schaltfläche, um diese VBA auszuführen.

Jetzt sehen Sie, dass alle Anhänge aus den ausgewählten E-Mails kopiert und in eine neue E-Mail eingefügt werden.

Wenn Sie Kutools for Outlook installiert haben, können Sie es anwenden Antworte mit Anhang Funktion zum einfachen Kopieren aller Anhänge einer E-Mail in die Antwort-E-Mail in Outlook. Bitte gehen Sie wie folgt vor:

Wählen Sie die E-Mail aus, auf die Sie antworten möchten, und klicken Sie auf Kutoolen > Antworte mit Anhang > Mit Anhang antworten. Screenshot:

Jetzt sehen Sie, dass alle Anhänge automatisch in die Antwort-E-Mail kopiert werden.

Wie kopiere ich einen Anhang in eine andere E-Mail in Outlook?