Note: The other languages of the website are Google-translated. Back to English

Hvordan omdøbes og gemmes vedhæftede filer i e-mailen i en mappe i Outlook?

I outlook modtager du muligvis beskeder med vedhæftede filer normalt, og forsøger du at omdøbe vedhæftede filer til meddelelsen og gemme dem i en mappe som vist nedenstående skærmbillede? Det er klart, at du kan gemme dem i en mappe og omdøbe dem en efter en, men faktisk har jeg en VBA-kode, der hurtigt kan omdøbe alle vedhæftede filer med samme navn og derefter gemme i en mappe.
doc omdøbe gem vedhæft 1

Omdøb og gem vedhæftede filer med samme navn i en mappe

Omdøb og gem vedhæftede filer i en mappe med Kutools til Outlook


Besvar besked med originale vedhæftede filer i Outlook

Som vi alle vidste, fjernes de vedhæftede vedhæftede filer fra den oprindelige besked, når du besvarer en besked til modtageren i Outlook. Hvis du vil svare på massage med vedligeholdelse af vedhæftede filer, kan du prøve Kutools til Outlook's Svar med vedhæftet fil funktion, kan den svare en besked med de originale vedhæftede filer, fungerer også for alle messafe.    Klik for at se alle funktioner 60 dages gratis prøveperiode!
 
doc svar med vedhæft
 
Kutools til Outlook: med snesevis af praktiske Outlook-tilføjelsesprogrammer, der er gratis at prøve uden begrænsning på 60 dage.
Fanen Office - Aktiver redigering og browsing med faner i Office, og gør arbejdet meget nemmere ...
Kutools til Outlook - bringer 100 kraftige avancerede funktioner til Microsoft Outlook
  • Auto CC / BCC ved regler, når du sender e-mail; Automatisk videresendelse Flere e-mails efter regler; Auto svar uden udvekslingsserver og flere automatiske funktioner ...
  • BCC Advarsel - vis besked, når du prøver at besvare alle, hvis din e-mail-adresse er på BCC-listen; Påmind, når du mangler vedhæftede filer, og mere minder funktioner ...
  • Besvar (alle) med alle vedhæftede filer i mailsamtalen; Besvar mange e-mails på én gang; Tilføj automatisk hilsen når svar Tilføj automatisk dato og tid til emne ...
  • Vedhæftningsværktøjer: Automatisk afmontering, Komprimer alt, Omdøb alt, Gem alle automatisk ... Hurtig rapport, Tæl valgte mails, Fjern duplikerede mails og kontakter ...
  • Mere end 100 avancerede funktioner vil løse de fleste af dine problemer i Outlook 2021 - 2010 eller Office 365. Fuld funktioner 60-dages gratis prøveperiode.

Omdøb og gem vedhæftede filer med samme navn i en mappe

1. Vælg den meddelelse, som du vil gemme dens vedhæftede filer, og omdøb til det samme navn.

2. Trykke Alt + F11 keys, derefter i Project1 dobbeltklik på ruden Denne OutlookSession for at oprette et nyt tomt script i højre sektion, kopier og indsæt derefter koden til det.

VBA: Omdøb og gem vedhæftede filer

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

doc omdøb, gem vedhæftede filer i en mappe 2

3. klik Værktøj > Referencer, i poppedialogen, skal du kontrollere Microsoft Script Runtime afkrydsningsfelt.

doc omdøb, gem vedhæftede filer i en mappe 3 doc pil til højre doc omdøb, gem vedhæftede filer i en mappe 4

4. klik OK, tryk på F5 nøgle til at køre koden, a Gennemse for mappe dialogboksen vises for at vælge eller oprette en mappe til placering af vedhæftede filer.
doc omdøb, gem vedhæftede filer i en mappe 5

5. klik OK, og giv derefter et navn til vedhæftede filer.
doc omdøb, gem vedhæftede filer i en mappe 6

6. klik OK, nu omdøbes vedhæftede filer med samme navn. Hvis der er dubletter, tilføjes de dubletter numre som suffikset.


Omdøb og gem vedhæftede filer i en mappe med Kutools til Outlook

Faktisk er der en funktion i Kutools til Outlook - et praktisk addin-værktøj i Outlook kan omdøbe alle vedhæftede filer, før de gemmes eller sendes.

Kutools for Outlook , Indeholder
100
 kraftfulde funktioner og værktøjer til Microsoft Outlook 2016, 2013, 2010 og Office 365.

