Forum

objCDOSYSCon - Από {nikoss}

exo ton ekseis kodika ::::

Dim strEmail
strEmail = rsGetPassword("email")

htmlBody = "You have requested to have your password sent to because it was lost.

"
htmlBody = htmlBody & "Your Password is: '" & rsGetPassword("password") & "'"


'Dimension variables
Dim objCDOSYSCon
'Create the e-mail server object
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
'Set and update fields properties
'Out going SMTP server
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "nextelrepair.com"
'SMTP port
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
'CDO Port
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Timeout
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objCDOSYSCon.Fields.Update

'Update the CDOSYS Configuration
Set objCDOSYSMail.Configuration = objCDOSYSCon
'Who the e-mail is from
objCDOSYSMail.From = rsGetEmail("siteemail")
'Who the e-mail is sent to
objCDOSYSMail.To = rsGetPassword("email")
'The subject of the e-mail
objCDOSYSMail.Subject = "Lost Password"
'Set the e-mail body format (HTMLBody=HTML TextBody=Plain)
objCDOSYSMail.HTMLBody = htmlBody
'Send the e-mail
objCDOSYSMail.Send
'Close the server mail object
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing

Set rsGetPassword = Nothing
Set rsGetEmail = Nothing
Set adoCon = Nothing

Response.Redirect"password.asp?mode=email"


End If

kai perno mhnhma lathous aftp
CDO.Message.1 error '80040213'

The transport failed to connect to the server.

/explorer/loginscr/password.asp, line 123
ti exo lathos

Απάντηση από:agrippas

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "nextelrepair.com"

>> Αυτός είναι ο mail server; Περίεργο. Μήπως είναι mail.nextelrepair.com ή smtp.nextelrepair.com;

Απάντηση από:nikoss

oxi den emei mail mprosta to xreiseimopoio kai se alla asp comatia.
tha mporousa thn idia doulia se kodia alla anti gia objCDOSYS na xreisimopoioso CDONTS

Απάντηση από:Alex

Μα το error εξηγεί πως το λάθος είναι εδώ
explorer/loginscr/password.asp, line 123
τι υπάρχει στην γραμμή 123 του password.asp

αν πάλι προσπαθείς την αποστολή από το PC σου πιθανόν να μην το επιτρέπει ο mail server και να δουλέψει όταν το ανεβάσεις στο web.

Απάντηση από:nikoss

apo oti katalava kai eida kai merika articles sto internet to CDONTSYS den doulevei me WinXP Pro
epomenos prepei na to allakso to componet me allo ops ASPMAIL h cdonts

Απάντηση από:nikoss

DOULEPSE telika otan to alaksa se cdonts:

Dim strEmail
strEmail = rsGetPassword("email")

MyBody = "You have requested to have your password sent to because it was lost.<br><br>"
MyBody = htmlBody & "Your Password is: '" & rsGetPassword("password") & "'"


Set mailing= Server.CreateObject("CDONTS.NewMail")

'Who the e-mail is from
mailing.From = rsGetEmail("siteemail")
'Who the e-mail is sent to
mailing.To = rsGetPassword("email")
'The subject of the e-mail
mailing.Subject = "Lost Password"
'Set the e-mail body format (HTMLBody=HTML TextBody=Plain)
mailing.Body= MyBody
'Send the e-mail
mailing.Send
set mailing=nothing


Set rsGetPassword = Nothing
Set rsGetEmail = Nothing
Set adjCon = Nothing

Response.Redirect"password.asp?mode=email"


End If