Integration d'une page html dans un mail

salut a tous
J'ai resolu mon probleme qui était d'envoyer un mail a plusieur personne en une foi avec leur numero d'acces differents pour chaque personne.
Mon probleme maintenant est de lire dans une page htm. je mexplique

J'utilise pour envoyer un mail ce script :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

<% set LiaisonBD = server.CreateObject("ADODB.Connection") LiaisonBD.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & """" & Server.MapPath("mail.mdb") & """" Dim objRS Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open "utilisateurs", LiaisonBD, , , adCmdTable %> <% do while not objRS.EOF ' Response.Write "Numero : " & objRS("id") & "<br>" ' Response.Write "NOM : " & objRS("nom") & "<br>" ' session("nom") = objRS("nom") ' Response.Write "Mail : " & objRS("mail") & "<br><hr>" session("mail") = objRS("mail")   Dim objCDOMail Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = "Capemploi@capbonneuil.com" objCDOMail.To=session("mail") objCDOMail.Subject="Vos code d'acces"   corps="Bonjour," corps=corps & objRS("nom")&VbCrLf&"Pour acceder à votre compte,"&VbCrLf corps=corps & "http://www.capbonneuil.com/Cap_pour_emploi_page s_site/espace_employeurs.asp" corps=corps & VbCrLf&VbCrLf corps=corps & "utilisez les codes suivants :"&VbCrLf&VbCrLf corps=corps & "Code d'acces : " & objRS("id")& VbCrLf   corps=corps &"Mot de passe : " & objRS("mail")& VbCrLf   objCDOMail.Body=corps   objCDOMail.Send Set objCDOMail=Nothing   objRS.MoveNext Loop objRS.Close Set objRS = Nothing %>

---

J'arrive donc a envoyer ce que je souhaite et je doit maintenant mettre dans le corps un page html independante en plus du corp qui est deja ici.
Comment puis-je faire sil vous plait
merci beacoup

en fait j ai bien une solution mais j'ai quand meme besoin d'aide
car j'ai un script asp Javascript que je voudrais traduire en ASP vbscript mais je n'y arrive pas

Code:

---

1 2 3 4 5 6 7 8

fileName="corps.htm" var fso = Server.CreateObject("Scripting.FileSystemObject") var fH = fso.OpenTextFile(Server.mappath(fileName),1) while (!fH.AtEndOfStream) { message+=fH.Readline()+"<br>" }

---

pour testé apres ma pseudo tradiction, j'ai fait

Code:

---

<%=message%>

---

et l'erreur est la suivante :

Citation:

---

Object doesn't support this property or method: 'fso'

---

essaie de torienté niveau Xml

J'ai trouver la reponse
pour ceux que ca peut interresser :

Code:

---

1 2 3 4 5 6 7

Set FSO = Server.CreateObject("Scripting.FileSystemObject") dir = Server.MapPath(".") fhtm=dir & "\promotion.htm" if FSO.fileExists(fhtm) then set lecture = FSO.openTextFile(fhtm,1,false) promotion=lecture.readAll end if

---

Cyrill : C'est ta reponse universel le XML??? lol

++

lol c'est vrai que c'est la deuxipme fois auj ! lol mais voila quoi ! moi je le ferai comme sa

suite a ca, j ai un nouveau probleme.

Je reçoit le mail comme il se doit a l'exeption que le code HTML n'est pas interprété a la reception de celui ci

je lit sur mon mail le code source de la page html et ca c bof bof

Salut

Code:

---

1 2 3 4

' Pour envoyer un mail au format HTML, ajouter ces 2 lignes : ' Pour laisser le mail en format PlainText, mettez des 1 pour ces 2 lignes objCDOMail.BodyFormat = 0 objCDOMail.MailFormat = 0

---

A+

ah wai ok je ne savais pas a quoi ca correspondais c numero

Merci beaucoup c fort sympathique

++