Macro excel envoi mail PJ et corps de texte

Bonjour,

Je cherche à envoyer un mail avec une pièce jointe ainsi qu'un texte dans le corps du mail et des personnes en copie.

J'ai parcouru des forums mais ma recherche n'a pas été très concluante.

Voici où j'en suis pour le moment :

Sub Envoi_Mail()
Workbooks("SUIVI HEBDO DES CA DO 2012 DIFFUS.xlsm").SendMail _
Recipients:=Array(Sheets("MOIS").Range("M18").Value, _
Sheets("MOIS").Range("M19").Value, _
Sheets("MOIS").Range("M20").Value, _
Sheets("MOIS").Range("M21").Value, _
Sheets("MOIS").Range("M22").Value, _
Sheets("MOIS").Range("M23").Value, _
Sheets("MOIS").Range("M24").Value, _
Sheets("MOIS").Range("M25").Value, _
Sheets("MOIS").Range("M26").Value), _
Subject:=Sheets("MOIS").Range("M16").Value, _
ReturnReceipt:=False
End Sub

Quelqu'un aurait-il une idée ?

Merci à vous