Insertion d'images dans un mail

Version imprimable

Le forum bonjour
J'ai un code, qui fonctionne très bien, pour insérer une image dans le coprs d'un mail. Malheureusement, lorsque j'essaye d'en mettre une deuxième, cela ne fonctionne pas. J'ai doublé les instructions pour la deuxième, mais il n'y a que la première image qui apparaisse.
Voici le code

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
Set objApp = CreateObject("Outlook.Application")
Set objApp2 = CreateObject("Outlook.Application")
 
Set l_Msg = objApp.CreateItem(olMailItem)
Set l_Msg2 = objApp2.CreateItem(olMailItem)
 
Set colAttach = l_Msg.Attachments
Set colAttach2 = l_Msg2.Attachments
 
If Image_OK = "Oui" Then
Set l_Attach = colAttach.Add("d:\Temp\Fichier.gif")
End If
If Image_OK <> "Oui" Then
Set l_Attach = colAttach.Add(" ")
End If
 
l_Attach2 = colAttach2.Add("V:\DPDI\GFL\SCG-CHQ\PEXTRAIT\BASES EXCEL\BASE INCIDENTS\icone SG.jpg")
l_Msg.Close olSave
l_Msg2.Close olSave
 
strEntryID = l_Msg.EntryID
strEntryID2 = l_Msg2.EntryID
 
Set l_Msg = Nothing
Set l_Msg2 = Nothing
 
Set colAttach = Nothing
Set colAttach2 = Nothing
 
Set l_Attach = Nothing
Set l_Attach2 = Nothing
 
On Error Resume Next
Set oSession = CreateObject("MAPI.Session")
Set oSession2 = CreateObject("MAPI.Session")
 
oSession.Logon "", "", False, False
oSession2.Logon "", "", False, False
 
Set oMsg = oSession.GetMessage(strEntryID)
Set oMsg2 = oSession2.GetMessage(strEntryID2)
 
Set oAttachs = oMsg.Attachments
Set oAttachs2 = oMsg2.Attachments
 
Set oAttach = oAttachs.Item(1)
Set oAttach2 = oAttachs.Item(1)
 
Set colFields = oAttach.Fields
Set colFields2 = oAttach2.Fields
 
Set oField = colFields.Add(CdoPR_ATTACH_MIME_TAG, "image/jpeg")
Set oField2 = colFields2.Add(CdoPR_ATTACH_MIME_TAG, "image/jpeg")
 
Set oField = colFields.Add(&H3712001E, "myident")
Set oField2 = colFields2.Add(&H3712001E, "myident2")
 
oMsg.Fields.Add "{0820060000000000C000000000000046}0x8514", 11, True
oMsg2.Fields2.Add "{0820060000000000C000000000000046}0x8514", 11, True
 
oMsg.Update
oMsg2.Update
 
Set l_Msg = objApp.GetNamespace("MAPI").GetItemFromID(strEntryID)
Set l_Msg2 = objApp.GetNamespace("MAPI").GetItemFromID(strEntryID2)
 
strHtml = strHtml & "<IMG align=baseline border=0 hspace=0 src=cid:myident>"
strHtml = strHtml & "<IMG align=baseline border=0 hspace=0 src=cid:myident2>"
etc...
l_Msg.HtmlBody = strHtml
l_Msg.Close (olSave)
l_Msg.display

Quelqu'un saurait-il d'où peut provenir le problème ?

Merci d'avance.

14/09/2012, 22h34
AlainTech

Bonjour,

Si tu veux mettre 2 images dans un mail, inutile de créer 2 applications, 2 mails, 2 collections des attachments...

Je continue?

Bonjour

Merci de ta réponse.

Si je comprends bien :
Code:

1 2 Set l_Attach = colAttach.Add("d:\Temp\Fichier.gif") Set l_Attach = colAttach.Add("V:\DPDI\GFL\SCG-CHQ\PEXTRAIT\BASES EXCEL\BASE INCIDENTS\icone SG.jpg")
doit suffire.

Est-ce cela ?

15/09/2012, 10h20
AlainTech
As-tu testé avant de poser la question?

Si tu n'as plus besoin de te référer aux objets attachments, tu n'as pas besoin de la variable l_Attach.
Code:

1 2 colAttach.Add("d:\Temp\Fichier.gif") colAttach.Add("V:\DPDI\GFL\SCG-CHQ\PEXTRAIT\BASES EXCEL\BASE INCIDENTS\icone SG.jpg")
devrait suffire.
16/09/2012, 12h45
patricktoulon

heu

Bonjour

Je n'en suis pas sûr, mais pour insérer une image dans un mail, il faut que le lien soit disponible. Or tes images sont sur ton disque dur et le destinataire n'y est pas connecté.

Encore une fois, je n'en suis pas sûr. Je n'utilise pas outlook par vba. Je préfère la méthode avec la librairie CDO, et pour les images je les dépose sur un compte perso en ligne et j'inscris le lien sur le mail.

Au plaisir
17/09/2012, 08h36
babybell

Merci Alain, effectivement, la vatiable l_Attach ne me sert à rien.
Néanmoins, lorsque je mets le code comme tu me l'as préconisé, ma première image se met bien dans le corps du mail, mais la deuxième se met en Pièce Jointe, ce qui ne me sert à rien.
Je ne vois pas quelle est instruction qui va me permettre de mette celle-ci où je veux dans mon mail.

ca y est, j'ai trouvé.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
colAttach.Add("d:\Temp\Fichier.gif")
colAttach.Add("V:\DPDI\GFL\SCG-CHQ\PEXTRAIT\BASES EXCEL\BASE INCIDENTS\icone SG.jpg")
Set oAttach = oAttachs.Item(1)
Set oAttach2 = oAttachs.Item(2)
Set colFields = oAttach.Fields
Set colFields2 = oAttach2.Fields
Set oField = colFields.Add(CdoPR_ATTACH_MIME_TAG, "image/jpeg")
Set oField2 = colFields2.Add(CdoPR_ATTACH2_MIME_TAG, "image/jpeg")
Set oField = colFields.Add(&H3712001E, "myident")
Set oField2 = colFields2.Add(&H3712001E, "myident2")
oMsg.Fields.Add "{0820060000000000C000000000000046}0x8514", 11, True
oMsg.Update
Set l_Msg = objApp.GetNamespace("MAPI").GetItemFromID(strEntryID)
strHtml = strHtml & "<IMG align=baseline border=0 hspace=0 src=cid:myident>"
strHtml = strHtml & "<br><br>" & "<IMG align=baseline border=0 hspace=0 src=cid:myident2>"

Ce n'est peut-être pas parfait, mais ça a le mérite de fonctionner.

Merci à vous.