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

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.
doc rinomina salva allegare 1

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 per Outlook's Rispondi con allegato funzione, può rispondere ad un messaggio con gli allegati originali, funziona anche per tutti i messaggi.    Fai clic per le funzionalità complete. Prova gratuita di 60 giorni!
 
doc replica con allegato
 
Kutools for Outlook: con dozzine di utili componenti aggiuntivi di Outlook, liberi di provare senza limitazioni in 60 giorni.
Scheda Office: abilita la modifica a schede e la navigazione in Office e semplifica notevolmente il lavoro ...
Kutools for Outlook: porta 100 potenti funzionalità avanzate a Microsoft Outlook
  • Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple per regole; Risposta automatica senza server di scambio e più funzioni automatiche ...
  • Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo di posta è nella lista BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
  • Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email contemporaneamente; Aggiunta automatica di saluto quando rispondi; Aggiungi automaticamente data e ora all'oggetto ...
  • Strumenti per gli allegati: Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto automaticamente ... Rapporto rapido, Conta le email selezionate, Rimuovi messaggi e contatti duplicati ...
  • Più di 100 funzioni avanzate lo faranno risolvi la maggior parte dei tuoi problemi in Outlook 2010-2019 e 365. Funzionalità complete Prova gratuita di 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

doc rinomina salva allegati in una cartella 2

3. Clic Strumenti > Referenze, nella finestra di dialogo popping, seleziona Runtime di Microsoft Script casella di controllo.

doc rinomina salva allegati in una cartella 3 doc freccia destra doc rinomina salva allegati in una cartella 4

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.
doc rinomina salva allegati in una cartella 5

5. Clic OK, quindi dai un nome agli allegati.
doc rinomina salva allegati in una cartella 6

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 per Outlook - un pratico strumento aggiuntivo di Outlook può rinominare tutti gli allegati prima di salvarli o inviarli.

Kutools for Outlook , Include 100 potenti funzionalità e strumenti per Microsoft Outlook 2016, 2013, 2010 e Office 365.

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

1. Attiva l'e-mail nel riquadro nagativo o nella casella Messaggio come preferisci, fai clic su Kutools > Strumenti per gli allegatiRinomina tutto.
doc rinomina salva allegare 2

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.
doc rinomina salva allegare 3 

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.
doc rinomina salva allegare 5 
doc rinomina salva allegare 5


Kutools for Outlook: porta 100 funzionalità avanzate in Outlook e semplifica notevolmente il lavoro!

  • Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple personalizzate; Risposta automatica senza server di scambio e più funzioni automatiche ...
  • Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo e-mail è nell'elenco BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
  • Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email in secondi; Aggiunta automatica di saluto quando rispondi; Aggiungi la data all'oggetto ...
  • Strumenti per gli allegati: gestisci tutti gli allegati in tutti i messaggi, Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto... Rapporto rapido, Conta le email selezionate...
  • E-mail spazzatura potenti per abitudine; Rimuovi messaggi e contatti duplicati... Consentono di fare in modo più intelligente, veloce e migliore in Outlook.
girato kutools outlook scheda kutools 1180x121
girato kutools outlook kutools plus tab 1180x121
 
Commenti (4)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
Ehilà! Sai come possiamo migliorare il codice seguente per rinominare il file quando viene salvato?

Pubblico Sub UnzipFileInOutlook (itm As Outlook.MailItem)
Dim objAtt come Outlook.Allegato
Dim saveFolder As String
saveFolder = "C:\Utenti\acheng\Desktop"
Per ogni objAtt In itm.Allegati
objAtt.SaveAsFile saveFolder
Imposta objAtt = Niente
Successiva
End Sub
Questo commento è stato fatto dal moderatore sul sito
Ciao, Lipe, potrebbe essere questo codice può aiutarti.

Private Sub CopyToDefaultCalendarFld(ByVal Item As Object)
Dim xCopiedAppointment come Outlook.AppointmentItem
Dim xMovedAppointment come Outlook.AppointmentItem
Dim xMeeting come MeetingItem
Dim xApoint As AppointmentItem
On Error Resume Next
Se Item.Class = olAppuntamento Allora
Imposta xApoint = Articolo
Imposta xCopiedAppointment = xApoint.Copy
Imposta xMovedAppointment = xCopiedAppointment.Move(GMovedCalendarFolder)
Se xApoint.Subject <> xMovedAppointment.Subject Allora
Se InStr(1, xMovedAppointment.Subject, "Copia:") > 0 Allora
xMovedAppointment.Subject = VBA.Replace(xMovedAppointment.Subject, "Copia: ", "", 1, 1)
xMovedAppointment.Salva
End If
End If
ElseIf Item.Class = olMeetingRequest Allora
Imposta xMeeting = Elemento
Imposta xCopiedAppointment = xMeeting.GetAssociatedAppointment(True).Copy
Imposta xMovedAppointment = xCopiedAppointment.Move(GMovedCalendarFolder)
Se xMeeting.Subject <> xMovedAppointment.Subject Allora
Se InStr(1, xMovedAppointment.Subject, "Copia:") > 0 Allora
xMovedAppointment.Subject = VBA.Replace(xMovedAppointment.Subject, "Copia: ", "", 1, 1)
xMovedAppointment.Salva
End If
End If
xCopiedAppointment.Delete
End If
Imposta xCopiedAppointment = Niente
End Sub
Questo commento è stato fatto dal moderatore sul sito
Ciao! Come può funzionare se si hanno più email? È solo per più allegati nella stessa e-mail? Grazie!
Questo commento è stato fatto dal moderatore sul sito
Grazie, è ridicolo dover fare di tutto per fare qualcosa che dovrebbe essere gestito dall'applicazione
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite