Autres Envoi Mail (méthode CDO) avec image incorporée dans le corps du message !?

Roland_M · 2 Décembre 2019

Bonsoir tout le monde,

J'ai créé un classeur pour envoi Email avec la méthode CDO (vous l'avez peut être déjà vu)

mon problème est le suivant:
le message est créé en code html, je ne suis pas spécialiste, mais en glanant qq infos on finit par arriver à ses fins
le message est donc collé avec .HTMLBody, jusque là ok !

j'étudie pour coller une image dans le corps du message, ça fonctionne bien mais . . . et là est mon problème,
cette image collée dans le corps du message n'est présente que si elle reste sur le disque ou si elle est placée sur un site spécialisé pour ça !
je me suis envoyé ce mail et quand je charge mes messages je la retrouve à condition qu'elle soit toujours présente sur le disque
et si je vais sur ma messagerie(orange) il n'y a pas d'image, donc elle n'est pas réellement incorporée !?

exemple qui fonctionne:
PathImage$ = "E:\TRAV_VBA\Imag_Actu.bmp"
. . .
MsgHTMLBody = MsgHTMLBody & RetLigHTML
MsgHTMLBody = MsgHTMLBody & "<img src=" & PathImage$ & ">" & RetLigHTML
. . .

j'aimerai comprendre pourquoi, une fois l'Email envoyé, l'image n'est plus dans le message
alors que si je charge mes messages elle apparaît dans le message tant que cette image est sur mon disque !?
apparemment elle n'est pas incorporée mais c'est simplement une adresse !?
j'en conclu que l'on ne peut pas envoyer ce genre de mail avec une image à d'autres puisqu'il ne la recevra pas !?

quelle est la solution pour incorporer cette image réellement dans le message tout comme du texte ?

merci beaucoup d'avance !

patricktoulon · 3 Décembre 2019

si ca fonctionne avec tout les mails smtp serveur

pour emetteur gmail il faut le port,user,password

dans mon exemple il me semble pas avoir laisser le port dans la config des field

si tu utilise le smtp de ton FAI (Fournisseur d'Acces Internet)TU NA pas besoins d'authentification
par exemple moi c'est smtp.free.fr

Roland_M · 3 Décembre 2019

oui c'est ok avec mon FAI orange sans authentification !

Roland_M · 3 Décembre 2019

ce qui me parait bizarre c'est qu'il n'y a pas le No port server ?

patricktoulon · 3 Décembre 2019

re

avec LE SMTP fai c'est 25 automatiquement je crois (il me semble) c'est vieux tout ca I

si tu utilise gmail ou un autre demandant authentification tous les items doivent être renseignés

VB:

With oEmail.Configuration.Fields
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTP
        '.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic
        '.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = strUser
        '.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = strPassword
        '.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = "true"
        '.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ' ou celui qui correspond 
       .Update
    End With

Roland_M · 3 Décembre 2019

c'est ce que j'ai fait !
le port auto c'est effectivement 25 !

patricktoulon · 3 Décembre 2019

tu sais tout
je ferait un petit wysiwyg pour xldownload pour ceux qui utilisent cdo
en ce moment beaucoup de boulot je n'ai qu'un peu le soir quand je suis pas mort de fatigue
ca va se calmer milieu de semaine prochaine

Roland_M · 3 Décembre 2019

oh non je sais pas tout !? sinon je n'aurais pas besoin de toi par exemple !

bon ok on fait comme ça !
bonne nuit et à plus !

Roland_M · 3 Décembre 2019

j'oubliais, les classeurs que j'ai mis sur le forum sont là !

https://www.excel-downloads.com/thr...vec-ou-sans-piece-jointe.216747/#post-1366097

Autres Envoi Mail (méthode CDO) avec image incorporée dans le corps du message !?

Roland_M

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Roland_M

XLDnaute Barbatruc

Roland_M

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Roland_M

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Roland_M

XLDnaute Barbatruc

Roland_M

XLDnaute Barbatruc

Discussions similaires