Discussion :

[Rodrigue.L]

Bonjour à tous,

Besoin:
A partir d'une application externe, pouvoir envoyer un email avec photo en pièce jointe qui est utilisées dans le corps d'un message HTML(avec une résolution différente) ET que cette photo soit visible comme pièce jointe et donc enregistrable par l'utilisateur final.

Problème:
La pièce jointe dans l'email n'est plus visible alors qu'elle s'affiche bien dans le corps de l'email.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub test3()
 
Set objOL = CreateObject("Outlook.Application")
Set objMail = objOL.CreateItem(olMailItem)
objMail.Attachments.Add "C:\email html\PHOTO_10313_1.jpg"
objMail.HTMLBody = "<img src=cid:PHOTO_10313_1.jpg>"
objMail.Display
 
End Sub

Solution trouvée MAIS non convenable:
Attaché 2 fois la photo à l'email: la première servira pour la photo du corps du message HTML et la deuxième pour que l'utilisateur puisse l'enregistrer sous sa résolution d'origine.

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 test2()
 
Dim objApp As Outlook.Application
Dim Msg As MailItem
Dim colAttach As Outlook.Attachments
Dim Attach As Outlook.Attachment
Dim Attach1 As Outlook.Attachment
 
Set objApp = CreateObject("Outlook.Application")
Set Msg = objApp.CreateItem(olMailItem)
Set colAttach = Msg.Attachments
 
Set Attach = colAttach.Add("c:\email html\PHOTO_10313_1.jpg")
Set Attach1 = colAttach.Add("c:\email html\PHOTO_10313_1.jpg")
 
Msg.HTMLBody = "<IMG align=baseline border=0 hspace=0 src=cid:PHOTO_10313_1.jpg>"
 
Msg.Close (olSave)
Msg.Display
 
Set Msg = Nothing
Set colAttach = Nothing
Set Attach = Nothing
Set Attach1 = Nothing
 
End Sub

Après de nombreuses recherches sur internet, je n'ai pas trouvé mon bonheur.
Y a t il une information que j'ai oublié? un paramètre?
J'ai fait quelques recherches sur Content-Type et Content-Description, sans trouvé ce que je souhaité.

Je viens donc vers vous, afin de trouver une solution.

D'avance merci.

[mhubaut]

Bonjour à tous,

Besoin:
A partir d'une application externe, pouvoir envoyer un email avec photo en pièce jointe qui est utilisées dans le corps d'un message HTML(avec une résolution différente) ET que cette photo soit visible comme pièce jointe et donc enregistrable par l'utilisateur final.

Solution trouvée MAIS non convenable:
Attaché 2 fois la photo à l'email: la première servira pour la photo du corps du message HTML et la deuxième pour que l'utilisateur puisse l'enregistrer sous sa résolution d'origine.

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 test2()
 
Dim objApp As Outlook.Application
Dim Msg As MailItem
Dim colAttach As Outlook.Attachments
Dim Attach As Outlook.Attachment
Dim Attach1 As Outlook.Attachment
 
Set objApp = CreateObject("Outlook.Application")
Set Msg = objApp.CreateItem(olMailItem)
Set colAttach = Msg.Attachments
 
Set Attach = colAttach.Add("c:\email html\PHOTO_10313_1.jpg")
Set Attach1 = colAttach.Add("c:\email html\PHOTO_10313_1.jpg")
 
Msg.HTMLBody = "<IMG align=baseline border=0 hspace=0 src=cid:PHOTO_10313_1.jpg>"
 
Msg.Close (olSave)
Msg.Display
 
Set Msg = Nothing
Set colAttach = Nothing
Set Attach = Nothing
Set Attach1 = Nothing
 
End Sub

Après de nombreuses recherches sur internet, je n'ai pas trouvé mon bonheur.
Y a t il une information que j'ai oublié? un paramètre?
J'ai fait quelques recherches sur Content-Type et Content-Description, sans trouvé ce que je souhaité.

Je viens donc vers vous, afin de trouver une solution.

D'avance merci.

Suffit de preciser les dimensions de retaille
ex
Msg.HTMLBody = "<IMG align=baseline border=0 hspace=0 height= 110 width = 175 src=cidHOTO_10313_1.jpg>"
test fait avec delphi6 et outlook 2013

bonne programmation