Using CDO objects in ASP

dhamatani · February 15th, 2005, 09:33 PM

I have currently upgraded from SBS 4.5 to SBS 2000. I have exchange server colocated on the IIS server. I was using, but have now switched to CDOSYS. I am completely stuck. I have attached my code for review:
        Dim iMsg
    Dim iConf
    Dim Flds
    Dim HTML

    Const cdoSendUsingPort = 2

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

    With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "cdaasvr.cdaa.local"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    .Update

    End With

    HTML = "This is a test"

    With iMsg
       Set .Configuration = iConf
       .To = "[email protected]"
       .From = "[email protected]"
        .Subject = "Testing"
        .HTMLBody = HTML
        .Send
     End With

     ' Clean up variables.
    Set iMsg = Nothing
    Set iConf = Nothing
    Set Flds = Nothing

When I execute this code the error reads:
Microsoft VBScript runtime (0x800A0411)
Name redefined: 'cdoSendUsingPort'

Any help would be appreciated. I have created a .VBS script that work fine, except for the Const cdoSendUsingPort = 1. I have tried that code also but receive the same error.

Thanks
Debbie

Jonax · February 15th, 2005, 10:09 PM

I recently had to code for both CDONTS and CDOSYS - I came up with the following - hope it helps:

Code:

Sub SendMailCDOSYS(sFrom, sTo, sSubject, sBody, sAttachmentPath)
Dim sch, cdoConfig, MyMail
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(sch & "sendusing") = 2 'cdoSendUsingPort
cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.tele2.dk"
cdoConfig.Fields.update
Set MyMail = Server.CreateObject("CDO.Message")
Set MyMail.Configuration = cdoConfig
MyMail.From = sFrom
MyMail.To = sTo
MyMail.Subject = sSubject
MyMail.HTMLBody = sBody
MyMail.AddAttachment sAttachmentPath
MyMail.Fields("urn:schemas:httpmail:importance").Value = 2
MyMail.Fields.Update()
MyMail.Send()
Set MyMail = Nothing
End sub

Sub SendMailCDONTS(sFrom, sTo, sSubject, sBody, sAttachmentPath)
    Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
    objCDOMail.From = sFrom
    objCDOMail.To = sTo
    objCDOMail.Subject = sSubject
    objCDOMail.Body = strBody
    objCDOMail.Importance = 2 '(0=Low, 1=Normal, 2=High)
    objCDOMail.BodyFormat = 0 ' CdoBodyFormatHTML
    objCDOMail.MailFormat = 0 ' CdoBodyFormatHTML
    If sAttachmentPath <> "" Then
            objCDOMail.AttachFile sAttachmentPath
    End If
    objCDOMail.Send
    Set objCDOMail = Nothing        
End Sub

Jonax · February 15th, 2005, 10:11 PM

You'll want to change the SMTP-server...

dhamatani · February 16th, 2005, 12:07 AM

Jonax --

Thanks for your suggestion, but I have tried every combination of the SMTP server I can think of. When using the .vbs file is works when you change the port number to 1, but putting it into ASP it does not.

Any other suggestons??

dhamatani · February 16th, 2005, 04:10 PM

HI All --

Thanks the suggestions. Apparently, the code above was working, but was giving me an error in the browser. Some people recieved up to about 15 e-mails.

I am not sure how it happened but all of my CDONTS code started working. The only suggestions I have for others upgrading from Windows NT 4.0 to Windows 2000 server is to register the DLL and wait about 2 days.

Thanks again
Debbie