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 :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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