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

Cum să redenumiți și să salvați atașamentele e-mailului într-un folder în Outlook?

În perspectivă, este posibil să primiți mesaje cu atașamente de obicei și încercați să redenumiți atașamentele mesajului și să le salvați într-un folder așa cum este prezentat mai jos? Evident, le puteți salva într-un folder și le puteți redenumi unul câte unul, dar, de fapt, am un cod VBA care poate redenumi rapid toate atașamentele cu același nume, apoi le puteți salva într-un singur folder.
doc redenumiți salvați atașamentul 1

Redenumiți și salvați atașamentele cu același nume într-un folder

Redenumiți și salvați atașamentele într-un folder cu Kutools pentru Outlook


Mesaj de răspuns cu atașamente originale în Outlook

După cum știm cu toții, atașamentele atașate vor fi eliminate din mesajul original atunci când răspundeți unui mesaj destinatarului în Outlook. Dacă doriți să răspundeți la masaj cu păstrarea atașamentelor, puteți încerca Kutools pentru Outlook's Răspundeți cu atașament funcție, poate răspunde la un mesaj cu atașamentele originale, funcționează și pentru toate mesajele de mesagerie.    Faceți clic pentru funcții complete 60 de zile de încercare gratuită!
 
doc răspuns cu atașare
 
Kutools pentru Outlook: cu zeci de programe de completare Outlook la îndemână, gratuit pentru a încerca fără limitări în 60 de zile.
Fila Office - Activați editarea și navigarea cu file în Office și faceți munca mult mai ușoară ...
Kutools pentru Outlook - aduce 100 de caracteristici avansate puternice în Microsoft Outlook
  • Auto CC / BCC prin reguli la trimiterea e-mailului; Auto înainte E-mailuri multiple după reguli; Răspuns automat fără server de schimb și mai multe funcții automate ...
  • Avertisment BCC - afișați mesajul atunci când încercați să răspundeți la toate dacă adresa dvs. de e-mail se află în lista BCC; Amintiți-vă când lipsesc atașamentele, și mai multe caracteristici de reamintire ...
  • Răspundeți (Toate) cu toate atașamentele în conversația prin poștă; Răspundeți la multe e-mailuri simultan; Adăugare automată felicitare când răspundeți; Adăugare automată a datei și orei în subiect ...
  • Instrumente de atașare: Detașare automată, Comprimare toate, Redenumire toate, Salvare automată toate ... Raport rapid, Numărați mesajele selectate, Eliminați mesajele și persoanele de contact duplicate ...
  • Mai mult de 100 de funcții avansate vor rezolva majoritatea problemelor tale în Outlook 2021 - 2010 sau Office 365. Caracteristici complete Probă gratuită de 60 de zile.

Redenumiți și salvați atașamentele cu același nume într-un folder

1. Selectați mesajul pe care doriți să-l salvați atașamentele și redenumiți cu același nume.

2. presa Alt + F11 Keys, apoi în Project1 , faceți dublu clic Această sesiune Outlook pentru a crea un nou script gol în secțiunea din dreapta, apoi copiați și lipiți codul pe acesta.

VBA: Redenumiți și salvați atașamentele

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 redenumire salvare atașamente într-un folder 2

3. clic unelte > Referinte, în caseta de dialog popping, bifați Microsoft Script Runtime caseta.

doc redenumire salvare atașamente într-un folder 3 doc săgeată dreapta doc redenumire salvare atașamente într-un folder 4

4. clic OK, presa F5 tasta pentru a rula codul, a Căutați dosarul apare fereastra de dialog pentru selectarea sau crearea unui folder pentru plasarea atașamentelor.
doc redenumire salvare atașamente într-un folder 5

5. clic OK, apoi dați un nume pentru atașamente.
doc redenumire salvare atașamente într-un folder 6

6. clic OK, acum atașamentele sunt redenumite cu același nume, dacă există duplicate, cele duplicate vor fi adăugate numere ca sufix.


Redenumiți și salvați atașamentele într-un folder cu Kutools pentru Outlook

De fapt, există o caracteristică în Kutools pentru Outlook - un instrument de completare la îndemână din Outlook poate redenumi toate atașamentele înainte de salvare sau trimitere.

Kutools for Outlook , Include
100
 funcții și instrumente puternice pentru Microsoft Outlook 2016, 2013, 2010 și Office 365.

Instalare gratuită Kutools pentru Outlook, apoi faceți pașii de mai jos:

