Wie benennt und speichert man E-Mail-Anhänge in einem Ordner in Outlook um?
In Outlook erhalten Sie normalerweise Nachrichten mit Anhängen. Haben Sie schon einmal versucht, die Anhänge einer E-Mail umzubenennen und – wie im folgenden Screenshot gezeigt – in einem Ordner zu speichern? Natürlich können Sie sie einzeln in einen Ordner speichern und nacheinander umbenennen. Tatsächlich verfüge ich jedoch über einen VBA-Code, mit dem Sie alle Anhänge schnell mit demselben Namen umbenennen und in einem Ordner speichern können.
Anhänge mit gleichem Namen in einem Ordner umbenennen und speichern
Anhänge in einem Ordner umbenennen und speichern mit Kutools für Outlook
Anhänge mit gleichem 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“ , doppelklicken Sie anschließend im Bereich „Projekt1“ auf „ThisOutlookSession“, um im rechten Bereich ein neues leeres Skript zu erstellen, 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
3. Klicken Sie auf „Extras“ > „Verweise“ und aktivieren Sie im erscheinenden Dialogfeld das Kontrollkästchen „Microsoft Script Runtime“.
 |  |  |
4. Klicken Sie auf „OK“ und drücken Sie die Taste „F5“, um den Code auszuführen. Anschließend öffnet sich das Dialogfeld „Ordner durchsuchen“, in dem Sie einen Ordner zum Speichern der Anhänge auswählen oder neu erstellen können.
5. Klicken Sie auf OK und geben Sie anschließend einen Namen für die Anhänge ein.
6. Klicken Sie auf „OK“. Alle Anhänge wurden nun mit demselben Namen umbenannt – bei Duplikaten werden fortlaufende Nummern als Suffix angehängt.
Antwortnachricht mit den ursprünglichen Anhängen in Outlook |
| Wie allgemein bekannt ist, werden beim Beantworten einer Nachricht in Outlook die enthaltenen Anhänge aus der ursprünglichen E-Mail entfernt. Möchten Sie eine Nachricht unter Beibehaltung der Anhänge beantworten, können Sie die -Funktion nutzen. Damit antworten Sie inklusive aller ursprünglichen Anhänge – und das funktioniert bei jeder Nachricht.Klicken Sie hier, um alle Funktionen 30 Tage lang kostenlos zu testen!Kutools für Outlook's Antworten mit Anhang |
 |
| Kutools für Outlook: mit Dutzenden praktischer Outlook-Add-Ins, 30 Tage lang kostenlos und ohne Einschränkungen testbar. |
Anhänge in einem Ordner umbenennen und speichern mit Kutools für Outlook
Tatsächlich bietet „Kutools für Outlook“ – ein praktisches Add-in für Outlook – eine Funktion, mit der Sie alle Anhänge vor dem Speichern oder Versenden umbenennen können.
Kostenlos installieren Kutools für Outlook, und führen Sie anschließend die folgenden Schritte aus:
1. Aktivieren Sie die E-Mail entweder im Navigationsbereich oder im Nachrichtenfenster – ganz wie Sie möchten – und klicken Sie auf „Kutools“ > „Anhangswerkzeuge“ > „Alle umbenennen“.
2. Geben Sie im erscheinenden Dialogfeld den neuen Namen ein, den Sie für jeden Anhang verwenden möchten, und klicken Sie auf „OK“. Die Anhänge wurden nun mit dem neuen Namen umbenannt.
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 entsprechend Ihren Anforderungen zu speichern. Die umbenannten Anhänge wurden nun in einem Ordner gespeichert.
Beste Office-Produktivitätswerkzeuge
Erleben Sie das komplett neue Kutools für Outlook mit 100+ unglaublichen Funktionen!Jetzt zum Download klicken!
📧E-Mail-Automatisierung: Automatische Antworten (verfügbar für POP und IMAP) / E-Mails zeitgesteuert versenden / Beim Senden automatisch CC/BCC basierend auf Regeln hinzufügen / Automatische Weiterleitung (Erweiterte Regeln) / Automatische Grußformel einfügen / Mehrfachadressierte E-Mails automatisch in Einzelnachrichten aufteilen …
📨E-Mail-Verwaltung: E-Mails zurückrufen, Betrugs-E-Mails anhand von Betreffzeilen und weiteren Kriterien blockieren, doppelte E-Mails löschen, Erweiterte Suche, Ordner organisieren …
📁Anhänge Pro: Stapelweise speichern / Stapelweise lösen / Stapelweise komprimieren / Automatisch speichern / Automatisch abtrennen / Automatische Komprimierung …
🌟Oberflächenzauber:😊Noch mehr hübsche und coole Emojis/Benachrichtigung bei wichtigen eingehenden E-Mails/Outlook minimieren statt schließen...
👍Ein-Klick-Wunder: Allen mit Anhängen antworten / Anti-Phishing-E-Mails / 🕘Aktuelle Uhrzeit der Absender-Zeitzone anzeigen...
👩🏼🤝👩🏻Kontakte & Kalender:Stapelweise Kontakte aus ausgewählten E-Mails hinzufügen/Eine Kontaktgruppe in einzelne Kontakte aufteilen/Geburtstagserinnerung entfernen...
Nutzen Sie Kutools in Ihrer bevorzugten Sprache – mit Unterstützung für Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über 40 weitere Sprachen!
🚀 Ein-Klick-Download – Holen Sie sich alle Office-Add-Ins
Stark empfohlen: Kutools for Office (5-in-1)
Mit einem Klick fünf Installationsprogrammegleichzeitig herunterladen –Kutools für Excel, Outlook, Word, PowerPointund Office Tab Pro.Jetzt zum Download klicken!
- ✅Ein-Klick-Komfort: Laden Sie alle fünf Installationspakete mit nur einem Klick herunter.
- 🚀Bereit für jede Office-Aufgabe: Installieren Sie die Add-Ins, die Sie brauchen – genau dann, wenn Sie sie benötigen.
- 🧰Enthalten: Kutools für Excel / Kutools für Outlook / Kutools für Word / Office Tab Pro / Kutools for PowerPoint