Come elencare tutti i nomi degli allegati nel corpo del messaggio durante la composizione di un'email in Outlook?
Esistono buoni metodi per inserire tutti i nomi degli allegati nel corpo del messaggio durante la composizione di un'email in Outlook? In questo articolo, parlerò di come risolvere questa operazione in Outlook.
Elencare tutti i nomi degli allegati nel corpo del messaggio durante la composizione di un'email con il codice VBA
Eseguire i seguenti passaggi per completare questa attività:
1. Tenere premuti i tasti ALT + F11 per aprire la finestra Microsoft Visual Basic for Applications.
2. Nella finestra Microsoft Visual Basic for Applications, fare doppio clic su ThisOutlookSession nel riquadro Project1(VbaProject.OTM) per aprire la modalità e quindi copiare e incollare il seguente codice nel modulo vuoto.
Codice VBA: Elencare tutti i nomi degli allegati 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. Successivamente, fare clic su Inserisci > Modulo, copiare e incollare il codice sottostante nel modulo vuoto aperto, vedere screenshot:
Codice VBA: Elencare tutti i nomi degli allegati 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. Quindi fare clic su Strumenti > Riferimenti nella finestra Microsoft Visual Basic for Applications, nella finestra di dialogo Riferimenti-Progetto1 visualizzata, selezionare l'opzione Libreria oggetti Microsoft Word dalla casella di riepilogo Riferimenti disponibili, vedere screenshot:
![]() | ![]() | ![]() |
5. Fare clic su OK per uscire dalla finestra di dialogo, quindi è necessario aggiungere il pulsante macro alla Barra degli strumenti di accesso rapido. Nella nuova finestra Messaggio, scegliere Altri comandi dal menu a discesa Personalizza barra degli strumenti di accesso rapido, vedere screenshot:
6. Nella finestra di dialogo Opzioni di Outlook, eseguire le seguenti operazioni:
(1.) Selezionare Macro dal menu a discesa Scegli comandi da;
(2.) Fare clic sul nome della macro che hai inserito poco fa;
(3.) E poi fare clic sul pulsante Aggiungi per aggiungere la macro alla Barra degli strumenti di accesso rapido personalizzata.
7. Quindi fare clic su OK per chiudere la finestra di dialogo, ora il pulsante macro è stato inserito nella Barra degli strumenti di accesso rapido, vedere screenshot:
8. Ora, quando crei un nuovo messaggio e fai clic sul pulsante macro, i nomi degli allegati verranno inseriti sopra il corpo del messaggio come mostrato nello screenshot seguente:
Elencare tutti i nomi degli allegati nel corpo del messaggio durante la composizione di un'email con una funzione semplice
Forse il codice sopra è un po' difficile da applicare per te, se hai Kutools per Outlook, con la sua funzione Copia nomi, puoi copiare rapidamente i nomi degli allegati di un messaggio e incollarli ovunque tu ne abbia bisogno.
Dopo aver installato Kutools per Outlook, procedi come segue:
1. Prima di tutto, crea la nuova email di cui hai bisogno, quindi fai clic su Kutools > Copia nomi nella nuova finestra Messaggio, vedere screenshot:
2. Successivamente, apparirà una finestra di avviso per informarti che i nomi degli allegati sono stati copiati negli appunti, vedere screenshot:
3. Ora, devi solo premere contemporaneamente i tasti Ctrl + V per incollare i nomi degli allegati nel corpo del messaggio desiderato, vedere screenshot:
Altri articoli correlati:
- Rispondi a tutti con gli allegati originali in Outlook
- Normalmente, quando utilizzi la funzione Rispondi a tutti per rispondere al messaggio a tutti i destinatari in Outlook, gli allegati originali verranno persi automaticamente. È possibile allegare gli allegati originali quando si risponde a tutti in Outlook?
- Scarica/Salva allegati da Outlook in una cartella specifica
- Generalmente, puoi salvare tutti gli allegati di un'email facendo clic su Allegati > Salva tutti gli allegati in Outlook. Ma, se hai bisogno di salvare tutti gli allegati da tutte le email ricevute e in arrivo, qualche idea? Questo articolo introdurrà due soluzioni per scaricare automaticamente gli allegati da Outlook in una cartella specifica.
- Cambia la posizione predefinita per il salvataggio degli allegati in Outlook
- Sei stanco di cercare ogni volta la posizione dell'allegato che hai specificato all'avvio di Outlook? In questo tutorial, ti mostreremo come cambiare la posizione predefinita degli allegati. Dopo di ciò, la cartella di salvataggio degli allegati specificata si aprirà automaticamente ogni volta che salvi gli allegati, anche dopo aver riavviato Outlook.
- Rimuovi tutti gli allegati da un'email in Outlook
- Normalmente, quando stai visualizzando un'email, puoi eliminare un allegato facendo clic con il tasto destro e selezionando l'opzione Rimuovi allegato. A volte potrebbero esserci molti allegati in un messaggio di posta elettronica, e sarebbe noioso rimuoverli uno per uno. Qui ti proponiamo due trucchi facili per rimuovere tutti gli allegati da un'email e rimuovere tutti gli allegati da più email in Outlook.
I migliori strumenti per la produttività in Office
Ultime novità: Kutools per Outlook lancia la versione gratuita!
Scopri la nuovissima versione GRATUITA di Kutools per Outlook con oltre70 funzionalità straordinarie, da utilizzare PER SEMPRE! Clicca per scaricarla subito!
📧 Automazione Email: Risposta automatica (disponibile per POP e IMAP) / Programma invio email / CC/BCC automatico tramite regola durante l'invio / Inoltro automatico (Regola avanzata) / Aggiungi saluto automaticamente / Suddividi automaticamente le email con più destinatari in messaggi individuali...
📨 Gestione Email: Richiama Email / Blocca email di phishing per oggetto e altri criteri / Elimina email duplicate / Ricerca Avanzata / Organizza cartelle...
📁 Allegati Pro: Salva in blocco / Distacca in blocco / Comprimi in blocco / Salvataggio automatico / Distacca automaticamente / Auto Comprimi...
🌟 Magia dell'interfaccia: 😊Più emoji belle e originali / Notifiche per email importanti / Riduci Outlook a icona invece di chiuderlo...
👍 Funzioni rapide: Rispondi a Tutti con Allegati / Email anti-phishing / 🕘Mostra il fuso orario del mittente...
👩🏼🤝👩🏻 Contatti & Calendario: Aggiungi in blocco contatti dalle email selezionate / Dividi un gruppo di contatti in gruppi individuali / Rimuovi promemoria di compleanno...

