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 unelte > 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.
 

---

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.

Citeşte mai mult ... Descarcă acum...