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

[Roland_M]

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]

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]

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

 

[Roland_M]

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

 

[patricktoulon]

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

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]

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

 

[patricktoulon]

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]

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]

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