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.

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ă!

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.

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

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

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.

5. clic OK, apoi dați un nume pentru atașamente.

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.

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șare > Redenumiți toate.

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.
 

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.
 

---

Cele mai bune instrumente de productivitate de birou

Kutools pentru Outlook - Peste 100 de funcții puternice pentru a vă supraalimenta Outlook

🤖 AI Mail Assistant: 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: În afara biroului (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: Amintește-ți cu ușurință e-mailurile  /  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 Pro: Salvaț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   /  Îmbunătățiți-vă productivitatea Outlook cu vizualizările cu file  /  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 ...

Peste 100 Caracteristici Așteaptă explorarea ta! Click aici pentru a descoperi mai multe.

Citeste mai mult       Descărcare gratuită      Cumpărare