Come visualizzare il conteggio degli allegati nell'elenco e-mail con Outlook VBA

Se desideri ottenere rapidamente il conteggio degli allegati in ogni e-mail nell'elenco e-mail, puoi utilizzare il codice VBA in questo articolo. Conterà automaticamente gli allegati in ogni e-mail in arrivo e visualizzerà il conteggio in una nuova colonna.

Alcuni utenti hanno spesso bisogno di contare gli allegati di posta elettronica. In questo scenario, perché non creare e abilitare una colonna esclusiva per la visualizzazione del conteggio degli allegati? Di seguito, ti insegneremo come fare in modo che Outlook conteggi automaticamente gli allegati e-mail e mostri il conteggio in una nuova colonna.

Visualizza il conteggio degli allegati nell'elenco e-mail

1. Per iniziare, avvia l'applicazione Outlook.
2. Quindi premere i pulsanti "Alt + F11" nella finestra principale di Outlook.
3. Successivamente nella nuova finestra dell'editor VBA di Outlook, è necessario aprire un modulo che non viene utilizzato.
4. Successivamente, copia e incolla il seguente codice VBA in questo modulo.

Sub AutoCountAttachments(objMail As Outlook.MailItem)
    Dim objAttachments As Outlook.Attachments
    Dim objProperties As Outlook.UserProperties
    Dim objProperty As Outlook.UserProperty
    Dim strPropertyName As String
 
    Set objAttachments = objMail.Attachments
 
    strPropertyName = "Attachment Count"
    Set objProperties = objMail.UserProperties
 
    'Check if there is already a column in this name
    Set objProperty = objProperties.Find(strPropertyName, True)
    If objProperty Is Nothing Then
       'If not, add this column
       Set objProperty = objProperties.Add(strPropertyName, olText, True)
    End If
 
    'Set the column value equal to the count of attachments
    objProperty.value = objAttachments.Count
    objMail.Save
End Sub

5. Successivamente, puoi uscire dall'attuale finestra "Microsoft Visual Basic for Applications".
6. Successivamente è necessario creare una nuova regola per eseguire questo script su ogni email in arrivo.

• Innanzitutto, vai al menu "File" e fai clic sul pulsante "Gestisci regole e avvisi" nella scheda "Informazioni".
• Quindi, nella nuova finestra di dialogo, premi il pulsante "Nuova regola".
• Nella successiva schermata "Creazione guidata regole", seleziona "Applica regola ai messaggi che ricevo" e premi "Avanti".
• Quindi ignorare "Seleziona condizioni" e fare clic su "Avanti".
• Quindi seleziona l'azione "esegui uno script" e seleziona la macro aggiunta in precedenza, come nella schermata seguente.
• Successivamente, fai clic su diversi "Avanti" fino a raggiungere la schermata finale "Fine configurazione regola".
• Successivamente, è necessario specificare un nuovo nome per questa regola e abilitare l'opzione "Esegui questa regola sui messaggi già in "Posta in arrivo"" e "Attiva questa regola".
• Infine, fai clic sul pulsante "Fine".

7. Successivamente, dovresti aggiungere la colonna "Conteggio allegati" creata dal codice VBA. Basta eseguire i seguenti passaggi di seguito:

• Innanzitutto, vai alla scheda "Visualizza" nella schermata dell'elenco e-mail.
• Quindi fare clic sul pulsante "Visualizza impostazioni".
• Nella nuova finestra di dialogo popup, premi il pulsante "Colonne".
• Quindi, nella finestra "Mostra colonne", trova e seleziona la colonna "Conteggio allegati" in "Colonne definite dall'utente nella Posta in arrivo" e premi il pulsante "Aggiungi".
• Infine fare clic sul pulsante "OK" per salvare le modifiche.

8. Alla fine, puoi vedere una colonna "Conteggio allegati" nell'elenco e-mail, che mostra il conteggio degli allegati per ogni e-mail, mostrato come l'immagine qui sotto:

Evita frustranti perdite di dati PST

Si ritiene che nessuno sia disposto ad accettare la perdita di dati PST. Lo stesso deve valere per te. Pertanto, devi prendere alcune precauzioni, come eseguire il backup dei dati del tuo file PST e procurarti uno strumento di correzione affidabile come DataNumen Outlook Repair. Si può riparare Outlook problemi senza sudare.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui correzione sql e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com