Hvordan gi nytt navn til vedleggene når du videresender en e-post i Outlook

Outlook-løsninger September 29, 2025

Noen ganger, når du videresender en e-post som inneholder flere vedlegg, vil du kanskje gi nytt navn til vedleggene direkte når du videresender. Denne artikkelen vil lære deg hvordan du oppnår det med Outlook VBA.

Som standard tillater ikke Outlook brukeren å gi nytt navn til vedlegg ved videresending. Derfor, hvis du ønsker å gi dem nytt navn, er den unike måten å først lagre filene i en lokal mappe på datamaskinen din, deretter gi dem nytt navn og deretter legge dem ved i videresendings-e-posten. Denne metoden er åpenbart betydelig plagsom. Noen ganger kan dessuten disse filene være uvesentlige for deg, så du vil virkelig ikke lagre dem på datamaskinen din. I denne situasjonen må du lengte etter en raskere metode for å la deg gi nytt navn til de vedlagte filene direkte i videresendings-e-postene. Følgende er en tilnærming for å realisere det gjennom Outlook VBA.

Gi nytt navn til vedleggene når du videresender en e-post

  1. For det første, start Outlook og gå til "Utvikler" -fanen.
  2. Finn deretter og klikk på "Visual Basic" -knappen.
  3. Etter det, i det nye popup-vinduet, åpne en ny modul ved å velge "Sett inn"> "Modul".
  4. Deretter bør du kopiere og lime inn følgende VBA-koder i den.
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-koder - Gi nytt navn til vedleggene når du videresender en e-post

  1. Etter det kan du gå ut av det gjeldende "Visual Basic"-vinduet og fortsette å legge til den nye makroen til hurtigtilgangsverktøylinjen som vanlig.Legg til den nye makroen til verktøylinjen for hurtigtilgang
  2. Endelig kan du prøve.
  • Først velger du en e-post og klikker på den nye makroknappen i hurtigtilgangsverktøylinjen.Velg en e-post og trykk på knappen i QAT
  • Da åpnes en ny videresendings-e-post. Du kan se de vedlagte filene i originale navn i «Vedlagt»-linjen og også motta en dialogboks som krever at du oppgir et nytt navn for et spesifikt vedlegg.Skriv inn nye navn for vedleggene i videresending av e-post
  • Etter å ha spesifisert nye navn for alle filene og klikk "OK", vil du se at alle vedlagte filer er i de nye navnene.Vedlegg i nytt navn
  • Til slutt kan du skrive videresendings-e-postene og trykke på "Send"-knappen for å sende meldingen ut.

Vær oppmerksom på alle potensielle trusler mot Outlook

Det er anerkjent at Outlook er utsatt for korrupsjon. Det er derfor en langvarig oppgave å beskytte Outlook-data mot alle trusler, inkludert virusinfeksjon, skadevareangrep og Outlook PST-dataskadeosv. Det viktigste er å regelmessig sikkerhetskopiere Outlook-dataene dine. Det er også lurt å ha et avansert reparasjonsverktøy i nærheten, som DataNumen Outlook Repair, som vil komme godt med.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert reparere skadet mdf og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med

Kommentarer er stengt.