Come ottenere l'elenco delle informazioni sugli allegati nell'email selezionata in Outlook?
Per le email ricevute con allegati, a volte potrebbe essere necessario conoscere informazioni dettagliate sugli allegati, come il nome visualizzato, il nome del file e così via. In realtà, il codice VBA può aiutarti a ottenere facilmente l'elenco delle informazioni sugli allegati nell'email attualmente selezionata in Outlook. Consulta il tutorial qui sotto per ulteriori dettagli.
Ottieni l'elenco delle informazioni sugli allegati nell'email selezionata in Outlook
- Potenzia la tua produttività email con la tecnologia AI, consentendoti di rispondere rapidamente alle email, redigere nuove, tradurre messaggi e molto altro in modo più efficiente.
- Automatizza l'invio di email con CC/BCC automatico, Inoltro automatico in base a regole; invia Risposta automatica (Fuori sede) senza richiedere un server di scambio...
- Ottieni promemoria come Prompt quando si risponde a una email con me in Ccn e Avviso allegati mancanti per allegati dimenticati...
- Migliora l'efficienza delle email con Rispondi (a tutti) con allegati, Aggiunta automatica di Saluti o Data e Ora nella firma o nell'oggetto, Rispondi a più email...
- Ottimizza l'invio di email con Richiama Email, Strumenti allegati (Comprimi tutti, Salvataggio automatico), Rimuovi duplicati e Rapporto rapido...
Ottieni l'elenco delle informazioni sugli allegati nell'email selezionata in Outlook
1. Seleziona l'email con gli allegati di cui vuoi ottenere le informazioni.
2. Premi i tasti Alt + F11 sulla tastiera per aprire la finestra Microsoft Visual Basic for Applications.
3. Dopodiché, fai doppio clic su Project1 > Microsoft Outlook Object > ThisOutlookSession per aprire la finestra Project1 – ThisOutlookSession. Vedi screenshot:
4. Quindi copia e incolla il seguente codice VBA nella finestra Project1 – ThisOutlookSession.
Codice VBA: ottieni l'elenco delle informazioni sugli allegati
Option Explicit
Public Sub GetAttachmentList()
Dim selItem As Object
Dim aMail As MailItem
Dim aAttach As attachment
Dim Report As String
For Each selItem In Application.ActiveExplorer.Selection
If selItem.Class = olMail Then
Set aMail = selItem
For Each aAttach In aMail.Attachments
Report = Report & vbCrLf & "------------------------------------------------------------------------" & vbCrLf
Report = Report & GetAttachmentInfo(aAttach)
Next
Call CreateReportEmail("Attachment Report", Report)
End If
Next
End Sub
Public Function GetAttachmentInfo(attachment As attachment)
Dim Report
GetAttachmentInfo = ""
Report = Report & "Index: " & attachment.Index & vbCrLf
Report = Report & "Display Name: " & attachment.DisplayName & vbCrLf
Report = Report & "File Name: " & attachment.FileName & vbCrLf
Report = Report & "Block Level: " & attachment.BlockLevel & vbCrLf
Report = Report & "Path Name: " & attachment.PathName & vbCrLf
Report = Report & "Position: " & attachment.Position & vbCrLf
Report = Report & "Size: " & attachment.Size & vbCrLf
Report = Report & "Type: " & attachment.Type & vbCrLf
GetAttachmentInfo = Report
End Function
Sub CreateReportEmail(Title As String, Report As String)
Dim aMail As MailItem
Set aMail = Application.CreateItem(olMailItem)
aMail.Subject = Title
aMail.Body = Report
aMail.Display
End Sub
5. Premi il tasto F5 sulla tastiera per eseguire il codice VBA.
6. Ora apparirà una finestra di dialogo Macros; fai clic sul pulsante Esegui.
7. Dopo aver fatto clic sul pulsante Esegui nella finestra di dialogo Macros, verrà creata una nuova finestra di messaggio con tutte le informazioni sugli allegati dell'email selezionata elencate nel corpo dell'email. Vedi screenshot:
Nota: Questo codice VBA può essere applicato a Outlook 2007, 2010 e 2013.
I migliori strumenti per la produttività in Office
Ultime notizie: Kutools per Outlook lancia la versione gratuita!
Scopri il nuovissimo Kutools per Outlook con oltre100 funzionalità straordinarie! Clicca per scaricare ora!
📧 Automazione Email: Risposta automatica (disponibile per POP e IMAP) / Programma invio Email / CC/BCC automatico tramite Regola durante l’invio delle Email / Inoltro automatico (Regola avanzata) / Aggiungi Saluto automaticamente / Dividi automaticamente Email multi-destinatario in messaggi singoli ...
📨 Gestione Email: Richiama Email / Blocca Email fraudulent (tramite Oggetto e altri parametri) / Elimina Email Duplicato / Ricerca Avanzata / Organizza cartelle ...
📁 Allegati Pro: Salva in Batch / Distacca in Batch / Comprimi in Batch / Salvataggio automatico / Distacca automaticamente / Auto Comprimi ...
🌟 Magia Interfaccia: 😊Più emoji belle e divertenti / Notifiche per le email importanti in arrivo / Riduci Outlook al posto di chiuderlo ...
👍 Funzioni rapide: Rispondi a Tutti con Allegati / Email Anti-Phishing / 🕘Mostra il fuso orario del mittente ...
👩🏼🤝👩🏻 Contatti & Calendario: Aggiungi in Batch contatti dalle Email selezionate / Dividi un Gruppo di Contatti in Gruppi singoli / Rimuovi promemoria di compleanno ...
Utilizza Kutools nella lingua che preferisci – supporta Inglese, Spagnolo, Tedesco, Francese, Cinese e oltre40 altre!


🚀 Download con un solo clic — Ottieni tutti gli Add-in per Office
Consigliato: Kutools per Office (5-in-1)
Un solo clic per scaricare cinque installatori contemporaneamente — Kutools per Excel, Outlook, Word, PowerPoint e Office Tab Pro. Clicca per scaricare ora!
- ✅ Comodità con un solo clic: scarica tutti e cinque i pacchetti di installazione in una sola azione.
- 🚀 Pronto per qualsiasi attività Office: installa i componenti aggiuntivi necessari, quando ti servono.
- 🧰 Inclusi: Kutools per Excel / Kutools per Outlook / Kutools per Word / Office Tab Pro / Kutools per PowerPoint