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 grazie alla tecnologia AI, consentendoti di rispondere rapidamente alle email, scrivere nuovi messaggi, 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 allegati, Salvataggio automatico), Elimina 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 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...

