I am trying to send email using CDOSYS. Right now I use CDONTS and because we are going to a different platform I have to change all of my forms to send using CDOSYS. Specifically I need to know how to pull form variables. If someone could PLEASE post an example using CDOSYS, I would greatly appreciate it.

Thanks,
Tee

Dude, I pasted the old CDONT along with the CDOSYS format for you to compare the difference. The "your.home.org" should be changed to your own mail setting. It works great on mine, hopefully yours too.

=========
'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") = "your.home.org"
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 = "[email protected]"
objCDOSYSMail.To = "[email protected]"
objCDOSYSMail.BCC = "[email protected]"
objCDOSYSMail.Subject = "Subject goes here"
objCDOSYSMail.HTMLBody = "html enhanced email message goes here"
objCDOSYSMail.Send
'Close the server mail object
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing



'commented out: below is CDONTS object.

'Set objNewMail = CreateObject("CDONTS.NewMail")

'objNewMail.From = "[email protected]"
' objNewMail.To = "[email protected]"
'objNewMail.Bcc = "[email protected]"
'objNewMail.Cc = "[email protected]"
'objNewMail.BodyFormat=0
'objNewMail.MailFormat=0
'objNewMail.Subject = "Subject goes here"
'objNewMail.Body= "Body

'objNewMail.Send

'set objNewMail=nothing

%>

Danniken,
I'm using code that's pretty much exactly what you posted.
But when I view the page, I get an error type 0x8004020E, "Cannot
modify or delete an object that was added using the COM+ Admin SDK".
Someobdy else suggested adding the following lines of code in my page:




But it didn't solve anything.
Anybody have any ideas?

Did you install the Collaboration Data Objects for Window 2000 or for Exchange?
These components are required for the CDO.Message to work.

Check out this article for a comparison of the two methods, and their requirements.

Cheers,

Imar


---------------------------------------
Imar Spaanjaars
Everyone is unique, except for me.

Imar,
I'm not sure what you mean. I'm running Windows XP pro with IIS 5.1 installed.

I've got cdosys.dll in my windows/system directory. Is this the same as having them installed?

If it is registered, yes, it;s the same. Since the file is there, I assume it's registered as well.

Can you post your code? The code I used in my example runs fine on my Windows XP Pro edition.

Imar


---------------------------------------
Imar Spaanjaars
Everyone is unique, except for me.

Here's my code:

Sub autoMail(name, address, which)
  dim password
  dim objMessage, objConfig, Flds
  dim subject, body

  password = "#####"
  set objMessage = Server.createObject("CDO.message")
  set objConfig = server.createObject("CDO.Configuration")
  set Flds = objConfig.Fields
  Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
  Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 2
  Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "####"
  Flds.Item("http://schemas.microsoft.com/cdo/configuratino/sendpassword") = "####"
  Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
  Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")= "myams.org"
  Flds.Update

  Select Case which
    case "0"
      body = autoMailEvent(name)
      subject = "Queen's Bands Strike Notification"
    case "1"
      subject = "Queen's Bands Event Reminder"
      body = autoMailStrike(name)
    End Select

  Set objMessage.Configuration = objConfig
  objMessage.From = "Queens Bands"
  objMessage.To = address
  objMessage.Subject = subject
  objMessage.HTMLBody = body
  objMessage.Send

  set Flds = Nothing
  Set objConfig = Nothing
  Set objMessage = Nothing

End Sub

At the start of my page, before I do anything, I have



Thanks for your help,
Mike

This is odd. This code runs fine on my machine, after I changed the SMTP server of course.

AFAIK, it should work just like that. A few things you could check:

1. Are you running any firewall / anti-virus software? Maybe it's blocking this code (not likely, but you never know).

2. You could reinstall the CDO stuff. If you have an Outlook disk, or Office Disk that has Outlook included, start the Setup and choose "Collaboration Data Objects", which you'll find under Microsoft Outlook.

Other than that, I am pretty much stumped with this.

Cheers,

Imar


---------------------------------------
Imar Spaanjaars
Everyone is unique, except for me.

Just wanted to say thanks!! that worked really well for me.
Never got SQLMail to work from SQL Server but that worked the first time.
Thanks again,surfponto

[quote]Originally posted by Danniken
 Dude, I pasted the old CDONT along with the CDOSYS format for you to compare the difference. The "your.home.org" should be changed to your own mail setting. It works great on mine, hopefully yours too.

=========
'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") = "your.home.org"
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

hi