ajouter du texte dans le corps d'un mail

[Coco-31]

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("D1😀7")
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

 

[JNP]

Re : ajouter du texte dans le corps d'un mail

Bonsoir Coco-31 🙂,
La méthode SendMail ne permet que de paramétrer les destinataires, l'objet et l'accusé de réception 🙄.
Pour avoir un corps de message, il va te falloir utiliser OutLook ou CDO (pleins d'exemples sur le forum).
Bon courage 😎

 

[Coco-31]

Re : ajouter du texte dans le corps d'un mail

Bonsoir JNP,

tu confirmes bien mes doutes, dommage le code est bien plus court que CDO

Merci pour ta réponse