Comment définir automatiquement la sensibilité d'un e-mail en fonction de ses destinataires dans votre Outlook

Outlook permet aux utilisateurs de marquer les e-mails comme normaux, privés, personnels ou confidentiels à volonté. Certains utilisateurs aimeraient définir automatiquement la sensibilité d'un e-mail en fonction de ses destinataires. Ainsi, dans cet article, nous allons partager une méthode pour le réaliser.

En définissant la sensibilité de l'e-mail, vous suggérez en fait aux destinataires comment traiter le contenu de l'e-mail. Par exemple, en marquant un e-mail comme "Confidentiel", les destinataires recevront une invite dans la barre d'informations - "Veuillez traiter cela comme confidentiel". Ainsi, de nombreux utilisateurs aiment cette fonctionnalité. Pourtant, comme ils oublient fréquemment de définir la sensibilité de l'e-mail, ils espèrent qu'Outlook pourra le faire automatiquement en fonction des destinataires. Ainsi, nous allons présenter ici une approche pour y parvenir.

Définir automatiquement la sensibilité d'un e-mail en fonction de ses destinataires

1. Pour commencer, lancez votre programme Outlook.
2. Ensuite, après avoir accédé à la fenêtre principale d'Outlook, vous devez appuyer sur les touches "Alt + F11".
3. Ensuite, vous entrerez dans l'éditeur VBA. Dans la nouvelle fenêtre, vous devez accéder au projet "ThisOutlookSession".
4. Ensuite, copiez et collez le code VBA suivant dans ce projet.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As Outlook.MailItem
    Dim objRecipients As Outlook.Recipients
    Dim objRecipient As Outlook.recipient
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       Set objRecipients = objMail.Recipients
 
       If objRecipients.count = 1 Then
          Set objRecipient = objRecipients.Item(1)
 
          'Change the recipient as per your needs
          Select Case objRecipient.Address
                 Case "kim@datanumen.com", "abby@datanumen.com"
                      objMail.Sensitivity = olPersonal
                 Case "coral@datanumen.com", "amy@datanumen.com", "shelly@datanumen.com"
                      objMail.Sensitivity = olPrivate
                 Case "boss@datanumen.com"
                      objMail.Sensitivity = olConfidential
                 Case Else
                      objMail.Sensitivity = olNormal
          End Select
          objMail.Save
       End If
    End If
End Sub

5. Après avoir collé le code, vous devez modifier manuellement les destinataires prédéfinis selon votre propre cas.
6. Ensuite, vous devez signer ce code. Cliquez sur "Outils"> "Signature numérique" et suivez les instructions à l'écran dans la nouvelle boîte de dialogue pour l'accomplir.
7. Ensuite, vous pouvez fermer la fenêtre actuelle.
8. Plus tard, dirigez-vous vers "Paramètres des macros" pour activer les macros signées numériquement.
9. Finalement, vous pouvez prendre une photo. Composez et envoyez simplement un e-mail au destinataire spécifique. Une fois l'e-mail envoyé, vous pouvez vous rendre dans le dossier "Éléments envoyés" pour le vérifier. Sa sensibilité sera définie en fonction de la macro, comme la capture d'écran suivante :

Utiliser un outil de récupération utile

Outlook est livré avec un outil de réparation intégré - Scanpst.exe. Cependant, en cas de problèmes graves, cet outil ne sera pas d'une grande aide. Ainsi, nous suggérons toujours de préparer un autre puissant et fiable Réparation Outlook utilitaire, comme DataNumen Outlook Repair. Avec lui, vous pourrez récupérer votre fichier Outlook corrompu même si l'outil interne échoue. En outre, il a été prouvé avec un taux de récupération PST élevé.

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