Problème envoie mail Outlook à un groupe de personne

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.

Par contre si je ferme mon classeur et le réouvre apres chaque envoie je n'ai plus se problème d'ajout des premiers destinataire. Je pense que cela vient de .Item.Recipients.Add.qui ajoute a chaque fois un destinataire de plus alors que je pensé qu’après avoir envoyé le mail je repartirais sur un nouveau mail avec la ligne destinataire vierge!!

Voici mon code a répéter pour groupe2 groupe3 etc

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 ("TestMail")    'groupe denvoie
      .Item.Subject = "Retourx"
      .Item.display
'     .Item.Send

   End With
End Sub

Bonjour,

il faut supprimer tous les .Item.Recipients avant d'en ajouter

Essaie d'ajouter :

        For cp = .Item.Recipients.Count To 1 Step -1
        .Item.Recipients(cp).Delete
        Next cp

il faudra peut-être régler le code un poil ! (je ne peux pas le tester)

Super Steelson,

Je te remercie pour ton aide.

Le code marche sans avoir besoin de le modifier.

Je pense que ton aide va en aider d'autre car impossible de trouver des infos sur l'envoi d'un mail par "le groupe de personne" outlook!!!

Merci pour ce retour

C'était du "pif", mais je savais quelle direction prendre !