Wie kann man Anhänge einer E-Mail in einem Ordner in Outlook umbenennen und speichern?
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.
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
3. Klicken Sie auf "Tools" > "References", und aktivieren Sie im erscheinenden Dialogfeld das Kontrollkästchen "Microsoft Script Runtime".
 |  |  |
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.
5. Klicken Sie OK, und geben Sie dann einen Namen für die Anhänge ein.
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.
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".
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.
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.
Beste Office-Produktivitätstools
Eilmeldung: Kutools für Outlook startet kostenlose Version!
Erleben Sie die brandneue kostenlose Version von Kutools für Outlook mit über70 unglaublichen Funktionen, die Sie FÜR IMMER nutzen können! Klicken Sie jetzt, um herunterzuladen!
📧 E-Mail-Automatisierung: Automatische Antwort (Verfügbar für POP und IMAP) / E-Mails senden planen / Automatische CC/BCC nach Regeln beim Senden von E-Mails / Automatische Weiterleitung (Erweiterte Regeln) / Automatische Begrüßung hinzufügen / Automatisches Aufteilen von E-Mails mit mehreren Empfängern in einzelne Nachrichten ...
📨 E-Mail-Management: E-Mails zurückrufen / Betrugs-E-Mails nach Betreff und anderen blockieren / Duplikate E-Mails löschen / Erweiterte Suche / Ordner organisieren ...
📁 Anhänge Pro: Stapelspeichern / Stapelablösen / Stapelkomprimieren / Automatisch speichern / Automatisch abtrennen / Automatische Komprimierung ...
🌟 Interface Magic: 😊Mehr hübsche und coole Emojis / Erinnern Sie, wenn wichtige E-Mails kommen / Outlook minimieren statt schließen ...
👍 Ein-Klick-Wunder: Allen mit Anhängen antworten / Anti-Phishing-E-Mails / 🕘Zeitzone des Absenders anzeigen ...
👩🏼🤝👩🏻 Kontakte & Kalender: Kontakte aus ausgewählten E-Mails stapelweise hinzufügen / Eine Kontaktgruppe in einzelne Gruppen aufteilen / Geburtstagserinnerung entfernen ...
