Wie kann man Anhänge einer E-Mail in einem Ordner in Outlook umbenennen und speichern?

Author: Sun Last Modified: 2025-08-06

In Outlook erhalten Sie möglicherweise häufig E-Mails mit Anhängen. Versuchen Sie, die Anhänge der Nachricht umzubenennen und in einem Ordner zu speichern, wie im folgenden Screenshot gezeigt? Natürlich können Sie sie einzeln in einem Ordner speichern und umbenennen, aber ich habe tatsächlich einen VBA-Code, der schnell alle Anhänge mit demselben Namen umbenennen und in einem Ordner speichern kann.
doc rename save attach 1

Anhänge mit demselben Namen in einem Ordner umbenennen und speichern

Anhänge in einem Ordner mit Kutools für Outlook umbenennen und speichern

Anhänge mit demselben Namen in einem Ordner umbenennen und speichern

1. Wählen Sie die Nachricht aus, deren Anhänge Sie speichern und mit demselben Namen umbenennen möchten.

2. Drücken Sie die Tasten "Alt" + "F11", dann im "Project1"-Bereich doppelklicken Sie auf "ThisOutlookSession", um ein neues leeres Skript im rechten Abschnitt zu erstellen, und kopieren und fügen Sie den Code dort ein.

VBA: Anhänge umbenennen und speichern

Public Sub SaveAttachsToDisk()
'UpdatebyExtendoffice20180521
Dim xItem As Object  'Outlook.MailItem
Dim xSelection As Selection
Dim xAttachment As Outlook.Attachment
Dim xFldObj As Object
Dim xSaveFolder As String
Dim xFSO As Scripting.FileSystemObject
Dim xFile As File
Dim xFilePath As String
Dim xNewName, xTmpName As String
Dim xExt As String
Dim xCount As Integer
On Error Resume Next
Set xFldObj = CreateObject("Shell.Application").browseforfolder(0, "Select a Folder", 0, 16)
Set xFSO = New Scripting.FileSystemObject
If xFldObj Is Nothing Then Exit Sub
xSaveFolder = xFldObj.Items.Item.Path & "\"
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xNewName = InputBox("Attachment Name:", "Kutools for Outlook", xNewName)
If Len(Trim(xNewName)) = 0 Then Exit Sub
For Each xItem In xSelection
    For Each xAttachment In xItem.Attachments
        xFilePath = xSaveFolder & xAttachment.FileName
        xAttachment.SaveAsFile xFilePath
        Set xFile = xFSO.GetFile(xFilePath)
        xCount = 1
        Saved = False
        xExt = "." & xFSO.GetExtensionName(xFilePath)
        xTmpName = xNewName
        xNewName = xTmpName & xExt
        If xFSO.FileExists(xSaveFolder & xNewName) = False Then
            xFile.Name = xNewName
            xNewName = xTmpName
        Else
            xTmpName = Left(xNewName, Len(xNewName) - Len(xExt))
            While Saved = False
                xNewName = xTmpName & xCount & xExt
                If xFSO.FileExists(xSaveFolder & xNewName) = False Then
                    xFile.Name = xNewName
                    xNewName = xTmpName
                    Saved = True
                Else
                    xCount = xCount + 1
                End If
            Wend
        End If
    Next
Next
Set xFSO = Nothing
End Sub

doc rename save attachments in a folder 2

3. Klicken Sie auf "Tools" > "References", und aktivieren Sie im erscheinenden Dialogfeld das Kontrollkästchen "Microsoft Script Runtime".

doc rename save attachments in a folder 3

doc rename save attachments in a folder 4

4. Klicken Sie auf "OK", drücken Sie die Taste "F5", um den Code auszuführen. Ein Dialogfeld "Ordner durchsuchen" erscheint, um einen Ordner zum Platzieren der Anhänge auszuwählen oder zu erstellen.
doc rename save attachments in a folder 5

5. Klicken Sie OK, und geben Sie dann einen Namen für die Anhänge ein.
doc rename save attachments in a folder 6

6. Klicken Sie auf "OK", jetzt sind die Anhänge mit demselben Namen umbenannt. Wenn es Duplikate gibt, werden den doppelten Anhängen Zahlen als Suffix hinzugefügt.

Antwortnachricht mit Originalanlagen in Outlook

Wie wir alle wissen, werden die angehängten Anhänge aus der ursprünglichen Nachricht entfernt, wenn Sie in Outlook eine Antwort an den Empfänger senden. Wenn Sie eine Nachricht mit den Anhängen beantworten möchten, können Sie die Funktion 'Antwort mit Anhang' von Kutools für Outlook ausprobieren. Diese Funktion ermöglicht es, eine Nachricht mit den ursprünglichen Anhängen zu beantworten und funktioniert auch für alle Nachrichten. Klicken Sie hier für alle Funktionen 30 Tage kostenlose Testversion!

Kutools für Outlook: mit Dutzenden praktischer Outlook-Add-ins, kostenlos und uneingeschränkt in 30 Tagen testbar.

Anhänge in einem Ordner mit Kutools für Outlook umbenennen und speichern

Tatsächlich gibt es in "Kutools für Outlook" eine Funktion - ein praktisches Add-In-Tool für Outlook, das alle Anhänge vor dem Speichern oder Senden umbenennen kann.

Kutools für Outlook: Über 100 grundlegende und erweiterte Funktionen freischalten! Genießen Sie mehr als 70 Funktionen kostenlos. Laden Sie noch heute die kostenlose Version herunter und erkunden Sie sie!

Installieren Sie Kutools für Outlook kostenlos und führen Sie dann die folgenden Schritte aus:

1. Aktivieren Sie die E-Mail im negativen Bereich oder im Nachrichtenfeld, wie Sie möchten, klicken Sie auf "Kutools" > "Anhangswerkzeuge" > "Alle umbenennen".
doc rename save attach 2

2. Geben Sie im erscheinenden Dialogfeld den neuen Namen ein, den Sie für jeden Anhang verwenden möchten. Klicken Sie auf "OK", die Anhänge wurden mit neuen Namen umbenannt.
doc rename save attach 3

3. Klicken Sie mit der rechten Maustaste auf einen Anhang, wählen Sie "Alle Anhänge speichern", klicken Sie auf "OK" und wählen Sie einen Ordner aus, um die Anhänge nach Bedarf zu speichern. Dann wurden die umbenannten Anhänge in einem Ordner gespeichert.
doc rename save attach 5