Comment déplacer automatiquement les e-mails avec des destinataires CC spécifiques dans Outlook

En pratique, la plupart d'entre vous souhaitent sans doute créer une règle Outlook pour déplacer automatiquement les e-mails comportant des destinataires en copie (CC). Or, Outlook ne prend pas en charge la vérification des destinataires en copie. Cet article vous expliquera donc comment y parvenir grâce à VBA pour Outlook.

Évidemment, il vous est impossible de créer une règle Outlook pour rechercher des destinataires CC spécifiques. Comme le montre la capture d'écran suivante, pour les e-mails reçus, vous pouvez uniquement vérifier si votre propre nom figure dans la case CC. De même, pour les e-mails envoyés, même s'il n'y a pas de condition de règle pour cocher la case CC.

Par conséquent, si vous souhaitez configurer Outlook pour déplacer automatiquement les e-mails avec des destinataires CC spécifiques, vous devez rechercher d'autres moyens. Alors. ici, nous vous apprendrons comment y parvenir au moyen d'Outlook VBA.

Déplacer automatiquement les e-mails envoyés avec des destinataires CC spécifiques

1. Tout d'abord, allez dans l'onglet "Développeur" et cliquez sur le bouton "Visual Basic".
2. Ouvrez ensuite le projet "ThisOutlookSession" et copiez-y les codes VBA suivants.

Public WithEvents olItems As Outlook.Items

Sub Application_Startup()
    Set olItems = Session.GetDefaultFolder(olFolderSentMail).Items
End Sub

Sub olItems_ItemAdd(ByVal Item As Object)
    If Item.Class = olMail Then
       MoveMail Item
    End If
End Sub

Sub MoveMail(Mail As Outlook.MailItem)
    Dim ccRecip As String
    Dim desFolder As Folder
 
    'Replace "test" with your desired CC'd recipient name or address
    ccRecip = "test"
    'The "Test" folder is a subfolder under "Sent Items" folder
    Set desFolder = Session.GetDefaultFolder(olFolderSentMail).Folders("Test")
 
    If InStr(LCase(Mail.CC), ccRecip) > 0 Then
       Mail.Move desFolder
    End If
End Sub

3. Par la suite, vous devez procéder à la signature de ce code et modifier les paramètres de la macro comme d'habitude.
4. Enfin, vous pouvez quitter la fenêtre "Visual Basic". Par la suite, les e-mails avec les destinataires CC spécifiques seront déplacés vers le dossier de messagerie spécifié.

Déplacer automatiquement les e-mails reçus avec des destinataires CC spécifiques

Maintenant que le code VBA ci-dessus vise à déplacer les e-mails envoyés avec des destinataires CC spécifiques, si vous souhaitez rechercher des destinataires CC spécifiques dans les e-mails reçus, puis les déplacer, vous devez utiliser les codes suivants à la place.

Public WithEvents olItems As Outlook.Items

Sub Application_Startup()
    Set olItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Sub olItems_ItemAdd(ByVal Item As Object)
    If Item.Class = olMail Then
       MoveMail Item
    End If
End Sub

Sub MoveMail(Mail As Outlook.MailItem)
    Dim Recips As Recipients
    Dim Recip As Recipient
    Dim ccRecip As String
    Dim desFolder As Folder
 
    Set Recips = Mail.Recipients
    'Replace "test" with the specific words in your desired CC recipient address
    ccRecip = "test"
 
    For Each Recip In Recips
        If Recip.Type = olCC Then
           If InStr(LCase(Recip.Address), ccRecip) > 0 Then
              'The "Test" folder is a subfolder under "Inbox" folder
              Set desFolder = Session.GetDefaultFolder(olFolderInbox).Folders("Test")
              Mail.Move desFolder
           End If
        End If
    Next
End Sub

Soyez bien préparé à la corruption d'Outlook

Bien qu'Outlook soit riche en fonctionnalités, il ne peut toujours pas être à l'abri de la corruption. Vous devez donc rester vigilant contre tous les risques potentiels. Sans aucun doute, l'étape critique doit être de faire une sauvegarde cohérente et à jour des données Outlook. De plus, vous devez conserver un outil de récupération Outlook corrompu à proximité. Cela vous sera utile si les sauvegardes et Scanpst.exe échouent.

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