1. Activați e-mailul în panoul principal sau în caseta Mesaj după cum doriți, faceți clic pe Kutools > Instrumente de atașareRedenumiți toate.
doc redenumiți salvați atașamentul 2

2. În dialogul popping, tastați noul nume pe care îl utilizați pentru fiecare atașament. Clic OK, atașamentele au fost redenumite cu nume noi.
doc redenumiți salvați atașamentul 3 

3. Faceți clic dreapta pe un atașament, selectați Salvați toate atașamentele, Faceți clic pe OK și selectați un folder pentru a salva atașamentele după cum doriți. Apoi, atașamentele redenumite au fost salvate într-un folder.
doc redenumiți salvați atașamentul 5 
doc redenumiți salvați atașamentul 5


Kutools pentru Outlook - aduce 100 de caracteristici avansate în Outlook și face munca mult mai ușoară!

  • Auto CC / BCC prin reguli la trimiterea e-mailului; Auto înainte Mai multe e-mailuri personalizate; Răspuns automat fără server de schimb și mai multe funcții automate ...
  • Avertisment BCC - afișați mesajul când încercați să răspundeți la toate dacă adresa dvs. de e-mail se află în lista BCC; Amintiți-vă când lipsesc atașamentele, și mai multe caracteristici de reamintire ...
  • Răspundeți (Toate) Cu toate atașamentele din conversația prin e-mail; Răspunde la multe e-mailuri în secunde; Adăugare automată felicitare când răspundeți; Adăugați o dată în subiect ...
  • Instrumente de atașament: gestionați toate atașamentele din toate e-mailurile, Detașare automată, Comprimă toate, Redenumiți toate, Salvați toate ... Raport rapid, Numărați mesajele selectate...
  • E-mailuri nedorite puternice după obicei; Eliminați e-mailurile și persoanele de contact duplicate... Vă permit să faceți mai inteligent, mai rapid și mai bine în Outlook.
shot kutools outlook kutools fila 1180x121
shot kutools outlook kutools plus fila 1180x121
 
Comentarii (4)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Hei acolo! Știți cum putem îmbunătăți codul de mai jos pentru a redenumi fișierul atunci când este salvat?

Public Sub UnzipFileInOutlook(itm As Outlook.MailItem)
Dim objAtt As Outlook.Atașament
Dim saveFolder As String
saveFolder = „C:\Utilizatori\acheng\Desktop”
Pentru fiecare objAtt În itm.Atașamente
objAtt.SaveAsFile saveFolder
Set objAtt = Nimic
Pagina Următoare →
End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, Lipe, poate că acest cod te poate ajuta.

Private Sub CopyToDefaultCalendarFld(ByVal Item As Object)
Dim xCopiedAppointment ca Outlook.AppointmentItem
Dim xMovedAppointment ca Outlook.AppointmentItem
Dim xMeeting ca MeetingItem
Dim xApoint As AppointmentItem
La data de eroare CV următoare
Dacă Item.Class = olAppointment Atunci
Set xApoint = Item
Setați xCopiedAppointment = xApoint.Copy
Setați xMovedAppointment = xCopiedAppointment.Move(GMovedCalendarFolder)
Dacă xApoint.Subject <> xMovedAppointment.Subject Atunci
Dacă InStr(1, xMovedAppointment.Subject, "Copy: ") > 0 Atunci
xMovedAppointment.Subject = VBA.Replace(xMovedAppointment.Subject, "Copy: ", "", 1, 1)
xMovedAppointment.Salvare
Final, dacă
Final, dacă
ElseIf Item.Class = olMeetingRequest Atunci
Set xMeeting = Item
Setați xCopiedAppointment = xMeeting.GetAssociatedAppointment(True).Copy
Setați xMovedAppointment = xCopiedAppointment.Move(GMovedCalendarFolder)
Dacă xMeeting.Subject <> xMovedAppointment.Subject Atunci
Dacă InStr(1, xMovedAppointment.Subject, "Copy: ") > 0 Atunci
xMovedAppointment.Subject = VBA.Replace(xMovedAppointment.Subject, "Copy: ", "", 1, 1)
xMovedAppointment.Salvare
Final, dacă
Final, dacă
xCopiedAppointment.Delete
Final, dacă
Setați xCopiedAppointment = Nimic
End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
Salut! Cum poate funcționa acest lucru dacă aveți mai multe e-mailuri? Este asta numai pentru mai multe atașamente în același e-mail? Mulțumiri!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mulțumesc, este ridicol că trebuie să facem toate eforturile pentru a face ceva care ar trebui să fie gestionat de aplicație
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL