Discussion :

[marccelestins]

j'ai un deux onglets feuil1 et feuil 2. la feuil 1 contient des données avec une colonne où j'ai des mails. j'ai ma feuil 2 qui contient le corps du texte avec plusieurs images à l'intérieur. Dans ma macro je lui dis de parcourir la feuil 2 dans la colonne A tu récupères le corps du message et tu envoi un mail à chaque destinataire. J'arrive à envoyer le mail mais les images ne sont pas présentes dans le corps du mail. voici le code. Merci d'avance si vous aviez des suggestions.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
33
Sub Mail(ByVal MailDestinataire As String, ByVal MailCC As String, ByVal Sujet As String, ByVal CorpsMessage As String, _
ByVal FichierJoint As String, Optional ByVal FichierJoint2 As String, Optional ByVal FichierJoint3 As String)
 
OnErrorGoToGerreur
 
DimolAsNewOutlook.Application
DimolmailAsMailItem
 
'envoie d'un e-mail
Set ol = NewOutlook.Application
Set olmail = ol.CreateItem(olMailItem)
With olmail
.To = MailDestinataire
      .CC = MailCC
.Subject = Sujet
.Body = CorpsMessage
 
If FichierJoint <> "" Then
.Attachments.Add FichierJoint
End If
If FichierJoint2 <> "" Then
.Attachments.Add FichierJoint2
End If
If FichierJoint3 <> "" Then
.Attachments.Add FichierJoint3
End If
 
.Display
 
 
.Send
 
EndWith

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Sub SendM()
 
Dim titre As String
Dim corpsM As String
Dim j As Integer
 
corpsM = ""
j = 2
While (j <= 100)
    corpsM = corpsM + Sheets("feuil2").Range("A" & j).Value
    corpsM = corpsM + vbCrLf
    j = j + 1
Wend
 
 
 
titre = "facture"
 
j = 2
While (j <= 1000)
    If Sheets("feuil1").Range("B" & j).Value <> "" Then
        Mail Sheets("feuil1").Range("B" & j).Value, "", titre, replaceString(corpsM, j), "", "", ""
    End If
    j = j + 1
Wend
 
End Sub

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Sub Mail(ByVal MailDestinataire As String, ByVal MailCC As String, ByVal Sujet As String, ByVal CorpsMessage As String, Optional ByVal Pj As String, Optional ByVal Image As String)
Dim ol As New Outlook.Application, olmail As MailItem, I As Integer, Attachement
'envoie d'un e-mail
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
With olmail
    .To = MailDestinataire
    .CC = MailCC
    .Subject = Sujet
    .BodyHtml = CorpsMessage
    Attachement = Split(Pj & ";", ";")
    For I = 0 To UBound(Attachement)
       If Trim("" & Attachement(I)) <> "" Then .Attachments.Add Attachement(I)
    Next
    Attachement = Split(Image & ";", ";")
    For I = 0 To UBound(Attachement)
       If Trim("" & Attachement(I)) <> "" Then .Attachments.Add Attachement(I)
    Next
    .Display
    .Send
End With
End Sub
 
Sub test()
 Mail Sheets("feuil1").Range("B" & j).Value, "", titre, "<img src=""cid:Img1.gif""><img src=""cid:Img12.gif"">", "Fichier1;Fichier2;Fichier3;Fichier4;Fichier5;Fichier1;Fichier6", "Image1.gif;Image2.jif"
End Sub

[marccelestins]

Bonjour,

Merci de m'avoir repondu. C'est gentille de ta part mais j'aimerais bien comprendre le code. le sub test est ce qu'il faut que je rajoute à mon code sub send ou il faut juste remplacer la ligne de code du sub test dans mon sub send ?

[Invité]

c'est presque le même sauf que je concatène les pièce jointes séparé par un ;:

je me rends comte la propriété image tu n'en as pas besoin, et que en réalité ton code est presque bon, saut que tu envois en texte et pas en html!

Code Sub SendM :

Sélectionner tout - Visualiser dans une fenêtre à part

"<img src=""cid:Img1.gif""><img src=""cid:Img12.gif"">"

Code Sub Mail :

Sélectionner tout - Visualiser dans une fenêtre à part

.BodyHtml = CorpsMessage

[marccelestins]

merci, donc en rajoutant .htmlbody mon code qui consiste à récupérer les valeurs contenues dans la feuil2 même avec les images apparaitront dans le corps du mail?

[Invité]

Oui et non!

Il faut écrire ton message au format Html pas en texte pour lui insérer les image.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"Ceci est mon message <br>Première image:<img src=""cid:Img1.gif""><br>deuxième image:<img src=""cid:Img12.gif"">"

et joindre les images en pièces jointes!