XL 2013 Probleme envoie mail outlook à un groupe de personne

MINIZ

XLDnaute Nouveau
Bonjour, après avoir effectué de multiple recherche sur différent forum je me décide a demander de l'aide.
J'ai un bout de programme qui envoie un mail à un groupe de personne situé dans les contacts de Outlook.
Tout marche bien sauf qu'a chaque fois que je clique sur un des boutons pour envoyer le mail Outlook me rajoute le groupe à la suite du précédent dans destinataire. Du coup le groupe de personne1 reçoit le mail du groupe de personne2 par exemple si j'ai d'abord cliqué sur mail groupe1 puis mail groupe2.
Voici mon code a repeter pour groupe2 groupe3 etc
VB:
Sub MailGroupe1()

 
'Supprime les alertes
    Application.DisplayAlerts = False

  ''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''Envoie mail''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''
'Selectionne la plage de cellules à envoyer
    ActiveSheet.Range("A1:D49").Select
  
'Envoie seulement la feuille visible
   ActiveWorkbook.EnvelopeVisible = True
   With ActiveSheet.MailEnvelope
      .Introduction = ("Veuillez trouver ci dessous les heures")
      .Item.Recipients.Add ("TestMailRichard")    'groupe denvoie
      .Item.Subject = "Retourx"
      .Item.display
'     .Item.Send

   End With
End Sub
 

MINIZ

XLDnaute Nouveau
Petit complément d'information:
Si je ferme le classeur et le réouvre, cela supprime les anciens destinataire. Du coup pour l'instant je ferme et je rouvre apres chaque mail mais j'aimerais quand même qu'on m'aide a trouver une solution plus viable SVP
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 846
dernier inscrit
Silhabib