CDOSYS Error

Expand Post »

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

ASP Syntax (Toggle Plain Text)
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="from@domain.com"
line6     myMail.To="to@domain.com"
line7     myMail.TextBody="This is a message."
line8     myMail.Send
line9     set myMail=nothing
line10    %>
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="from@domain.com"
line6     myMail.To="to@domain.com"
line7     myMail.TextBody="This is a message."
line8     myMail.Send
line9     set myMail=nothing
line10    %>

Can anyone plz help?

Thanx

Similar Threads

Error Loading operating System in Windows NT / 2000 / XP
svchost.exe error in Windows NT / 2000 / XP
New Hardware Causing Error in Windows NT / 2000 / XP
office 2000 install error in Windows NT / 2000 / XP
VMWare Unrecoverable Error in Linux Applications and Software

cancer10

Reputation Points: 58

Solved Threads: 1

Posting Whiz in Training

Offline

234 posts
since Dec 2004

Permalink

Jun 7th, 2007

Re: CDOSYS Error - sending mail in asp using cdo

Try the following code from my AspLib-library of general asp-classes
and asp-functions:

asp Syntax (Toggle Plain Text)
sub SendMail( byval psTo, byval psSubject , byval psBody )
'______________________________________________________________________________
'
'   'Send Mail'
'______________________________________________________________________________}
   Dim iMsg
   Dim iConf,Flds
   if psTo = "" then Exit sub
   Set iMsg = CreateObject("CDO.Message")
   Set iConf = CreateObject("CDO.Configuration")
   Set Flds = iConf.Fields
   With Flds
      ' assume constants are defined within script file
      .Item("[url]http://schemas.microsoft.com/cdo/configuration/sendusing[/url]") = 2
      .Item("[url]http://schemas.microsoft.com/cdo/configuration/smtpserver[/url]") = <your relay server>
      .Item("[url]http://schemas.microsoft.com/cdo/configuration/smtpserverport[/url]") = 25
      .Update
   End With
   With iMsg
      Set .Configuration = iConf
      .To = psTo
      .From = "{#EmailContact}"
      .Subject = psSubject
      .ReplyTo = "{#EmailContact}"
      .BCC = "" ' "{#EmailContact}"
      '.Importance = cdoNormal
      'For body text use either one of below
      '.TextBody = ''
      .HTMLBody= psBody
      '.CreateMHTMLBody "[url]http://www.w3schools.com/asp/[/url]"
      '.CreateMHTMLBody "[url]file://c:/mydocuments/test.htm[/url]
      '.AddAttachment "c:\mydocuments\test.txt"
      ' .MailFormat = 0 ' 0 for html - 1 for plain text
      ' .BodyFormat = 0 ' 0 for html - 1 for plain text
      .Send
   End With
   set iConf = Nothing
   set iMsg = Nothing
end sub
sub SendMail( byval psTo, byval psSubject , byval psBody )
'______________________________________________________________________________
'
'   'Send Mail'
'______________________________________________________________________________}
   Dim iMsg
   Dim iConf,Flds
   if psTo = "" then Exit sub
   Set iMsg = CreateObject("CDO.Message")
   Set iConf = CreateObject("CDO.Configuration")
   Set Flds = iConf.Fields
   With Flds
      ' assume constants are defined within script file
      .Item("[url]http://schemas.microsoft.com/cdo/configuration/sendusing[/url]") = 2
      .Item("[url]http://schemas.microsoft.com/cdo/configuration/smtpserver[/url]") = <your relay server>
      .Item("[url]http://schemas.microsoft.com/cdo/configuration/smtpserverport[/url]") = 25
      .Update
   End With
   With iMsg
      Set .Configuration = iConf
      .To = psTo
      .From = "{#EmailContact}"
      .Subject = psSubject
      .ReplyTo = "{#EmailContact}"
      .BCC = "" ' "{#EmailContact}"
      '.Importance = cdoNormal
      'For body text use either one of below
      '.TextBody = ''
      .HTMLBody= psBody
      '.CreateMHTMLBody "[url]http://www.w3schools.com/asp/[/url]"
      '.CreateMHTMLBody "[url]file://c:/mydocuments/test.htm[/url]
      '.AddAttachment "c:\mydocuments\test.txt"
      ' .MailFormat = 0 ' 0 for html - 1 for plain text
      ' .BodyFormat = 0 ' 0 for html - 1 for plain text
      .Send
   End With
   set iConf = Nothing
   set iMsg = Nothing
end sub

Sitestepper

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

6 posts
since May 2007

Permalink

Nov 4th, 2009

CDO.Message.1 error '80040220'

Try the code posted on:-
http://prabhat.me/2009/11/04/send-e-mail-using-cdo/

shant1976

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

1 posts
since Nov 2009

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in ASP Forum Timeline: ASP Error

Next Thread in ASP Forum Timeline: Need some help

DaniWeb Message

Cancel Changes

User Name
Password