IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Contribuez Discussion :

Eviter le "Répondre à tous" par erreur


Sujet :

Contribuez

  1. #1
    Membre émérite Avatar de curt
    Homme Profil pro
    Ingénieur Etudes
    Inscrit en
    mars 2006
    Messages
    1 470
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Ingénieur Etudes
    Secteur : Bâtiment Travaux Publics

    Informations forums :
    Inscription : mars 2006
    Messages : 1 470
    Points : 2 253
    Points
    2 253
    Par défaut Eviter le "Répondre à tous" par erreur
    Que celui qui n’a jamais fait « REPONDRE A TOUS » au lieu de « REPONDRE » sur OUTLOOK me jette la première pierre.
    (fonctionne sur Outlook 2010 et 2016 - pour les autres versions, merci de tester et remonter l'info)

    Pour éviter cela, je vous propose le code ci-dessous qui proposera un message de confirmation avant d’envoyer le mail.
    La manip réside dans le fait que les adresses mails sont séparées par un point-virgule pour chacun des types de correspondants « A » , « CC » et « CCC ».
    Vous l’aurez compris, il suffira d’additionner ces points-virgules et les types de destinataires qui, s'il est supérieur à 1, déclenchera le message.

    Pour mettre ce code en place, dans OUTLOOK, ALT+F11, Insérer un Module et Copier/Coller le code ci-dessous.

    Curt

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
     
    On Error Resume Next
    Dim Destinataire_A() As String      'A:
    Dim Destinataire_CC() As String     'CC:
    Dim Destinataire_BCC() As String    'CCC:
     
    Dim NbreDestinataire_A As Integer   'A:
    Dim NbreDestinataire_CC As Integer  'CC:
    Dim NbreDestinataire_BCC As Integer 'CCC:
     
    Dim NbreDestinataire As Integer     'Nombre total de destinataires
        'ALERTE SI PLUSIEURS DESTINATAIRES (Eviter le "Répondre à tous" par erreur)
     
        Destinataire_A = Split(mail.To, ";")
        NbreDestinataire_A = UBound(Destinataire_A()) + 1       'Si aucun A: on a -1 donc on doit ajouter 1 pour avoir 0
     
        Destinataire_CC = Split(mail.CC, ";")
        NbreDestinataire_CC = UBound(Destinataire_CC()) + 1     'Si aucun CC: on a -1 donc on doit ajouter 1 pour avoir 0
     
        Destinataire_BCC = Split(mail.BCC, ";")
        NbreDestinataire_BCC = UBound(Destinataire_BCC()) + 1   'Si aucun CCC: on a -1 donc on doit ajouter 1 pour avoir 0
     
        NbreDestinataire = NbreDestinataire_A + NbreDestinataire_CC + NbreDestinataire_BCC
     
        If NbreDestinataire > 1 Then
            If MsgBox("Attention ! Envoi du courrier à plusieurs destinataires.", _
                      vbCritical + vbYesNo, "Attention !") = vbNo Then
                Cancel = True
            End If
        End If
     
    End Sub
    Pas de demande par MP, sinon j'correctionne plus, j'dynamite, j'disperse, j'ventile !!!
    ---------------------------------------------------------------------
    Vous avez un talent insoupçonné... Faites-en profitez les autres. Un p'tit CLIC pour une grande cause.
    Et si vous faisiez un bon geste en 2021 ? Soyez utile, ça vous changera ! Moi, ça m’a changé !

  2. #2
    Expert éminent
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    mars 2006
    Messages
    4 085
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : mars 2006
    Messages : 4 085
    Points : 7 164
    Points
    7 164
    Billets dans le blog
    20
    Par défaut
    Bonjour;
    Effectivement cela fait partie des Erreurs courantes !

    Tu peux simplifier comme cela

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
     
    On Error Resume Next
     
        'ALERTE SI PLUSIEURS DESTINATAIRES (Eviter le "Répondre à tous" par erreur)
     
        If Item.Recipients.Count > 1 Then
            If MsgBox("Attention ! Envoi du courrier à plusieurs destinataires.", _
                      vbCritical + vbYesNo, "Attention !") = vbNo Then
                Cancel = True
            End If
        End If
     
    End Sub

Discussions similaires

  1. Eviter de renommer des fichiers par erreur
    Par sechanbask dans le forum Windows XP
    Réponses: 1
    Dernier message: 29/03/2009, 14h19

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo