Suggerimento: le altre lingue sono tradotte da Google. Puoi visitare il English versione di questo link.
Log In
x
or
x
x
Registrati
x

or

Come rinominare e salvare gli allegati del messaggio di posta elettronica 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, è possibile salvarli in una cartella e rinominarli uno per uno, ma in realtà, ho un codice VBA in grado di rinominare rapidamente tutti gli allegati con lo stesso nome, quindi salvare in una cartella.
doc rinomina salva allegato 1

Rinominare e salvare gli allegati con lo stesso nome in una cartella

Rinominare e salvare 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 si risponde 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 a un messaggio con gli allegati originali, funziona anche per tutti i messaggi. Clicca per le funzionalità complete Prova gratuita di giorni 45!

doc rispondi con allegare
Kutools per Outlook: con dozzine di utili componenti aggiuntivi di Outlook, liberi di provare senza limitazioni nei giorni 45.
Kutools for Outlook: 100 + Nuovi strumenti avanzati per Outlook.
Office Tab: Abilita la modifica e la navigazione a schede in Office, Proprio come Chrome, Firefox, IE 8 / 9 / 10.
Menu classico: Porta indietro i vecchi menu e le barre degli strumenti a Office 2007, 2010, 2013, 2016 e 2019.

Rinominare e salvare gli allegati con lo stesso nome in una cartella

1. Seleziona il messaggio di cui vuoi salvare gli allegati e rinominalo con lo stesso nome.

2. Stampa Alt + F11 keys, quindi nel Project1 riquadro, doppio clic ThisOutlookSession per creare un nuovo script vuoto nella sezione destra, quindi copiare e incollare il codice su di esso.

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 Riprendi Next Set xFldObj = CreateObject ("Shell.Application"). browseforfolder (0, "Seleziona una cartella", 0, 16) Imposta xFSO = New Scripting.FileSystemObject If xFldObj Is Nothing Then Exit Sub xSaveFolder = xFldObj.Items.Item.Path & "\" Imposta xSelection = Outlook.Application.ActiveExplorer.Selection xNewName = InputBox ("Nome allegato:", "Kutools per Outlook", xNewName) Se Len (Trim (xNewName)) = 0 Quindi Exit Sub per ogni xItem in xSelection per ogni xAttachment in xItem.Attachments xFilePath = xSaveFolder & xAttachment.FileName xAttachment.SaveAsFile xFilePath Imposta xFile = xFSO.GetFile (xFilePath) xCount = 1 salvato = False xExt = "." & XFSO.GetExtensionName (xFilePath) xTmpName = xNewName xNewName = xTmpName & xExt Se 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 Se xFSO.FileExists (xSaveFolder & xNewName) = False Then xFile.Name = xNewName xNewName = xTmpName Saved = True Else xCount = xCount + 1 End If Wend End se Avanti Avanti Imposta xFSO = Nothing End Sub

doc rinomina salva gli allegati in una cartella 2

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

doc rinomina salva gli allegati in una cartella 3 freccia destra doc rinomina salva gli 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 selezionare o creare una cartella in cui posizionare gli allegati.
doc rinomina salva gli allegati in una cartella 5

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

6. Clic OK, ora gli allegati sono rinominati con lo stesso nome, se ci sono duplicati, quelli duplicati saranno aggiunti numeri come suffisso.


Rinominare e salvare 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.

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

Installazione gratuita Kutools per Outlook, quindi procedere come segue:

1. Attivare l'e-mail nel riquadro nagativo o nella casella Messaggio come desiderato, fare clic su Kutools > Rinomina tutto.
doc rinomina salva allegato 2

2. Nella finestra di dialogo popping, digita il nuovo nome che usi per ogni allegato. Fare clic su OK, gli allegati sono stati rinominati con nuovi nomi.
doc rinomina salva allegato 3
doc rinomina salva allegato 4

3. Fare clic con il pulsante destro del mouse su un allegato, selezionare Salva tutti gli allegati, fare clic su OK e selezionare una cartella per salvare gli allegati in base alle proprie esigenze. Quindi gli allegati rinominati sono stati salvati in una cartella.
doc rinomina salva allegato 5



Kutools for Outlook

Più di 100 Funzioni avanzate per Outlook 2010, 2013, 2016, 2019 e 365

screen shot kutools per outlook minuscolo per banner 201812

Altre caratteristiche | Scarica gratis | Solo $ 39.00 per centinaia di funzioni

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Lipe · 5 months ago
    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
    • To post as a guest, your comment is unpublished.
      Sunny · 4 months ago
      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