Comment vérifier automatiquement les pièces jointes dans des e-mails sortants spécifiques avec Outlook VBA

Parfois, vous pouvez oublier d'ajouter les pièces jointes requises à des e-mails spécifiques, tels que des e-mails pour signaler vos travaux hebdomadaires. Cet article vous apprendra à activer un avertissement contextuel pour vous empêcher d'envoyer les e-mails spécifiques sans pièces jointes.

Contrairement à Outlook 2010 et aux versions précédentes, Outlook 2013 dispose d'un support natif pour vous rappeler lorsque vous n'avez joint aucun fichier dans les e-mails sortants. Vous pouvez activer cette fonctionnalité dans les options Outlook comme la capture d'écran suivante :

Tant que l'avertissement automatique pour les pièces jointes manquantes est activé, un message d'avertissement s'affichera à chaque envoi d'e-mail. Or, la plupart du temps, vous n'avez pas besoin de joindre de fichiers. Dans ce cas, cet avertissement peut s'avérer gênant. Nous allons vous expliquer comment activer un avertissement automatique pour les e-mails sortants sans pièces jointes, en utilisant VBA pour Outlook.

Vérification automatique des pièces jointes dans des e-mails sortants spécifiques

1. Au tout début, lancez Outlook et passez à l'onglet "Développeur".
2. Cliquez sur le bouton "Visual Basic" dans le groupe "Code".
3. Ensuite, dans la nouvelle fenêtre contextuelle "Microsoft Visual Basic pour Applications", vous devez double-cliquer sur le projet "ThisOutlookSession" pour l'ouvrir.
4. Ensuite, vous devez copier les codes suivants dans le projet "ThisOutlookSession".

Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim strMsg As String
    Dim intAns As Integer
 
    If Item.Class <> olMail Then
       Exit Sub
    End If
 
    'Specify the Email Recipient and Subject
    If InStr(LCase(Item.To), "test") > 0 And InStr(LCase(Item.Subject), "worklog") > 0 Then
       If Item.Attachments.Count = 0 Then
          strMsg = "Do you want to send the email without attachments?"
          intAns = MsgBox(strMsg, vbYesNo + vbDefaultButton2 + vbExclamation, "Check for Missing Attachments")
          If intAns = vbNo Then
             Cancel = True
          End If
       End If
    End If
End Sub

5. Cliquez ensuite sur l'icône de sauvegarde dans la barre d'outils.
6. Après cela, vous devez procéder à la signature de ce code.

• Vous devez d'abord créer un certificat numérique. Microsoft Office intègre un outil appelé « Certificat numérique pour les projets VBA ». Vous le trouverez en recherchant « vba » dans le menu Démarrer.
• Ensuite, retournez à la fenêtre "visual basic" pour signer le code.

7. Après cela, quittez "Visual Basic" et cliquez sur le bouton "Paramètres de macro" sous l'onglet "Développeur". Dans la boîte de dialogue "Trust Center", vous devez choisir de n'activer que les macros signées numériquement. N'oubliez pas de cliquer sur "OK" enfin.
8. Enfin, vous pouvez essayer. Créez un nouveau message avec un destinataire et un objet spécifiques, mais sans pièces jointes. Lorsque vous cliquez sur le bouton "Envoyer", vous recevrez un avertissement contextuel, illustré par l'image suivante :

Protégez vos données Outlook

Étant donné qu'Outlook est sujet à la corruption, vous devez faire des efforts pour protéger vos données Outlook. La meilleure façon est de faire une sauvegarde cohérente et à jour. Par conséquent, vous pouvez facilement récupérer des données Outlook corrompues à partir des sauvegardes même en cas de plantage inattendu d'Outlook. De plus, si la sauvegarde échoue malheureusement, vous n'avez pas d'autre choix que de faire appel à un outil de réparation expérimenté, comme DataNumen Outlook Repair.

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 l'erreur de la base de données SQL et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com