Bonsoir,
J'ai trouvé dans les archives du forum ce code qui permet d'envoyer un mail à 7 destinataires dont les adresses sont en D1 à D7. Jusque là tout va bien mais je voudrais ajouter du texte dans le corps de message et je n'y arrive pas. peut être quelqu'un pourra me donner un coup de main et je le remercie.
Sub envoimail()
Dim adresse(1 To 7) 'Adresse de la ligne 1 à 10
Set malist = Sheets("Feuil1").Range("D17")
Count = 1
For Each Envoi In malist
If Len(Envoi) Then adresse(Count) = Envoi: Count = Count + 1
Next
Sheets("Feuil2").Copy
ActiveWorkbook.SendMail Recipients:=Array(adresse(1), adresse(2), _
adresse(3), adresse(4), adresse(5), adresse(6), adresse(7)), Subject:="Demande RHM " & Format(Date, "dd/mmm/yy")
ActiveWorkbook.Close False
End Sub
J'ai trouvé dans les archives du forum ce code qui permet d'envoyer un mail à 7 destinataires dont les adresses sont en D1 à D7. Jusque là tout va bien mais je voudrais ajouter du texte dans le corps de message et je n'y arrive pas. peut être quelqu'un pourra me donner un coup de main et je le remercie.
Sub envoimail()
Dim adresse(1 To 7) 'Adresse de la ligne 1 à 10
Set malist = Sheets("Feuil1").Range("D17")
Count = 1
For Each Envoi In malist
If Len(Envoi) Then adresse(Count) = Envoi: Count = Count + 1
Next
Sheets("Feuil2").Copy
ActiveWorkbook.SendMail Recipients:=Array(adresse(1), adresse(2), _
adresse(3), adresse(4), adresse(5), adresse(6), adresse(7)), Subject:="Demande RHM " & Format(Date, "dd/mmm/yy")
ActiveWorkbook.Close False
End Sub