XL 2013 CDO Message - Photo dans le corps du mail qui ne part pas.

Titof06

XLDnaute Junior
Bonjour,

Dans ma société, je ne peux plus utiliser Outlook et je dois utiliser Gmail.

Je cherche à mettre une photo dans le corps du message en utilisant la fonction (CDO.Message).

J'ai ce code :

.HTMLBody = "<html>Voici mon image<br><img src='C:\mon_image.jpg'></html>"
idem avec la fonction "cid:"

pour information, mon image pèse 200ko.

Le mail par mail j'ai une petite photo avec rien dedans.

Cela fonctionne bien si je la mets en pièce jointe avec : ;AddAttachment "C:\mon_image.jpg"

Par avance, Merci

Bonne Journée :)

Titof06
 

patricktoulon

XLDnaute Barbatruc
Bonjour c'est tout a fait normal que ca ne fonctionne pas
tu peux pas mettre un lien vers ton disque dur dans un email voyons!! :p :p

il te faut ajouter l'image non pas en attachement mais en AddRelatedBodyPart

VB:
with cdomail
'......
'.....
.HTMLBody = "<html>Voici mon image<br><img src='balloon.bmp'></html>"

Set objBP = .AddRelatedBodyPart("C:\mon_image.jpg","balloon.bmp", 1)
        objBP.Fields.Item("urn:schemas:mailheader:Content-ID") = "<balloon.bmp>"
        objBP.Fields.Update


end with

après avec gmail vois si la config et mdp sont bien renseignés
 

Titof06

XLDnaute Junior
Bonjour Thierry,

Merci pour cette réponse très rapide.

La config est bonne, car si je mets du texte en ".Body" cela fonctionne.
Ce que je souhaite, c'est mettre la photo dans le corps du message.
Avec Outlook cela fonctionnait parfaitement, mais là je ne trouve pas de solution.
Et je ne souhaite pas qu'elle soit en pièce jointe.

Bonne journée,

Titof06 :)
 

patricktoulon

XLDnaute Barbatruc
bonjour Thierry
oui j'ai utiliser cdo pendant tres longtemps et je l'utilise encore car outlook 2007 ne fonctionnait pas

mais attention avec gmail il faut aller dans ses paramètre pour autoriser les application tiers à l'utiliser
je sais plus mais ça se règle dans le googleaccount
 

Titof06

XLDnaute Junior
Bonjour tous les 2,

Encore Merci pour votre réactivité.

Oui dans mon compte Gmail, j'ai bien autoriser les applications moins sécurisées à être exécutée.

Mon problème reste identique.

Je souhaite réellement mettre une photo dans le corps du mail comme j'avais avant avec Outlook.

Si cela est possible, je veux bien essayer Thnuderbird ou une autre messagerie gratuite, mais laquelle et comment.

Bonne journée à tous les 2,

Titof06
 

Titof06

XLDnaute Junior
Bonjour Patricktoulon,

Désolé, de cette réponse tardive, mais je n'ai pas eu le temps d'essayer avant.

Je te tiens à te remercier, même un SUPER GRAND MERCI !

Car avec ton code ci-dessous, cela fonctionne à merveille !

.HTMLBody = "<html>Voici mon image<br><img src='balloon.bmp'></html>"

Set objBP = .AddRelatedBodyPart("C:\mon_image.jpg","balloon.bmp", 1)
objBP.Fields.Item("urn:schemas:mailheader:Content-ID") = "<balloon.bmp>"
objBP.Fields.Update


Je l'ai adapté à mes besoins, c'est génial, tu es génial !

Encore un immense MERCI ! :)

Je vais quelque fois à St Cyr Les Lecques, c'est juste après Toulon.
Superbe plage et lieux pour décompresser !

Bonne Journée,

Titof06
 

Discussions similaires

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
315 097
Messages
2 116 186
Membres
112 679
dernier inscrit
Yupanki