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

Titof06 · 10 Juin 2020

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 · 10 Juin 2020

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!!

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

_Thierry · 10 Juin 2020

Bonjour @Titof06 , le Forum

Je te conseille cet article de msdn :
https://social.msdn.microsoft.com/F...-images-with-cdo-mail-in-excel?forum=exceldev

Bonne journée
@+Thierry

AH Bonjour Patrick, oui c'est bien ce que dit l'article pour AddRelatedBodyPart

Titof06 · 10 Juin 2020

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 · 10 Juin 2020

re
la réponse on te la donné

Titof06 · 10 Juin 2020

Bonjour patricktoulon,

Merci pour cette réponse très rapide.

je viens de répondre à Thierry, ci-dessus.

Bonne journée,

Titof06

_Thierry · 10 Juin 2020

Re Bonjour
Que ce soit Patrick ou moi on te donne la même piste pour CDO et AddRelatedBodyPart .
Patrick t'a même mâché le travail pour d'éviter de lire tout l'artcle de MSDN

Et encore un autre lien Microsoft :
https://docs.microsoft.com/en-us/pr...e-10/ms526569(v=exchg.10)?redirectedfrom=MSDN

Bonne journée
@+Thierry

patricktoulon · 10 Juin 2020

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 · 10 Juin 2020

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 · 18 Juin 2020

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

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

Titof06

XLDnaute Junior

patricktoulon

XLDnaute Barbatruc

_Thierry

XLDnaute Barbatruc

Titof06

XLDnaute Junior

patricktoulon

XLDnaute Barbatruc

Titof06

XLDnaute Junior

_Thierry

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Titof06

XLDnaute Junior

Titof06

XLDnaute Junior

Discussions similaires