Come ottenere rapidamente il numero totale di allegati nelle e-mail di Outlook selezionate

Ti è mai stato richiesto di contare il numero di allegati e-mail in e-mail selezionate? Sarà noioso se li conti manualmente. Qui ti aiuteremo a rendere il conteggio molto più semplice e veloce con Outlook VBA.

Per diversi motivi, potrebbe essere necessario contare il numero di allegati nelle email di Outlook. Se si desidera semplicemente ottenere il numero di allegati in una singola email, sarà piuttosto semplice. Ma se si desidera contare gli allegati in diverse email, il conteggio manuale risulterà molto laborioso. In genere, uno dei metodi più comuni consiste nel salvare tutti gli allegati in una cartella locale sul computer. Quindi selezionarli e Esplora risorse di Windows mostrerà il numero di elementi selezionati nella barra di stato.

Tuttavia, non si può negare che questo metodo sia ancora piuttosto macchinoso. In realtà, tramite Outlook VBA, puoi ottenere rapidamente il numero totale di allegati nelle email di Outlook selezionate. Continua a leggere per apprendere i codici e i passaggi VBA dettagliati.

Ottieni rapidamente il numero totale di allegati nelle e-mail selezionate

1. Inizialmente, avvia l'applicazione Outlook e vai alla scheda "Sviluppatore".
2. Quindi puoi fare clic sul pulsante "Visual Basic". Ti porterà alla finestra "Microsoft Visual Basic for Applications".
3. Successivamente dovresti aprire un nuovo modulo non in uso. Selezionare “Inserisci” > “Modulo”.
4. Successivamente, devi copiare e incollare i seguenti codici VBA al suo interno.

Sub CountAttachmentsinSelectedEmails()
    Dim olSel As Selection
    Dim oMail As Object
    Dim AttCount As Long
    Dim strMsg As String
 
    Set olSel = Outlook.Application.ActiveExplorer.Selection
 
    For Each oMail In olSel
        'To confirm if the selected items are all emails
        If oMail.Class <> olMail Then
           strMsg = "Please select mail items only!"
           nRes = MsgBox(strMsg, vbOKOnly + vbExclamation)
           Exit Sub
        End If
        'Get the total number of the attachments in selected emails
        AttCount = oMail.Attachments.Count + AttCount
    Next
 
    strMsg = "There are " & AttCount & " attachments in the " & olSel.Count & " selected emails."
    nRes = MsgBox(strMsg, vbOKOnly + vbInformation, "Count Attachments")
End Sub

5. Successivamente, puoi uscire dalla finestra "Visual Basic" e tornare alla finestra principale di Outlook. Quindi dovresti trovare e premere la freccia giù nella barra di accesso rapido e selezionare "Altri comandi" dall'elenco a discesa.
6. Successivamente segui i passaggi mostrati nell'immagine qui sotto.
7. Finalmente puoi provare.

• Dopo aver selezionato diverse e-mail, puoi premere il nuovo pulsante nella barra di accesso rapido. Successivamente, riceverai un messaggio che ti dice il numero degli allegati nelle e-mail selezionate. Sembra la seguente immagine:
• Ma se selezioni elementi che soddisfano richieste o risposte allo stesso modo invece di e-mail, riceverai un avviso, come l'immagine qui sotto:

Reagisci a problemi occasionali di Outlook

Se hai utilizzato Outlook per decenni, devi aver riscontrato diversi problemi, tra cui Outlook che non risponde, blocco di Outlook, frequenti messaggi di errore e Corruzione della posta elettronica PST di Outlook e così via. Hai già imparato qualche trucco per affrontarli? In generale, puoi avviare Outlook in modalità provvisoria, creare un nuovo profilo Outlook, riparare Office e disabilitare i componenti aggiuntivi di terze parti, ecc. Inoltre, dovresti anche tenere a portata di mano un potente strumento di riparazione, come DataNumen Outlook Repair. Sarà utile quando sia i backup che lo strumento di riparazione della posta in arrivo falliscono.

Introduzione dell'autore:

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