Come ottenere l’elenco delle informazioni relative agli allegati presenti nell’e-mail selezionata in Outlook?
Per le email ricevute con allegati, potrebbe talvolta essere utile conoscere informazioni dettagliate sugli allegati, come il nome visualizzato, il nome del file e altro ancora. In realtà, con il codice VBA puoi ottenere facilmente l’elenco delle informazioni sugli allegati dell’email attualmente selezionata in Outlook. Consulta il tutorial seguente per ulteriori dettagli.
Ottenere l'elenco delle informazioni sugli allegati nell'email selezionata in Outlook
- Migliora la tua produttività email con la tecnologia AI, rispondendo rapidamente alle email, creandone di nuove, traducendo messaggi e molto altro in modo ancora più efficiente.
- Automatizza l’invio delle email con CC/BCC automatico, Inoltro automatico e regole; invia una Risposta automatica (fuori sede) senza dover utilizzare un server Exchange...
- Ricevi promemoria come Prompt quando si risponde a una email con me in Ccn quando rispondi a tutti pur essendo in Ccn, e Promemoria per allegati mancanti per non dimenticare gli allegati…
- Migliora l’efficienza delle email con Rispondi con allegati (tutti), Aggiunta automatica di saluto o data e ora nella firma o nell’oggetto, Rispondi a più email...
- Ottimizza l’invio delle email con Richiama Email, Strumenti allegati (Comprimi tutto, Salvataggio automatico di tutti gli allegati...), Rimuovi duplicati e Rapporto rapido...
Ottenere l'elenco delle informazioni sugli allegati nell'email selezionata in Outlook
1. Seleziona l'email contenente gli allegati di cui desideri ottenere le informazioni.
2. Premi i tasti Alt+F11 sulla tastiera per aprire la finestra di Microsoft Visual Basic for Applications.
3. Dopodiché fai doppio clic su Project1 > Oggetti Microsoft Outlook > ThisOutlookSession per aprire la finestra Project1 – ThisOutlookSession. Vedi screenshot:
4. Copia quindi il seguente codice VBA e incollalo nella finestra Project1 – ThisOutlookSession.
Codice VBA: ottenere 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. A questo punto si aprirà una finestra di dialogo Macro; fai clic sul pulsante Esegui.
7. Dopo aver fatto clic sul pulsante Esegui nella finestra di dialogo Macro, verrà creata una nuova finestra di messaggio contenente nel corpo dell'email tutte le informazioni sugli allegati dell'email selezionata. Vedi screenshot:
Nota: Questo codice VBA può essere applicato a Outlook 2007, 2010 e 2013
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