Gratis installation Kutools til Outlook, og gør derefter som nedenstående trin:

1. Aktivér e-mailen i den nagative rude eller i meddelelsesboksen, som du vil, klik på Kutools > VedhæftningsværktøjerOmdøb alle.
doc omdøbe gem vedhæft 2

2. I poppedialogen skal du skrive det nye navn, du bruger til hver vedhæftet fil. Klik på OK, vedhæftede filer er blevet omdøbt med nye navne.
doc omdøbe gem vedhæft 3 

3. Højreklik på en vedhæftet fil, vælg Gem alle vedhæftede filerklik OK og vælg en mappe for at gemme vedhæftede filer, som du har brug for. Derefter er de omdøbte vedhæftede filer gemt i en mappe.
doc omdøbe gem vedhæft 5 
doc omdøbe gem vedhæft 5


Kutools til Outlook - bringer 100 avancerede funktioner til Outlook, og gør arbejdet meget nemmere!

  • Auto CC / BCC ved regler, når du sender e-mail; Automatisk videresendelse Flere e-mails efter brugerdefineret; Auto svar uden udvekslingsserver og flere automatiske funktioner ...
  • BCC Advarsel - vis besked, når du prøver at besvare alle hvis din e-mail-adresse er på BCC-listen; Påmind, når du mangler vedhæftede filer, og mere minder funktioner ...
  • Svar (alle) med alle vedhæftede filer i mailsamtalen; Besvar mange e-mails på få sekunder Tilføj automatisk hilsen når svar Tilføj dato til emne ...
  • Vedhæftningsværktøjer: Administrer alle vedhæftede filer i alle mails, Automatisk afmontering, Komprimer alle, Omdøb alt, Gem alle ... Hurtig rapport, Tæl valgte mails...
  • Kraftige uønskede e-mails efter skik; Fjern duplikerede mails og kontakter... Gør dig i stand til at gøre smartere, hurtigere og bedre i Outlook.
shot kutools outlook kutools fane 1180x121
shot kutools outlook kutools plus fane 1180x121
 
Sorter kommentarer efter
Kommentarer (4)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
Hej med dig! Ved du, hvordan vi kan forbedre nedenstående kode for at omdøbe filen, når den er gemt?

Public Sub UnzipFileInOutlook(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "C:\Users\acheng\Desktop"
For hver objAtt I itm.Attachments
objAtt.SaveAsFile saveFolder
Indstil objAtt = Ingenting
Næste
End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Lipe, denne kode kan måske hjælpe dig.

Private Sub CopyToDefaultCalendarFld(ByVal Item As Object)
Dim xCopiedAppointment As Outlook.AppointmentItem
Dim xMovedAppointment As Outlook.AppointmentItem
Dim xMeeting Som MeetingItem
Dim xApoint Som aftalevare
On Error Resume Next
Hvis Vare.Klasse = olAftale Så
Indstil xApoint = Vare
Indstil xCopiedAppointment = xApoint.Copy
Indstil xMovedAppointment = xCopiedAppointment.Move(GMovedCalendarFolder)
Hvis xApoint.Subject <> xMovedAppointment.Subject Så
Hvis InStr(1, xMovedAppointment.Subject, "Copy: ") > 0, så
xMovedAppointment.Subject = VBA.Replace(xMovedAppointment.Subject, "Copy: ", "", 1, 1)
xMovedAppointment.Save
End If
End If
ElseIf Item.Class = olMeetingRequest Then
Indstil xMeeting = Vare
Indstil xCopiedAppointment = xMeeting.GetAssociatedAppointment(True).Copy
Indstil xMovedAppointment = xCopiedAppointment.Move(GMovedCalendarFolder)
Hvis xMeeting.Subject <> xMovedAppointment.Subject Then
Hvis InStr(1, xMovedAppointment.Subject, "Copy: ") > 0, så
xMovedAppointment.Subject = VBA.Replace(xMovedAppointment.Subject, "Copy: ", "", 1, 1)
xMovedAppointment.Save
End If
End If
xKopieret Aftale.Slet
End If
Indstil xCopiedAppointment = Intet
End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Hej! Hvordan kan dette fungere, hvis du har flere e-mails? Er dette kun for flere vedhæftede filer i samme e-mail? Tak!
Denne kommentar blev minimeret af moderatoren på webstedet
Tak, det er latterligt, at vi skal gå så langt for at gøre noget, der burde håndteres af ansøgningen
Der er endnu ingen kommentarer her
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL