OVH Cloud OVH Cloud

Envoi de mail au format HTML

1 réponse
Avatar
Bruno
J'ai un code qui permet d'envoyer des mails au format=20
HTML. Ceci pour afficher un bandeau et des images dans le=20
mail. Cependant, les images sont stock=E9es sur le disque=20
dur o=F9 je travaille. Le destinataire ne peut pas voir ces=20
images.

Est-ce que qqn a une id=E9e?

Voici le code:
With CreateObject("CDO.Message")
.From =3D "contact@ornicar.net"
.To =3D "machin@bidule.com"
.Subject =3D "sujet du mail"
=20
.HTMLBody =3D "<HTML>....</HTML>

On Error Resume Next
.Send
If Err Then MsgBox ("Le message n'a pas pu =20
etre envoy=E9")
On Error GoTo 0
End With

1 réponse

Avatar
François Picalausa
Bonjour/soir,

La première solution consiste à employe des adresses pointant vers un site
web comme http://www.monsuperbenomdedomaine.com/monimage.jpg

Sinon, employer MIME et evoyer le mail via winsock...
http://www.mhonarc.org/~ehood/MIME/MIME.html
http://faq.vb.free.fr/index.php?question=2
Via CDO, je ne sais pas si la même chose est possible mais en creusant...
;-)

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


Bruno wrote:
J'ai un code qui permet d'envoyer des mails au format
HTML. Ceci pour afficher un bandeau et des images dans le
mail. Cependant, les images sont stockées sur le disque
dur où je travaille. Le destinataire ne peut pas voir ces
images.

Est-ce que qqn a une idée?

Voici le code:
With CreateObject("CDO.Message")
.From = ""
.To = ""
.Subject = "sujet du mail"

.HTMLBody = "<HTML>....</HTML>

On Error Resume Next
.Send
If Err Then MsgBox ("Le message n'a pas pu
etre envoyé")
On Error GoTo 0
End With