CDOSYS Error

cancer10 · May 19th, 2007, 12:15 AM

I am trying to send an email using CDOSYS with classic ASP. But I am getting this error:

Code:

CDO.Message.1 error '80040220'

The "SendUsing" configuration value is invalid.

/send.asp, line 8

line1     <%
line2     Dim myMail
line3     Set myMail=CreateObject("CDO.Message")
line4     myMail.Subject="Sending email with CDO"
line5     myMail.From="[email protected]"
line6     myMail.To="[email protected]"
line7     myMail.TextBody="This is a message."
line8     myMail.Send
line9     set myMail=nothing
line10    %>

Can anyone plz help?

Thanx

-----------------------------------------------
www.chargertek.in - Cheapest WebHosting

kingroon · May 21st, 2007, 10:53 PM

Hi cancer10,

Looks like you need to configure your CDOSYS first.. Grabbed an example from http://classicasp.aspfaq.com/email/h...-with-cdo.html

<%
    sch = "http://schemas.microsoft.com/cdo/configuration/"

    Set cdoConfig = CreateObject("CDO.Configuration")

    With cdoConfig.Fields
        .Item(sch & "sendusing") = 2 ' cdoSendUsingPort
        .Item(sch & "smtpserver") = "<enter_mail.server_here>"
        .update
    End With

    Set cdoMessage = CreateObject("CDO.Message")

    With cdoMessage
        Set .Configuration = cdoConfig
        .From = "[email protected]"
        .To = "[email protected]"
        .Subject = "Sample CDO Message"
        .TextBody = "This is a test for CDO.message"
        .Send
    End With

    Set cdoMessage = Nothing
    Set cdoConfig = Nothing
%>

Hasta Luego..
KingRoon

DogFightClothing. No dogs. No fighting.
http://www.dogfightclothing.com