Come rinominare e salvare gli allegati dell'e-mail in una cartella in Outlook?

In Outlook, potresti ricevere messaggi con allegati di solito e provi a rinominare gli allegati del messaggio e salvarli in una cartella come mostrato nell'immagine sottostante? Ovviamente, puoi salvarli in una cartella e rinominarli uno per uno, ma in realtà, ho un codice VBA, posso rinominare rapidamente tutti gli allegati con lo stesso nome quindi salvarli in una cartella.

Rinomina e salva gli allegati con lo stesso nome in una cartella

Rinomina e salva gli allegati in una cartella con Kutools per Outlook

---

Rispondi al messaggio con allegati originali in Outlook

Come tutti sappiamo, gli allegati allegati verranno rimossi dal messaggio originale quando rispondi a un messaggio al destinatario in Outlook. Se vuoi rispondere al massaggio mantenendo gli allegati, puoi provare Kutools for Outlook's Rispondi con allegato funzione, può rispondere ad un messaggio con gli allegati originali, funziona anche per tutti i messaggi.    Fare clic per le funzionalità complete.

Kutools per Outlook: con dozzine di pratici componenti aggiuntivi di Outlook, provabili gratuitamente senza limitazioni in 60 giorni.

Rinomina e salva gli allegati con lo stesso nome in una cartella

1. Selezionare il messaggio di cui si desidera salvare i suoi allegati e rinominare con lo stesso nome.

2. Stampa Alt+F11 keys, quindi in Project1 riquadro, fare doppio clic Questa sessione di Outlook per creare un nuovo script vuoto nella sezione destra, quindi copia e incolla il codice.

VBA: rinomina e salva gli allegati

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 Strumenti > Riferimenti, nella finestra di dialogo popping, seleziona Runtime di Microsoft Script casella di controllo.

4. Clic OK, stampa F5 chiave per eseguire il codice, a Sfoglia per cartella viene visualizzata la finestra di dialogo per la selezione o la creazione di una cartella in cui posizionare gli allegati.

5. Clic OK, quindi dai un nome agli allegati.

6. Clic OK, ora gli allegati vengono rinominati con lo stesso nome, se sono presenti duplicati, a quelli duplicati verranno aggiunti dei numeri come suffisso.

Rinomina e salva gli allegati in una cartella con Kutools per Outlook

In realtà, c'è una funzionalità in Kutools for Outlook - un pratico strumento aggiuntivo di Outlook può rinominare tutti gli allegati prima di salvarli o inviarli.

Installazione gratuita Kutools per Outlook, quindi esegui i passaggi seguenti:

1. Attiva l'e-mail nel riquadro nagativo o nella casella Messaggio come preferisci, fai clic su Kutools > Strumenti per gli allegati > Rinomina tutto.

2. Nella finestra di dialogo popping, digita il nuovo nome che usi per ogni allegato. Clic OK, gli allegati sono stati rinominati con nuovi nomi.
 

3. Fare clic con il pulsante destro del mouse su un allegato, selezionare Salva tutti gli allegati, fare clic su OK e seleziona una cartella per salvare gli allegati di cui hai bisogno. Quindi gli allegati rinominati sono stati salvati in una cartella.
 

---

I migliori strumenti per la produttività in ufficio

Kutools for Outlook - Oltre 100 potenti funzionalità per potenziare il tuo Outlook

🤖 Assistente di posta AI: E-mail istantanee professionali con la magia dell'intelligenza artificiale: risposte geniali con un solo clic, tono perfetto, padronanza multilingue. Trasforma l'e-mail senza sforzo! ...

???? Automazione di posta elettronica: Fuori sede (disponibile per POP e IMAP)  /  Pianifica l'invio di e-mail  /  CC/BCC automatico in base alle regole durante l'invio di e-mail  /  Inoltro automatico (regole avanzate)   /  Aggiunta automatica di saluto   /  Suddividi automaticamente le email con più destinatari in singoli messaggi ...

📨 gestione e-mail: Richiama facilmente le email  /  Blocca le email truffe per soggetto e altri  /  Elimina email duplicate  /  Ricerca avanzata  /  Consolidare cartelle ...

📁 Allegati Pro: Salvataggio in batch  /  Stacca batch  /  Comprimi in lotti  /  Salvataggio automatico   /  Scollegamento automatico  /  Comprimi automaticamente ...

🌟 Magia dell'interfaccia: 😊Più emoji carini e fantastici   /  Aumenta la tua produttività in Outlook con le visualizzazioni a schede  /  Riduci a icona Outlook invece di chiuderlo ...

👍 Meraviglie con un clic: Rispondi a tutti con gli allegati in arrivo  /   E-mail anti-phishing  /  🕘Mostra il fuso orario del mittente ...

👩🏼‍🤝‍👩🏻 Contatti e calendario: Aggiungi in batch contatti dalle email selezionate  /  Dividere un gruppo di contatti in singoli gruppi  /  Rimuovi promemoria compleanno ...

Al di sopra Caratteristiche 100 Attendi la tua esplorazione! Clicca qui per scoprire di più.

Scopri di più       Scarica gratis      Acquista