CDONTS to CDOSYS

[BobbaBuoy]

I am moving my web files to a new (Win2003) server which is seperate from the box that holds my email server. I am having trouble with the 'Contact Us' kinds of pages that used to use CDONTS but now use CDOSYS. I believe the problem is the sendusing deal but it may be a port issue. Here is my code:

code:--------------------------------------------------------------------------------
Dim iMail, iConf, Flds
Dim sMsg, sName, sEmail, sSubject

sName = Request.Form.Item("name")
sEmail = Request.Form.Item("email")
sSubject = Request.Form.Item("subject")
sMsg = "From: " & sName & vbCrLf
sMsg = sMsg & "Email: " & sEmail & vbCrLf & vbCrLf
sMsg = sMsg & Request.Form.Item("message")

Set iMail = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds "

http://schemas.microsoft.com/cdo/configuration/sendusing")

= 3
Flds.Update

Set iMail.Configuration = iConf
With iMail
.To = "me@mydomain.com"
.From = sEmail
.Subject = sSubject
.TextBody = sMsg
.Send
End With

Set iMail = Nothing
Set iConf = Nothing
Set Flds = Nothing
--------------------------------------------------------------------------------


I am open to suggestions. Thanks in advance!!!

 

[onpnt]

try

iConf.Flds("

http://schemas.microsoft.com/cdo/configuration/sendusing")

= 3
iConf.Flds.Update

___________________________________________________________________

_{onpnt.com
SELECT * FROM programmers WHERE clue > 0
(0 row(s) affected) -->faq333-3811}

 

[BobbaBuoy]

I don't see the difference between what I have and what you are suggesting?

 

[onpnt]

yours

Set iMail = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds "[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/sendusing")[/URL] = 3
Flds.Update

edited for syntax

iConf.Flds("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/sendusing")[/URL] = 3
iConf.Flds.Update

the code looks to be fine other then that. other then looking for syntax issues or major object issues the error you are getting would probably help. is there one or is it just not getting through

___________________________________________________________________

_{onpnt.com
SELECT * FROM programmers WHERE clue > 0
(0 row(s) affected) -->faq333-3811}

 

[onpnt]

derrr.. declaration hell ay

ignore the iConf.Flds.

___________________________________________________________________

_{onpnt.com
SELECT * FROM programmers WHERE clue > 0
(0 row(s) affected) -->faq333-3811}