Comment obtenir rapidement le nombre total de pièces jointes dans les e-mails Outlook sélectionnés

Avez-vous déjà été obligé de compter le nombre de pièces jointes dans les e-mails sélectionnés ? Ce sera fastidieux si vous les comptez manuellement. Ici, nous vous aiderons à rendre le comptage beaucoup plus facile et plus rapide avec Outlook VBA.

Pour certaines raisons, vous devrez peut-être compter le nombre de pièces jointes dans les e-mails Outlook. Si vous voulez simplement obtenir le nombre de pièces jointes dans un e-mail, ce sera considérablement facile. Mais si vous souhaitez compter les pièces jointes dans plusieurs e-mails, il sera très difficile de compter manuellement. En général, l'un des most La méthode la plus courante consiste à enregistrer toutes les pièces jointes dans un dossier local sur votre ordinateur. Ensuite, sélectionnez-les et l'Explorateur Windows vous indiquera le nombre d'éléments sélectionnés dans la barre d'état.

Cependant, il est indéniable que cette méthode est encore assez lourde. En fait, au moyen d'Outlook VBA, vous pouvez obtenir rapidement le nombre total de pièces jointes dans les e-mails Outlook sélectionnés. Lisez la suite pour apprendre les codes et les étapes VBA détaillés.

Obtenez rapidement le nombre total de pièces jointes dans les e-mails sélectionnés

1. Dans un premier temps, lancez l'application Outlook et accédez à l'onglet "Développeur".
2. Ensuite, vous pouvez cliquer sur le bouton "Visual Basic". Cela vous amènera à la fenêtre "Microsoft Visual Basic pour Applications".
3. Ensuite, vous devez ouvrir un nouveau module non utilisé. Sélectionnez "Insérer" > "Module".
4. Après cela, vous devez copier et coller les codes VBA suivants.

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. Par la suite, vous pouvez quitter la fenêtre "Visual Basic" et revenir à la fenêtre principale d'Outlook. Ensuite, vous devez trouver et appuyer sur la flèche vers le bas dans la barre d'outils d'accès rapide et sélectionner "Plus de commandes" dans la liste déroulante.
6. Suivez ensuite les étapes indiquées dans l'image ci-dessous.
7. Enfin, vous pouvez essayer.

• Après avoir sélectionné plusieurs e-mails, vous pouvez appuyer sur le nouveau bouton dans la barre d'outils d'accès rapide. Par la suite, vous recevrez un message vous indiquant le nombre de pièces jointes dans les e-mails sélectionnés. Il ressemble à l'image suivante :
• Mais si vous sélectionnez des éléments qui répondent à des demandes ou à des réponses au lieu d'e-mails, vous recevrez une alerte, comme l'image ci-dessous :

Réagir aux problèmes Outlook occasionnels

Si vous utilisez Outlook depuis des décennies, vous devez avoir rencontré plusieurs problèmes, notamment Outlook qui ne répond pas, Outlook se bloque, des messages d'erreur fréquents et Corruption des e-mails Outlook PST et ainsi de suite. Avez-vous déjà maîtrisé des astuces pour y remédier ? De manière générale, vous pouvez start Outlook en mode sans échec, créez un nouveau profil Outlook, réparez le bureau et désactivez les compléments tiers, etc. En outre, vous devez également conserver un puissant outil de réparation à proximité, tel que DataNumen Outlook Repair. Cela vous sera utile lorsque les sauvegardes et l'outil de réparation de la boîte de réception échoueront.

Introduction de l'auteur:

Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris réparer les données SQL corrompues et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com