Comment créer une règle Outlook basée sur le nombre d'adresses "À :" ?

Il n'y a pas de moyen intégré de le faire, mais vous pouvez y parvenir avec une macro.

Étapes1:

1. Dans Outlook, appuyez sur Alt + F11 pour ouvrir Microsoft Visual Basic.

2. Sur le côté gauche de l'écran, développez le dossier appelé Microsoft Office Outlook et double-cliquez sur ThisOutlookSession.2

3. Dans la fenêtre VbaProject.OTM - TheOutlookSession, sélectionnez Application dans la colonne de gauche et ItemSend dans le menu déroulant de droite.2

4. Remplacez le code qui apparaît dans le corps de la fenêtre par le suivant :

   Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
       Dim Recipients As Integer
       Dim Start As Integer
       Dim Last As Integer
       Recipients = 1
       Do
           Start = Last + 1
           Last = InStr(Start, Item.To, ";")
           If Last = 0 Then Exit Do
           Recipients = Recipients + 1
       Loop
       If (Recipients > 10) Then
           Cancel = (MsgBox(Str(Recipients) & " destinataires dans le champ À.", vbOKCancel) = vbCancel)
       End If
   End Sub

5. Appuyez sur Ctrl + S pour enregistrer.

6. Appuyez sur Alt + Q pour revenir à Outlook.

Cette macro affichera un avertissement s'il y a plus de 10 destinataires dans le champ À (en fonction du nombre de points-virgules utilisés pour délimiter les destinataires). Vous pouvez cliquer sur OK pour ignorer l'avertissement ou Annuler pour annuler.3

1 J'utilise Outlook 2007 (en espagnol). J'espère qu'Outlook 2010 est similaire.

2

3

Malheureusement, cela n'est pas possible avec Outlook. Alors que vous pouvez utiliser des solutions tierces pour le limiter (par exemple, Thunderbird), vous perdez la fonctionnalité d'Outlook lui-même. C'est en fait une excellente question, cependant, et j'aimerais voir Microsoft offrir un peu plus de contrôle sur ce que vous pouvez envoyer ou non!

J'ai pris la réponse de Sudo et j'ai modifié pour compter également les destinataires en CC et BCC, au cas où quelqu'un en aurait besoin :

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim Recipients As Integer
    Dim Start As Integer
    Dim Last As Integer
    Dim RecipientFields As String
    Recipients = 1

    RecipientFields = Item.To

    If (Item.CC <> "") Then
        RecipientFields = RecipientFields + ";" + Item.CC
    End If

    If (Item.BCC <> "") Then
        RecipientFields = RecipientFields + ";" + Item.BCC
    End If

    Do
        Start = Last + 1
        Last = InStr(Start, RecipientFields, ";")
        If Last = 0 Then Exit Do
        Recipients = Recipients + 1
    Loop

    If (Recipients > 6) Then
        Cancel = (MsgBox("Vous avez " & Str(Recipients) & " destinataires dans les champs A/C/BCC. Cliquez sur OK pour envoyer.", vbOKCancel) = vbCancel)
    End If
End Sub