Come elencare automaticamente tutti i nomi degli allegati nel corpo del messaggio mentre si compone un'email in Outlook?
Esistono metodi efficaci per inserire automaticamente tutti i nomi dei file allegati nel corpo del messaggio durante la composizione di un'email in Outlook? In questo articolo ti spiego come eseguire questa operazione direttamente in Outlook.
Elenca tutti i Nome allegato nel corpo del messaggio durante la composizione di un'email con codice VBA
Seguire la procedura indicata di seguito per completare questa attività:
1. Tenere premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic, Applications.
2. Nella finestra di Microsoft Visual Basic, Applications, fare doppio clic su ThisOutlookSession nel riquadro Project1 (VbaProject.OTM) per aprire il modulo, quindi copiare e incollare il codice seguente nel modulo vuoto.
Codice VBA: Elenca tutti i Nome allegato nel corpo del messaggio:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim xMailItem As MailItem
If Item.Class = olMail Then
Set xMailItem = Item
If xMailItem.Attachments.Count > 0 Then
AddAttachmentNamesToBody
End If
End If
End Sub
3. Fare quindi clic su Inserisci > Modulo, quindi copiare e incollare il codice seguente nel modulo vuoto appena aperto; vedere lo screenshot:
Codice VBA: Elenca tutti i Nome allegato nel corpo del messaggio:
Public Sub AddAttachmentNamesToBody()
Dim xMailItem As MailItem
Dim xAttachment As Attachment
Dim xFileName As String
Dim xInspector As Outlook.Inspector
Dim xDoc As Word.Document
Dim xWdSelection As Word.Selection
On Error Resume Next
Set xMailItem = Outlook.ActiveInspector.CurrentItem
If xMailItem.Attachments.Count = 0 Then
Exit Sub
End If
xFileName = ""
For Each xAttachment In xMailItem.Attachments
If xFileName = "" Then
xFileName = " <" & xAttachment.FileName & "> "
Else
xFileName = xFileName & vbCrLf & " <" & xAttachment.FileName & "> "
End If
Next xAttachment
Set xInspector = Outlook.Application.ActiveInspector()
Set xDoc = xInspector.WordEditor
Set xWdSelection = xDoc.Application.Selection
xWdSelection.HomeKey Unit:=wdStory
xWdSelection.InsertBefore "Attachments: " & vbCrLf & xFileName & vbCrLf & vbCrLf
Set xMailItem = Nothing
End Sub
4. Fare quindi clic su Strumenti > Riferimenti nella finestra di Microsoft Visual Basic, Applications. Nella finestra di dialogo Riferimenti - Project1, selezionare l'opzione Microsoft Word Object Library dall'elenco Riferimenti disponibili; vedere lo screenshot:
 |  |  |
