-
script aspemail
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"
%>
-
Bonjour,
Essaies sans le "=" :
-
Ok pour le "="
Apparement le mesg d'erreur est disparu mais un 2éme est là :
Je pense le script n'est pas correct pour l'aspemail
@+
Erreur d'exécution Microsoft VBScript error '800a01b6'
[FONT=Arial]Cet objet ne gère pas cette propriété ou cette méthode: 'Mail.Subject'[/FONT]
/mpteem/pagacc/ajouter.asp, line 21
-
Cela doit être le même problème, tu as essayer ?
Sinon, ce que tu fais, tu fais une base Access rapide, tu crées un objet Aspemail, tu pourrais voir tous les méthodes ou propriétés qui existent