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
Anor
Bonjour,

Envoie-toi un mail en html avec les images incorporées.
Appuye sur CTRL+F2

Tout l'encodage de ton image y figure.
Même plus besoin de fichiers !!

--
à+
Arnaud
-------------------------------------------
Conseils d'utilisation, sites recommandés :
http://users.skynet.be/mpfa/
petit à petit, www.anor.fr.st fait son nid
-------------------------------------------


| 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