Sent Email Using VbScript
Posted on 2004-11-24
I had no idea what is going on with my CDONTS
The code below is should be find, but somehow when ever user try to retrieve there password, the server won't sent out the email until I restart the computer.
My cdonts version 6.0.3939.0
email = request.form("email")
'chooses username and password from database that correspond to submitted email address.
user = objrs.Fields("username")
pass = objrs.Fields("password")
Set sendmail = Server.CreateObject("CDONTS.NewMail")
'put the webmaster address here
sendmail.From = "email@example.com"
'The mail is sent to the address entered in the previous page.
sendmail.To = email
'Enter the subject of your mail here
sendmail.Subject = "The Login Information You Requested"
'This is the content of thr message.
sendmail.Body = "The login Information you requested." & vbCrlf & vbCrlf _
& "Username=" & user & vbCrlf _
& "Password=" & pass & vbCrlf
'this sets mail priority.... 0=low 1=normal 2=high
sendmail.Importance = 2