Macro excel envoi mail PJ et corps de texte

Version imprimable

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:

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

22/02/2012, 18h56
Daniel.C

Bonjour,

Quel est ton client de messagerie ? (Outlook par exemple.)

Bonjour Daniel.C,

Je passe par outlook.

En continuant de chercher, je suis arrivé à ce résultat :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 Private Sub Command1_Click() Dim OutlookApp As New Outlook.Application Dim NewMail As Outlook.MailItem Set NewMail = OutlookApp.CreateItem(olMailItem) 'Liste des destinataires NewMail.Recipients.Add (Sheets("MOIS").Range("M18").Value) NewMail.Recipients.Add (Sheets("MOIS").Range("M19").Value) 'Sujet : NewMail.Subject = "sujet" 'Corps du mail : NewMail.Body = "Bonjour," & vbCrLf _ & vbCrLf _ & "Vous trouverez ci joint le " & Sheets("MOIS").Range("M16").Value & vbCrLf _ & vbCrLf _ & "Cordialement" & vbCrLf _ & vbCrLf & vbCrLf _ & "pseudo" NewMail.Attachments.Add ActiveWorkbook 'Envoi : NewMail.Send End Sub
Par contre je recontre deux problèmes dont un plus embetant que l'autre !

Probleme n° 1 : sur la ligne NewMail.Attachements.Add, je ne peux mettre qu'un chemin, mon Active Workbook ne fonctionne pas, comment faire (en effet mon fichier change de nom a chaque utilisation ?

Probleme n°2 : Comment mettre des adresses en copie ?

Merci de ton aide en tout cas !

Bonjour,

Essaie :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Private Sub Command1_Click()
 
    Dim OutlookApp As New Outlook.Application
    Dim NewMail    As Outlook.MailItem
 
    Set NewMail = OutlookApp.CreateItem(olMailItem)
 
    'Liste des destinataires
    With NewMail
       .Recipients.Add (Sheets("MOIS").Range("M18").Value)
       .Recipients.Add (Sheets("MOIS").Range("M19").Value)
 
       'Sujet :
       .Subject = "sujet"
       'Copies
       .CC = "test@test.com;test1@test.com"
 
       'Corps du mail :
       .Body = "Bonjour," & vbCrLf _
       & vbCrLf _
       & "Vous trouverez ci joint le  " & Sheets("MOIS").Range("M16").Value & vbCrLf _
       & vbCrLf _
       & "Cordialement" & vbCrLf _
       & vbCrLf & vbCrLf _
       & "pseudo"
 
       .Attachments.Add ActiveWorkbook.FullName
       .Display
       'Envoi :
       .Send
 End With
End Sub

23/02/2012, 18h05
guillaume660

Merci Daniel.C !!!

Ca fonctionne impécablement, 2 problèmes résolu en un post et en plus l'utilisation de With/End With qui synthétise vraiment le tout !

Merci encore !

Ps : comment puis dire que mon problème est résolu ?

Merci
23/02/2012, 18h08
guillaume660

une dernière question si tu le permets, comment mettre plusieurs personnes en copie avec des chemins du type sheets("jk").range("hj").value ?

faut-il dupliquer la ligne comme avec Recipients ?
23/02/2012, 18h29
Daniel.C

Citation:

Ps : comment puis dire que mon problème est résolu ?

Ça doit se trouver en bas à droite mais je ne pose pas souvent de questions aussi je ne peux pas te dire plus précisément.

Citation:

comment mettre plusieurs personnes en copie avec des chemins du type sheets("jk").range("hj").value

Code:

.CC = sheets("jk").range("hj").value & ";" & sheets("jk").range("A1").value

etc.
24/02/2012, 08h36
guillaume660

Merci beaucoup Daniel. C !!

Ca fontionne parfaitement !