Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.
Solved
Problem with CDONTS ***** ERROR The "SendUsing" configuration value is invalid. *****
Posted on 2004-04-28
**************QUESTION****
I have the simple code given below. It is giving me the following error. Please tell me the resolution
****************CODE******
Set cdoConfig = CreateObject("CDO.Configur
Set cdoMessage = CreateObject("CDO.Message"
With cdoMessage
Set .Configuration = cdoConfig
.From = "mtaj@ekinsystems.com"
.To = "mtaj@ekinstems.com"
.Subject = "Sample CDO Message"
.TextBody = "This is a test for CDO.message"
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
****************ERROR*****
CDO.Message.1 error '80040220'
The "SendUsing" configuration value is invalid.
I have the simple code given below. It is giving me the following error. Please tell me the resolution
****************CODE******
Set cdoConfig = CreateObject("CDO.Configur
Set cdoMessage = CreateObject("CDO.Message"
With cdoMessage
Set .Configuration = cdoConfig
.From = "mtaj@ekinsystems.com"
.To = "mtaj@ekinstems.com"
.Subject = "Sample CDO Message"
.TextBody = "This is a test for CDO.message"
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
****************ERROR*****
CDO.Message.1 error '80040220'
The "SendUsing" configuration value is invalid.
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
6-
4
-
2
- +2
14 Comments
I have the same problem here. On my production server, CDO.Message works fine. On my test machine, I get the error you've shown. I never really looked deep into the problem, but if I had to guess it's probably because on my test machine there is no SMTP server, but on my production server there is. So on the production server it uses the SMTP server from the same machine, and on my test server, it has to be told where to send to.
The reason I never looked for the real problem is because I found CDONTS.NewMail worked on both machines, so I just started using it instead. If that's not an option, you could look at this old post:
http://www.experts-exchange.com/Web/Web_Languages/ASP/Q_20780859.html
The reason I never looked for the real problem is because I found CDONTS.NewMail worked on both machines, so I just started using it instead. If that's not an option, you could look at this old post:
http://www.experts-exchange.com/Web/Web_Languages/ASP/Q_20780859.html
You definitely need an SMTP server, and if it's not on the local machine you will need to use configuration. If you have SMTP running with IIS on local machine, which you should, you don't need configuration:
Default settings work fine...
Set cdoMessage = CreateObject("CDO.Message"
With cdoMessage
.From = "mtaj@ekinsystems.com"
.To = "mtaj@ekinstems.com"
.Subject = "Sample CDO Message"
.TextBody = "This is a test for CDO.message"
.Send
End With
Set cdoMessage = Nothing
Default settings work fine...
Set cdoMessage = CreateObject("CDO.Message"
With cdoMessage
.From = "mtaj@ekinsystems.com"
.To = "mtaj@ekinstems.com"
.Subject = "Sample CDO Message"
.TextBody = "This is a test for CDO.message"
.Send
End With
Set cdoMessage = Nothing
Please write the code for the configurations and their default values (if possible) other wise mention it.
Like I said, none...
Do you have the SMTP server on the webserver...or do you need to use SMTP realy on a nother server?
Do you have the SMTP server on the webserver...or do you need to use SMTP realy on a nother server?
Again, CDO is already programmed to use default configuration, so yu don't need to write any configuration...
*********FIRST USE THIS**********************
Validate that CDONTS.NewMail is installed
*********TESTOBJECT.ASP***
<% @ Language="VBScript" %>
<% Option Explicit %>
<%
' there are a number of objects that come with IIS4
' these are put in the array that's declared below
Dim theInstalledObjects(10)
theInstalledObjects(0) = "MSWC.AdRotator"
theInstalledObjects(1) = "MSWC.BrowserType"
theInstalledObjects(2) = "MSWC.NextLink"
theInstalledObjects(3) = "MSWC.Tools"
theInstalledObjects(4) = "MSWC.Status"
theInstalledObjects(5) = "MSWC.Counters"
theInstalledObjects(6) = "IISSample.ContentRotator"
theInstalledObjects(7) = "IISSample.PageCounter"
theInstalledObjects(8) = "MSWC.PermissionChecker"
theInstalledObjects(9) = "SoftArtisans.FileUp"
theInstalledObjects(10) = "CDONTS.NewMail"
Function IsObjInstalled(strClassStr
On Error Resume Next
' initialize default values
IsObjInstalled = False
Err = 0
' testing code
Dim xTestObj
Set xTestObj = Server.CreateObject(strCla
If 0 = Err Then IsObjInstalled = True
' cleanup
Set xTestObj = Nothing
Err = 0
End Function
%>
<HTML>
<HEAD>
<TITLE>Test of installed objects</TITLE>
</HEAD>
<BODY>
Enter the ProgId or ClassId of the component you want to test in the textbox below. If you leave it empty, the default
components will be tested.
<FORM action=<%=Request.ServerVa
<input type=text value="" name="classname" size=40>
<INPUT type=submit value=Submit>
<INPUT type=reset value=Reset>
</FORM>
<%
Dim strClass
strClass = Trim(Request.Form("classna
If "" <> strClass then
Response.Write strClass & " is "
If Not IsObjInstalled(strClass) then
Response.Write "<strong>not installed</strong>"
Else
Response.Write "installed!"
End If
Response.Write "<P>" & vbCrLf
Else
' default: list all components that should be installed
%>
<TABLE BORDER=0>
<%
Dim i
For i=0 to UBound(theInstalledObjects
Response.Write "<TR><TD>" & theInstalledObjects(i) & "</TD><TD>"
If Not IsObjInstalled(theInstalle
Response.Write "<strong>not installed</strong>"
Else
Response.Write "installed!"
End If
Response.Write "</TD></TR>" & vbCrLf
Next
%>
</TABLE>
<%
End If
%>
</BODY>
</HTML>
****************THEN USE THIS**********************
DO NOT Leave the FROM field blank or it wont come to your email address
****************TESTMAIL.A
<%
If Request.Form.Count > 0 Then
For I = 1 to Request.Form.Count
Body = Body & Request.Form.Key(I) & " " _
& Request.Form.Item(I) & vbCRLF
Next
strTo = Request("to")
strFrom = Request("from")
strSubject = Request("subject")
strBody = Request("body")
Set objCDOMail = Server.CreateObject("CDONT
objCDOMail.From =strFrom
objCDOMail.To = strTo
objCDOMail.Subject = strSubject
objCDOMail.Body = strBody
objCDOMail.Send
Set objCDOMail = Nothing
Response.Write "E-Mail Sent!"
End If
%>
<html>
<head>
<title>E-mailer</title>
</head>
<body>
<table border="0" cellpadding="2" width="620">
<form method="POST" action="<%= Request.ServerVariables("S
<tr>
<td><b><font size="2" face="Verdana"> E-mail From</font></b
<td><input type="text" name="from" size="30"></td>
</tr>
<tr>
<td><b><font size="2" face="Verdana">E-mail 
<td><input type="text" name="to" size="30"></td>
</tr>
<tr>
<td><b><font size="2" face="Verdana">Subject</fo
<td><input type="text" name="subject" size="45"></td>
</tr>
<tr>
<td valign="top"><b><font size="2" face="Verdana">Body</font>
<p> </td>
<td><textarea rows="15" name="body" cols="50"></textarea></td>
</tr>
<tr>
<td align="center" colspan="2">
<p align="center"><b><font size="2" face="Verdana"><input type="submit" value="Send E-Mail"></font></b></td>
</tr>
</form>
</table>
</body>
</html>
****************IF THE ABOVE DOESN'T WORK**********************
Validate that SMTP is working
http://www.iis-resources.com/modules/news/article.php?storyid=5
BTW: What OS is the Machine? Is it 2000, XP, 2003 ?
Validate that CDONTS.NewMail is installed
*********TESTOBJECT.ASP***
<% @ Language="VBScript" %>
<% Option Explicit %>
<%
' there are a number of objects that come with IIS4
' these are put in the array that's declared below
Dim theInstalledObjects(10)
theInstalledObjects(0) = "MSWC.AdRotator"
theInstalledObjects(1) = "MSWC.BrowserType"
theInstalledObjects(2) = "MSWC.NextLink"
theInstalledObjects(3) = "MSWC.Tools"
theInstalledObjects(4) = "MSWC.Status"
theInstalledObjects(5) = "MSWC.Counters"
theInstalledObjects(6) = "IISSample.ContentRotator"
theInstalledObjects(7) = "IISSample.PageCounter"
theInstalledObjects(8) = "MSWC.PermissionChecker"
theInstalledObjects(9) = "SoftArtisans.FileUp"
theInstalledObjects(10) = "CDONTS.NewMail"
Function IsObjInstalled(strClassStr
On Error Resume Next
' initialize default values
IsObjInstalled = False
Err = 0
' testing code
Dim xTestObj
Set xTestObj = Server.CreateObject(strCla
If 0 = Err Then IsObjInstalled = True
' cleanup
Set xTestObj = Nothing
Err = 0
End Function
%>
<HTML>
<HEAD>
<TITLE>Test of installed objects</TITLE>
</HEAD>
<BODY>
Enter the ProgId or ClassId of the component you want to test in the textbox below. If you leave it empty, the default
components will be tested.
<FORM action=<%=Request.ServerVa
<input type=text value="" name="classname" size=40>
<INPUT type=submit value=Submit>
<INPUT type=reset value=Reset>
</FORM>
<%
Dim strClass
strClass = Trim(Request.Form("classna
If "" <> strClass then
Response.Write strClass & " is "
If Not IsObjInstalled(strClass) then
Response.Write "<strong>not installed</strong>"
Else
Response.Write "installed!"
End If
Response.Write "<P>" & vbCrLf
Else
' default: list all components that should be installed
%>
<TABLE BORDER=0>
<%
Dim i
For i=0 to UBound(theInstalledObjects
Response.Write "<TR><TD>" & theInstalledObjects(i) & "</TD><TD>"
If Not IsObjInstalled(theInstalle
Response.Write "<strong>not installed</strong>"
Else
Response.Write "installed!"
End If
Response.Write "</TD></TR>" & vbCrLf
Next
%>
</TABLE>
<%
End If
%>
</BODY>
</HTML>
****************THEN USE THIS**********************
DO NOT Leave the FROM field blank or it wont come to your email address
****************TESTMAIL.A
<%
If Request.Form.Count > 0 Then
For I = 1 to Request.Form.Count
Body = Body & Request.Form.Key(I) & " " _
& Request.Form.Item(I) & vbCRLF
Next
strTo = Request("to")
strFrom = Request("from")
strSubject = Request("subject")
strBody = Request("body")
Set objCDOMail = Server.CreateObject("CDONT
objCDOMail.From =strFrom
objCDOMail.To = strTo
objCDOMail.Subject = strSubject
objCDOMail.Body = strBody
objCDOMail.Send
Set objCDOMail = Nothing
Response.Write "E-Mail Sent!"
End If
%>
<html>
<head>
<title>E-mailer</title>
</head>
<body>
<table border="0" cellpadding="2" width="620">
<form method="POST" action="<%= Request.ServerVariables("S
<tr>
<td><b><font size="2" face="Verdana"> E-mail From</font></b
<td><input type="text" name="from" size="30"></td>
</tr>
<tr>
<td><b><font size="2" face="Verdana">E-mail 
<td><input type="text" name="to" size="30"></td>
</tr>
<tr>
<td><b><font size="2" face="Verdana">Subject</fo
<td><input type="text" name="subject" size="45"></td>
</tr>
<tr>
<td valign="top"><b><font size="2" face="Verdana">Body</font>
<p> </td>
<td><textarea rows="15" name="body" cols="50"></textarea></td>
</tr>
<tr>
<td align="center" colspan="2">
<p align="center"><b><font size="2" face="Verdana"><input type="submit" value="Send E-Mail"></font></b></td>
</tr>
</form>
</table>
</body>
</html>
****************IF THE ABOVE DOESN'T WORK**********************
Validate that SMTP is working
http://www.iis-resources.com/modules/news/article.php?storyid=5
BTW: What OS is the Machine? Is it 2000, XP, 2003 ?
It's really not productive to dispute what I tell you...have you tried my code. The error you had was because you initailize configuration but never added any configuration information.
Just use my code...NO CONFIGURATION
Just use my code...NO CONFIGURATION
Beg your pardon!
I used your code. I just copied and pasted it and again giving me configuration error
I used your code. I just copied and pasted it and again giving me configuration error
So then your SMTP is not set up properly....that is what I asked before.
See here: CDO with Config...
http://www.experts-exchange.com/Web/Web_Languages/ASP/Q_20779650.html?query=cdo+configuration&searchType=topic
See here: CDO with Config...
http://www.experts-exchange.com/Web/Web_Languages/ASP/Q_20779650.html?query=cdo+configuration&searchType=topic
Try this code.. see if it works...
<%
Call SendMailCDOSYS("you@domain
' ** YOU CAN SPECIFY ANY MAIL SERVER AS THE LAST PARAMETER AS LONG AS IT IS VALID. **
Sub SendMailCDOSYS(strFrom,str
On Error Resume Next
Dim objCDOConf,objCDOSYS
' ** CREATE THE E-MAIL SERVER OBJECT **
Set objCDOSYS = Server.CreateObject("CDO.M
Set objCDOConf = Server.CreateObject ("CDO.Configuration")
' ** SET AND UPDATE FIELDS PROPERTIES **
With objCDOConf
' ** OUT GOING SMTP SERVER **
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = sMailServer
' ** SMTP PORT **
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' ** CDO PORT **
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
' ** TIMEOUT **
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.Update
End With
' ** UPDATE THE CDOSYS CONFIGURATION **
Set objCDOSYS.Configuration = objCDOConf
With objCDOSYS
' ** WHO THE E-MAIL IS FROM **
.From = strFrom
' ** WHO THE E-MAIL IS SENT TO **
.To = strTo
' ** THE SUBJECT OF THE E-MAIL **
.Subject = strSubject
' ** SET THE E-MAIL BODY FORMAT (HTMLBody=HTML TextBody=Plain) **
If blnHTML = True Then
.HTMLBody = strMailBody
Else
.TextBody = strMailBody
End If
' ** SEND THE E-MAIL **
.Send
End with
' ** CLOSE THE SERVER MAIL OBJECT **
Set objCDOSYS = Nothing
End Sub
%>
Also, Your error might be caused because you are creating your configuration object before setting the message object. Try reversing that in your code as well.
Also, as Alorentz already pointed out, make sure that the SMTP is configured and your machine is connected to the network.
Hope this helps...
Cheers!!
<%
Call SendMailCDOSYS("you@domain
' ** YOU CAN SPECIFY ANY MAIL SERVER AS THE LAST PARAMETER AS LONG AS IT IS VALID. **
Sub SendMailCDOSYS(strFrom,str
On Error Resume Next
Dim objCDOConf,objCDOSYS
' ** CREATE THE E-MAIL SERVER OBJECT **
Set objCDOSYS = Server.CreateObject("CDO.M
Set objCDOConf = Server.CreateObject ("CDO.Configuration")
' ** SET AND UPDATE FIELDS PROPERTIES **
With objCDOConf
' ** OUT GOING SMTP SERVER **
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = sMailServer
' ** SMTP PORT **
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' ** CDO PORT **
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
' ** TIMEOUT **
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.Update
End With
' ** UPDATE THE CDOSYS CONFIGURATION **
Set objCDOSYS.Configuration = objCDOConf
With objCDOSYS
' ** WHO THE E-MAIL IS FROM **
.From = strFrom
' ** WHO THE E-MAIL IS SENT TO **
.To = strTo
' ** THE SUBJECT OF THE E-MAIL **
.Subject = strSubject
' ** SET THE E-MAIL BODY FORMAT (HTMLBody=HTML TextBody=Plain) **
If blnHTML = True Then
.HTMLBody = strMailBody
Else
.TextBody = strMailBody
End If
' ** SEND THE E-MAIL **
.Send
End with
' ** CLOSE THE SERVER MAIL OBJECT **
Set objCDOSYS = Nothing
End Sub
%>
Also, Your error might be caused because you are creating your configuration object before setting the message object. Try reversing that in your code as well.
Also, as Alorentz already pointed out, make sure that the SMTP is configured and your machine is connected to the network.
Hope this helps...
Cheers!!
@ap_sajith - I provided a link to configuraion settings...why did you feel the need to post same thing again?
@alorentz, I just posted a tried and tested code that i use in my apps. I was in a hurry and didnt really check out the URl that you posted. Besides,i think he would get an error because he tried setting the configuration before setting the message object. Sorry if i offended you in any way. BTW... great going...keep up the good work!.
Cheers!!
Cheers!!
Featured Post
This webinar discusses:
-Common barriers companies experience when moving to the cloud
-How SD-WAN changes the way we look at networks
-Best practices customers should employ moving forward with cloud migration
-What happens behind the scenes of SteelConnect’s one-click button
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
I recently decide that I needed a way to make my pages scream on the net. While searching around how I can accomplish this I stumbled across a great article that stated "minimize the server requests."
I got to thinking, hey, I use more than one…
This demonstration started out as a follow up to some recently posted questions on the subject of logging in: http://www.experts-exchange.com/Programming/Languages/Scripting/JavaScript/Q_28634665.html and http://www.experts-exchange.com/Programming/…
This is my first video review of Microsoft Bookings, I will be doing a part two with a bit more information, but wanted to get this out to you folks.
Sometimes it takes a new vantage point, apart from our everyday security practices, to truly see our Active Directory (AD) vulnerabilities. We get used to implementing the same techniques and checking the same areas for a breach. This pattern can re…
Suggested Courses
Course of the Month11 days, 2 hours left to enroll
719 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.