Salt la conținutul principal

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

Autor: Sun Ultima modificare: 2020-10-23

Î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 30 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 30 de zile.
Office Tab - Activați editarea cu file și navigarea în Microsoft Office, făcând munca o briză
Deblocați Kutools pentru Outlook gratuit versiune acum și bucurați-vă de peste 70 de funcții cu acces nelimitat pentru totdeauna
Îmbunătățiți-vă Outlook 2021 - 2010 sau Outlook 365 cu aceste funcții avansate. Bucurați-vă de peste 70 de funcții puternice și îmbunătățiți-vă experiența prin e-mail!

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 Instrumente > 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  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


Cele mai bune instrumente de productivitate de birou

Ultime știri: Kutools pentru lansări Outlook Versiune gratuită!

Experimentați noul Kutools pentru Outlook Versiune GRATUITĂ cu peste 70 de funcții incredibile, pe care o poți folosi PENTRU TOTDEAUNA! Faceți clic pentru a descărca acum!

🤖 Kutools AI : E-mailuri profesionale instantanee cu magie AI--un singur clic pentru răspunsuri geniale, ton perfect, stăpânire în mai multe limbi. Transformați e-mailurile fără efort! ...

📧 Automatizare e-mail: Răspuns automat (disponibil pentru POP și IMAP)  /  Programați trimiterea de e-mailuri  /  CC/BCC automat după reguli la trimiterea e-mailului  /  Redirecționare automată (Reguli avansate)   /  Adăugare automată felicitare   /  Împărțiți automat e-mailurile cu mai mulți destinatari în mesaje individuale ...

📨 Managementul e-mail: Rechemare e-mailuri  /  Blocați e-mailurile înșelătorii de către subiecți și alții  /  Ștergeți e-mailurile duplicate  /  Cautare Avansata  /  Consolidați foldere ...

📁 Atașamente ProSalvați în serie  /  Detașare lot  /  Compresă în loturi  /  Salvare automata   /  Detașare automată  /  Comprimare automată ...

🌟 Magia interfeței: 😊Mai multe emoji drăguțe și cool   /  Amintește-ți când vin e-mailuri importante  /  Minimizați Outlook în loc să închideți ...

???? Minuni cu un singur clic: Răspundeți tuturor cu atașamentele primite  /   E-mailuri anti-phishing  /  🕘Afișați fusul orar al expeditorului ...

👩🏼‍🤝‍👩🏻 Contacte și calendar: Adăugați în lot contacte din e-mailurile selectate  /  Împărțiți un grup de contact în grupuri individuale  /  Eliminați mementouri de ziua de naștere ...

Deblocați instantaneu Kutools pentru Outlook cu un singur clic—permanent liber. nu astepta, descărcați acum și creșteți-vă eficiența!

 

 

 

Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thanks, it is ridiculous that we have to go to these lengths to do something that should be handled by the application
This comment was minimized by the moderator on the site
Hi! How can this work if having multiple emails? Is this only for multiple attachments in same email? Thanks!
This comment was minimized by the moderator on the site
Hey there! Do you know how we can improve the below code to rename the file when saved?

Public Sub UnzipFileInOutlook(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "C:\Users\acheng\Desktop"
For Each objAtt In itm.Attachments
objAtt.SaveAsFile saveFolder
Set objAtt = Nothing
Next
End Sub
This comment was minimized by the moderator on the site
Hello, Lipe, may be this code can help you.

Private Sub CopyToDefaultCalendarFld(ByVal Item As Object)
Dim xCopiedAppointment As Outlook.AppointmentItem
Dim xMovedAppointment As Outlook.AppointmentItem
Dim xMeeting As MeetingItem
Dim xApoint As AppointmentItem
On Error Resume Next
If Item.Class = olAppointment Then
Set xApoint = Item
Set xCopiedAppointment = xApoint.Copy
Set xMovedAppointment = xCopiedAppointment.Move(GMovedCalendarFolder)
If xApoint.Subject <> xMovedAppointment.Subject Then
If InStr(1, xMovedAppointment.Subject, "Copy: ") > 0 Then
xMovedAppointment.Subject = VBA.Replace(xMovedAppointment.Subject, "Copy: ", "", 1, 1)
xMovedAppointment.Save
End If
End If
ElseIf Item.Class = olMeetingRequest Then
Set xMeeting = Item
Set xCopiedAppointment = xMeeting.GetAssociatedAppointment(True).Copy
Set xMovedAppointment = xCopiedAppointment.Move(GMovedCalendarFolder)
If xMeeting.Subject <> xMovedAppointment.Subject Then
If InStr(1, xMovedAppointment.Subject, "Copy: ") > 0 Then
xMovedAppointment.Subject = VBA.Replace(xMovedAppointment.Subject, "Copy: ", "", 1, 1)
xMovedAppointment.Save
End If
End If
xCopiedAppointment.Delete
End If
Set xCopiedAppointment = Nothing
End Sub
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations