Comment afficher le nombre de pièces jointes dans la liste de diffusion avec Outlook VBA

Solutions Outlook 29 septembre

Si vous souhaitez obtenir rapidement le nombre de pièces jointes dans chaque e-mail de la liste de diffusion, vous pouvez utiliser le code VBA dans cet article. Il comptera automatiquement les pièces jointes dans chaque e-mail entrant et affichera le nombre dans une nouvelle colonne.

Certains utilisateurs ont souvent besoin de compter les pièces jointes aux e-mails. Dans ce scénario, pourquoi ne pas créer et activer une colonne exclusive pour afficher le nombre de pièces jointes ? Dans ce qui suit, nous vous apprendrons comment faire en sorte qu'Outlook compte automatiquement les pièces jointes et affiche le nombre dans une telle nouvelle colonne.

Afficher le nombre de pièces jointes dans la liste de diffusion

Pour commencer, lancez votre application Outlook.
Appuyez ensuite sur les touches "Alt + F11" dans la fenêtre principale d'Outlook.
Ensuite, dans la nouvelle fenêtre de l'éditeur Outlook VBA, vous devez ouvrir un module qui n'est pas utilisé.
Ensuite, copiez et collez le code VBA suivant dans ce module.

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

Après cela, vous pouvez quitter la fenêtre actuelle "Microsoft Visual Basic pour Applications".
Plus tard, vous devrez créer une nouvelle règle pour exécuter ce script sur chaque e-mail entrant.

Tout d'abord, allez dans le menu "Fichier" et cliquez sur le bouton "Gérer les règles et les alertes" sous l'onglet "Info".
Ensuite, dans la nouvelle boîte de dialogue, appuyez sur le bouton "Nouvelle règle".
Dans l'écran "Assistant de règle" suivant, sélectionnez "Appliquer la règle sur les messages que je reçois" et cliquez sur "Suivant".
Ignorez ensuite les « conditions de sélection » et cliquez sur « Suivant ».
Sélectionnez ensuite l'action "exécuter un script" et sélectionnez la macro précédemment ajoutée, comme la capture d'écran suivante.
Après cela, cliquez sur plusieurs "Suivant" jusqu'à atteindre l'écran final "Terminer la configuration de la règle".
Plus tard, vous devrez spécifier un nouveau nom pour cette règle et activer l'option "Exécuter cette règle sur les messages déjà dans la "boîte de réception"" et "Activer cette règle".
Enfin, cliquez sur le bouton "Terminer".

Après cela, vous devez ajouter la colonne "Attachment Count" créée par le code VBA. Suivez simplement les étapes ci-dessous :

Tout d'abord, allez dans l'onglet "Affichage" dans l'écran de la liste des e-mails.
Cliquez ensuite sur le bouton "Afficher les paramètres".
Dans la nouvelle boîte de dialogue contextuelle, appuyez sur le bouton "Colonnes".
Ensuite, dans la fenêtre "Afficher les colonnes", recherchez et sélectionnez la colonne "Nombre de pièces jointes" sous "Colonnes définies par l'utilisateur dans la boîte de réception" et cliquez sur le bouton "Ajouter".
Enfin, cliquez sur le bouton "OK" pour enregistrer les modifications.

Finalement, vous pouvez voir une colonne "Nombre de pièces jointes" dans la liste des e-mails, qui affiche le nombre de pièces jointes pour chaque e-mail, comme illustré ci-dessous :

Évitez les pertes de données PST frustrantes

On pense que personne n'est prêt à accepter la perte de données PST. La même chose doit être vraie pour vous. Par conséquent, vous devez prendre certaines précautions, telles que faire des sauvegardes de données de votre fichier PST et vous procurer un outil de réparation réputé comme DataNumen Outlook Repair. Il peut réparer Outlook problèmes sans transpirer.

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 correction sql et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com