Discussion :

[mael94420]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mael94420]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

<%=message%>

et l'erreur est la suivante :

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

[cyrill.gremaud]

essaie de torienté niveau Xml

[mael94420]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

++

[cyrill.gremaud]

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

[mael94420]

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

[Immobilis]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[mael94420]

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

Merci beaucoup c fort sympathique

++