5. Fare clic su OK per chiudere la finestra di dialogo, quindi aggiungere il pulsante macro alla Barra di accesso rapido. Nella nuova finestra di Messaggio, scegliere Altri comandi dal menu a discesa Personalizza barra di accesso rapido; vedere lo screenshot:
6. Nella finestra di dialogo Opzioni di Outlook, esegui le operazioni seguenti:
(1.) Selezionare Macrodall'elenco a discesa Scegli comandi da;
(2.) Fare clic sul nome della macro appena inserita;
(3.) Fare quindi clic sul pulsante Aggiungi per aggiungere la macro alla sezione Personalizza barra di accesso rapido.
7. Fare quindi clic su OK per chiudere la finestra di dialogo. Ora il pulsante macro è stato aggiunto alla Barra di accesso rapido; vedere lo screenshot:
8. Ora, quando crei un nuovo messaggio e fai clic sul pulsante della macro, i nomi degli allegati verranno inseriti sopra il corpo del messaggio, come mostrato nello screenshot seguente:
Elenca tutti i Nome allegato nel corpo del messaggio durante la composizione di un'email con una funzionalità semplice
Il codice sopra potrebbe risultare complesso da applicare. Se disponi di Kutools per Outlook, grazie alla sua funzionalità Copia Nomi, puoi copiare rapidamente i nomi degli allegati di un messaggio e incollarli ovunque ti servano.
Dopo aver installato Kutools per Outlook, procedere come segue:
1. Innanzitutto, crea le nuove email necessarie, quindi fai clic su Kutools > Copia Nomi nella nuova finestra di Messaggio; vedi lo screenshot:
2. Verrà visualizzata una finestra di avviso che indica che i nomi degli allegati sono stati copiati negli Appunti; vedere lo screenshot:
3. Ora basta premere contemporaneamente i tasti Ctrl + V per incollare il nome dell'allegato nel corpo del messaggio desiderato; vedi lo screenshot:
Altri articoli correlati:
- Rispondi a Tutti con Allegati Originali In Outlook
- Di norma, quando si utilizza la funzione **Rispondi a tutti** in Outlook per inviare una risposta a tutti i destinatari, gli allegati del messaggio originale vengono automaticamente omessi. È possibile conservare gli allegati originali quando si usa **Rispondi a tutti** in Outlook?
- Scarica/Salva allegati da Outlook in una cartella specifica
- In generale, è possibile salvare tutti gli allegati di un messaggio facendo clic su **Allegati > Salva tutti gli allegati** in Outlook. Tuttavia, se devi salvare tutti gli allegati provenienti da **tutte le email ricevute**, esiste una soluzione ideale? Questo articolo presenta due metodi per scaricare automaticamente gli allegati da Outlook in una cartella specifica.
- Modifica la posizione predefinita per gli allegati Area di salvataggio in Outlook
- Siete stanchi di dover cercare ogni volta la posizione degli allegati specificata all’avvio di Outlook? In questa guida vi spiegheremo come impostare una cartella predefinita per il salvataggio degli allegati, in modo che venga aperta automaticamente ogni volta che salvate un file — anche dopo aver riavviato Outlook.
- Rimuovi tutti gli allegati da un messaggio in Outlook
- Di norma, durante l’anteprima di un messaggio in Outlook, puoi eliminare un allegato facendo clic con il tasto destro e selezionando **Rimuovi allegato**. Tuttavia, quando un messaggio contiene numerosi allegati, rimuoverli uno per uno può diventare noioso e dispendioso in termini di tempo. In questo articolo ti presentiamo due metodi semplici ed efficaci per rimuovere tutti gli allegati da un singolo messaggio o da più messaggi contemporaneamente.
Migliori strumenti per la produttività in Office
Scopri il nuovissimo Kutools per Outlook con 100+ funzionalità incredibili!Clicca per scaricare ora!
📧Automazione delle email: Risposta automatica (disponibile per POP e IMAP) / Invio email programmato / CC/BCC automatico in base a regole durante l’invio delle email / Inoltro automatico (regola avanzata) / Aggiunta automatica del saluto / Divisione automatica delle email con destinatari multipli in messaggi individuali...
📨Gestione delle email: Richiama Email / Blocca le email truffaldine in base all’oggetto e ad altri criteri / Elimina email duplicate / Ricerca avanzata / Organizza cartelle...
📁Allegati Pro: Salvataggio batch / Distacco batch / Compressione batch / Salvataggio automatico / Distacco automatico / Compressione automatica…
🌟Magia dell’interfaccia: 😊 Più emoji graziose e accattivanti / Ti avvisa all’arrivo di email importanti / Riduci a icona Outlook invece di chiuderlo...
👍Meraviglie con un clic: Rispondi a Tutti con Allegati / Email anti-phishing / 🕘 Mostra il fuso orario – Ora corrente del mittente...
👩🏼🤝👩🏻Contatti e calendario: Aggiungi contatti in blocco dalle email selezionate / Dividi un gruppo di contatti in gruppi individuali / Rimuovi i promemoria dei compleanni...
Usa Kutools nella tua lingua preferita: supporta inglese, spagnolo, tedesco, francese, cinese e oltre 40 altre lingue!
🚀 Download con un clic — Ottieni tutti i componenti aggiuntivi per Office
Fortemente consigliato: Kutools for Office (5-in-1)
Un clic per scaricare cinque programmi di installazionetutti insieme —Kutools per Excel, Outlook, Word, PowerPointe Office Tab Pro.Clicca per scaricare ora!
- ✅Comodità con un solo clic: scarica tutti e cinque i pacchetti di installazione in un’unica azione.
- 🚀Pronto per qualsiasi attività in Office: installa i componenti aggiuntivi che ti servono, esattamente quando ti servono.
- 🧰Inclusi: Kutools per Excel / Kutools per Outlook / Kutools per Word / Office Tab Pro / Kutools for PowerPoint