salu a tous,
je suis en train de créer un mailing dont le contenu est une page html or cette page varie assez souvent. sachant que j'utilise objet_NewMail.Body qui récupère que du texte. comment puis je récupérer directement une page html??? voici le code:
<html>
<head>
<title>Untitled Document</title>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<form name="frm" method="post" action="">
<input type="submit" name="Submit" value="Envoyer">
<%
'Set Connect = Server.CreateObject("ADODB.Connection")
ConnectDBQ="DRIVER={Microsoft Access Driver (*.mdb)};"&"DBQ="&Server.MapPath(".")&"/inscription.mdb
"
Connect.Open ConnectDBQ
Set rs = Connect.Execute("SELECT * FROM inscrit") %>
<%
rs.movefirst
Do While Not rs.EOF
Dim objet_NewMail
Set objet_NewMail = CreateObject("CDONTS.NewMail")
Contenu = "" _
& "<html>" _
& "<head>" _
& "<title>Untitled Document</title>" _
& "<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>" _
& "</head>" _
& "<body bgcolor='#FFFFFF' text='#000000'>" _
&" page html "_
& "</body>" _
& "</html>"
objet_NewMail.From = "k22"
objet_NewMail.To = rs("AdresseMail")
'---envoie une copie de l'email, et cache l'adresse des autres destinataires---
'objet_NewMail.BCc = ""
objet_NewMail.Subject = "lettre d'informations essais2"
objet_NewMail.BodyFormat = 0
objet_NewMail.MailFormat = 0
objet_NewMail.Body = Contenu
objet_NewMail.Importance = 2
'objet_NewMail.AttachFile Server.MapPath("/arrakis.jpg"), "arrakis.jpg"
objet_NewMail.Send
Set objet_NewMail = Nothing
rs.MoveNext
Loop
Set rs=nothing
Connect.Close
set Connect=nothing
%>
</form>
</body>
</html>