bonjour,
Mon serveur utiliser CDONTS pour l'envoi de mail, et mon script était en fonction de ce composant. Mais CDONTS n'est plus utilisé par mon serveur. Il utilise à présent ASPEMAIL et bien sur je dois refaire le script et je n'y perd dans la mesure ou je suis pas le conscepteur du script. J'ai essayé de modifier certaines lignes mais ça marche pas malgré différents exmples que j'ai vu sur le net. j'ai un mesg d'erreur :
Erreur d'exécution Microsoft VBScript error '800a01b6'
Cet objet ne gère pas cette propriété ou cette méthode: 'Mail.AddAddress'
/mpteem/pagacc/ajouter.asp, line 21

Merci pour votre aide

(Le but du script ( ci dessous) est d'envoyer un mail à un expéditeur lorsque qu'il est ajouté dans une base de données. le login étant l'adresse mail de l'expéditeur)


<%
'*****************Modifier par administrateur**********************************
message="Bonjour<br>Vous avez demandé à recevoir vos revues par internet.<br>Voici vos identifiants de connexion afin de vous connecter à votre page personnelle.<br>Prochainement vous recevrez un courrier de bienvenue .<br>A bientot.<br>...<br>"
adrExp="non@domain.org"
sujet="nondusite : vos identifiants"
'******************************************************************************

'connection a la base access
Set Conn = Server.CreateObject("ADODB.Connection")
MdbChemin =Server.MapPath("../../base/mem.mdb")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbChemin & ";"
login=replace(Request.Form("nlogin"),"'","''")
pwd=replace(Request.Form("npwd"),"'","''")
nom=replace(Request.Form("nciv"),"'","''")
prenom=replace(Request.Form("nnomprenom"),"'","''")
conn.Execute("insert into login(login,pwd,nom,prenom) values ('" & login & "','" & pwd & "','" & nom & "','" & prenom & "')")


Set Mail = Server.CreateObject("Persits.MailSender")
Mail.From = adrExp
Mail.AddAddress = login
Mail.Subject = sujet
objet_NewMail.BodyFormat = 0
objet_NewMail.MailFormat = 0
Mail.Body = date & "<br>" & message & "<br>" & "Votre mot de passe est : " & pwd & "<br>" & "Votre login est : " & login

objet_NewMail.Importance = 0

objet_NewMail.Send
Set objet_NewMail = Nothing
Response.Redirect "haut.asp"
%>