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
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