So benennen Sie die Anhänge beim Weiterleiten einer E-Mail in Outlook um

Wenn Sie eine E-Mail mit mehreren Anhängen weiterleiten, möchten Sie manchmal die Anhänge direkt beim Weiterleiten umbenennen. In diesem Artikel erfahren Sie, wie Sie dies mit Outlook VBA erreichen.

Standardmäßig erlaubt Outlook Benutzern nicht, Anhänge beim Weiterleiten umzubenennen. Wenn Sie sie also umbenennen möchten, besteht die einzige Möglichkeit darin, die Dateien zunächst in einem lokalen Ordner auf Ihrem Computer zu speichern, sie dann umzubenennen und sie anschließend erneut an die Weiterleitungs-E-Mail anzuhängen. Offensichtlich ist diese Methode sehr mühsam. Darüber hinaus können diese Dateien manchmal für Sie unwichtig sein, sodass Sie sie auf keinen Fall auf Ihrem Computer speichern möchten. In dieser Situation müssen Sie sich nach einer schnelleren Methode sehnen, mit der Sie die angehängten Dateien direkt in den Weiterleitungs-E-Mails umbenennen können. Im Folgenden finden Sie einen Ansatz zur Umsetzung über Outlook VBA.

Benennen Sie die Anhänge beim Weiterleiten einer E-Mail um

1. Starten Sie zunächst Outlook und gehen Sie zur Registerkarte „Entwickler“.
2. Suchen Sie dann die Schaltfläche "Visual Basic" und klicken Sie darauf.
3. Öffnen Sie anschließend im neuen Popup-Fenster ein neues Modul, indem Sie „Einfügen“ > „Modul“ auswählen.
4. Anschließend sollten Sie die folgenden VBA-Codes kopieren und einfügen.

Sub RenameAttachmentsWhenForwarding()
    Dim olItem As MailItem
    Dim Att As Attachment
    Dim Atts As Attachments
    Dim olForward As MailItem
    Dim FWAtt As Attachment
    Dim FWAtts As Attachments
    Dim FSO As Object
    Dim TempFPath As Object
    Dim FilePath As String
    Dim strName As String
    Dim strExten As String
    Dim strFile As String
 
    Set olItem = Application.ActiveExplorer.Selection.Item(1)
    Set Atts = olItem.Attachments
    Set olForward = olItem.Forward
    olForward.Display
 
    On Error Resume Next
 
    For Each Att In Atts
        'Get the path to Temporary Folder
        Set FSO = CreateObject("Scripting.FileSystemObject")
        Set TempFPath = FSO.GetSpecialFolder(2)
        FilePath = TempFPath.Path & "\"
 
        'Rename the attachments
        strName = InputBox("Enter a new name for" & vbCrLf & Att.FileName)
        'Change "4" based on the length of the attachment file extension
        strExten = Right(Att.FileName, 4)
        strFile = FilePath & strName & "." & strExten
 
        If strName <> "" Then
           'Save the attachments to the Temporary Folder
           Att.SaveAsFile (strFile)
 
           'Add the attachments saved in new names from the Temporary Folder
           olForward.Attachments.Add (strFile)
           Set FWAtts = olForward.Attachments
 
           'Remove the original attachments
           For Each FWAtt In FWAtts
               If InStr(FWAtt.FileName, Att.FileName) > 0 Then
                  FWAtt.Delete
               End If
           Next
        End If
    Next
End Sub

5. Danach können Sie das aktuelle „Visual Basic“-Fenster verlassen und wie gewohnt mit dem Hinzufügen des neuen Makros zur Symbolleiste für den Schnellzugriff fortfahren.
6. Endlich können Sie es versuchen.

• Wählen Sie zunächst eine E-Mail aus und klicken Sie dann auf die Schaltfläche „Neues Makro“ in der Symbolleiste für den Schnellzugriff.
• Dann öffnet sich eine neue Weiterleitungs-E-Mail. In der Zeile „Angehängt“ sehen Sie die angehängten Dateien im Originalnamen und erhalten außerdem ein Dialogfeld, in dem Sie aufgefordert werden, einen neuen Namen für einen bestimmten Anhang einzugeben.
• Nachdem Sie für alle Dateien neue Namen angegeben und auf „OK“ geklickt haben, werden Sie sehen, dass alle angehängten Dateien die neuen Namen tragen.
• Schließlich können Sie die Weiterleitungs-E-Mails verfassen und auf die Schaltfläche „Senden“ klicken, um die Nachricht zu versenden.

Bleiben Sie auf der Hut vor allen potenziellen Bedrohungen für Ihren Ausblick

Es ist bekannt, dass Outlook anfällig für Korruption ist. Daher ist es eine langwierige Aufgabe, Outlook-Daten vor allen Bedrohungen zu schützen, einschließlich Virusinfektionen, Malware-Angriffen usw Outlook PST-DatenschadenDie wichtigste Maßnahme ist die regelmäßige Sicherung Ihrer Outlook-Daten. Außerdem ist es ratsam, ein leistungsstarkes Reparaturtool griffbereit zu haben, wie zum Beispiel DataNumen Outlook Repair, was sich als nützlich erweisen wird.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich Beschädigtes MDF reparieren und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX