Hoe de bijlagen te hernoemen bij het doorsturen van een e-mail in Outlook

Outlook-oplossingen 29 september 2025

Soms, wanneer u een e-mail doorstuurt die meerdere bijlagen bevat, wilt u de bijlagen misschien direct hernoemen bij het doorsturen. In dit artikel leert u hoe u dit kunt bereiken met Outlook VBA.

Standaard staat Outlook niet toe dat de gebruiker bijlagen hernoemt bij het doorsturen. Daarom, als u ze wilt hernoemen, is de unieke manier om de bestanden eerst op te slaan in een lokale map op uw computer, ze vervolgens te hernoemen en ze vervolgens opnieuw toe te voegen aan de doorstuur-e-mail. Het is duidelijk dat deze methode aanzienlijk lastig is. Bovendien zijn deze bestanden soms niet essentieel voor u, dus u wilt ze echt niet op uw computer opslaan. In deze situatie moet u verlangen naar een snellere methode om u de bijgevoegde bestanden rechtstreeks in de doorstuur-e-mails te laten hernoemen. Het volgende is een benadering om dit te realiseren via Outlook VBA.

Hernoem de bijlagen bij het doorsturen van een e-mail

  1. Start in de eerste plaats Outlook en ga naar het tabblad "Ontwikkelaar".
  2. Zoek vervolgens en klik op de knop "Visual Basic".
  3. Open daarna in het nieuwe pop-upvenster een nieuwe module door "Invoegen"> "Module" te selecteren.
  4. Vervolgens moet u de volgende VBA-codes erin kopiëren en plakken.
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

VBA-codes - Hernoem de bijlagen bij het doorsturen van een e-mail

  1. Daarna kunt u het huidige "Visual Basic" -venster verlaten en zoals gewoonlijk doorgaan met het toevoegen van de nieuwe macro aan de werkbalk Snelle toegang.Voeg de nieuwe macro toe aan de werkbalk Snelle toegang
  2. Eindelijk kun je het proberen.
  • Selecteer eerst een e-mail en klik vervolgens op de nieuwe macroknop in de werkbalk Snelle toegang.Selecteer een e-mail en druk op de knop in QAT
  • Vervolgens wordt er een nieuwe doorstuur-e-mail geopend. U kunt de bijgevoegde bestanden in originele namen zien in de regel "Bijgevoegd" en u krijgt ook een dialoogvenster waarin u wordt gevraagd een nieuwe naam in te voeren voor een specifieke bijlage.Voer nieuwe namen in voor de bijlagen in E-mail doorsturen
  • Nadat u nieuwe namen voor alle bestanden hebt opgegeven en op "OK" hebt geklikt, zult u zien dat alle bijgevoegde bestanden de nieuwe namen hebben.Bijlagen in nieuwe naam
  • Uiteindelijk kunt u de doorstuur-e-mails samenstellen en op de knop "Verzenden" klikken om het bericht te verzenden.

Blijf alert op alle mogelijke bedreigingen voor uw Outlook

Het wordt erkend dat Outlook vatbaar is voor corruptie. Het is dus een langdurige taak om Outlook-gegevens te beschermen tegen alle bedreigingen, waaronder virusinfecties, malware-aanvallen en Outlook PST-gegevensschadeenz. De belangrijkste actie is om regelmatig een back-up te maken van uw Outlook-gegevens. Het is ook verstandig om een ​​geavanceerd reparatieprogramma bij de hand te hebben, zoals DataNumen Outlook Repair, wat goed van pas zal komen.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder reparatie beschadigd mdf en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com

Reacties zijn gesloten.