plz help meee....with my email problem

Forum Moderators: open

Message Too Old, No Replies

plz help meee....with my email problem

popo

1:20 pm on Jun 30, 2004 (gmt 0)

i think its the problem is that the iis email is not defined
Error Type:
CDO.Message.1 (0x80040220)
The "SendUsing" configuration value is invalid.
/directory/passsend.asp, line 88
here is the script:
mail=passsend.fields("email").value
pass=passsend.fields("password").value
set mymail=createobject("cdo.message")
mymail.subject="your password in: www.example.com"
mymail.from="example@example.com"
mymail.to=mail
mymail.textbody="This is your password:" & pass
*line 88*mymail.send
response.write("password send.")
Ill be glad if someone could plz explain me how to define the iis e-mail i tried guides from google but they didnt help. thenks ahead for helpers =)

[edited by: Xoc at 2:32 pm (utc) on June 30, 2004]
[edit reason] domains made generic [/edit]

john_k

1:42 pm on Jun 30, 2004 (gmt 0)

I believe CDO needs to be configured so that it knows what SMTP server to utilize. I don't remember how that is done, but hopefully that might be enough for you to find more info in the MS KB or via Google.

streetshirts

12:11 am on Jul 2, 2004 (gmt 0)

Here is an example that works:

'Dimension variables
Dim objCDOSYSCon

'Create the e-mail server object
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

'Out going SMTP server
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.example.co.uk"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objCDOSYSCon.Fields.Update

'Update the CDOSYS Configuration
Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = "orders@example.co.uk"
objCDOSYSMail.TO = "Email Address"
objCDOSYSMail.BCC = "any@example.co.uk"
objCDOSYSMail.Subject = "Subject goes here"
objCDOSYSMail.HTMLBody = "<html><p>Html formatted message goes here</p></html>"
objCDOSYSMail.Send

'Close the server mail object
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing