Error message when using CDO.Configurati on in W2k3 to send mail

[surferj]

I am beginning to receive an error message when trying to execute the .Send command when using the CDO.Configurati on and CDO.Message in a W2k3 server environment on WXP machines and IE6. Below is a sample of the code i am using but when attempting to modify existing code or create a new page using this code i receive an error in the .Send line in IE. I will paste the error message when i return to work but basically states error executing command in line /xxx.

<%
response.buffer = true
type=request.form("type")
body=request.form("body")
email=request.form("email")
subject=request.form("subject")
recipient=request.form("recipient")
%>
<% 
    sch = "http://schemas.microsoft.com/cdo/configuration/" 
 
    Set cdoConfig = CreateObject("CDO.Configuration") 
 
    With cdoConfig.Fields 
        .Item(sch & "sendusing") = 2 ' cdoSendUsingPort 
        .Item(sch & "smtpserver") = "<mail server name omitted for privacy>" 
        .update 
    End With 
 
    Set cdoMessage = CreateObject("CDO.Message") 
 
output = "This is a " & type & "request. " & Chr(13) & body
 
    With cdoMessage 
        Set .Configuration = cdoConfig 
        .From = email 
        .To = recipient 
        .CC = "[e-mail]"
        .Subject = subject 
        .TextBody = output 
        .Send 
    End With 
 
    Set cdoMessage = Nothing 
    Set cdoConfig = Nothing 
%>

[surferj]

also -i am not quite sure where to post this one... could some one plz help ?

[Curtis Rutland]

Is this question a Classic ASP or ASP.NET question? If you don't know, does the file name end with .asp or .aspx?

[surferj]

file is a .asp file.

[Curtis Rutland]

OK, well I'll move your thread to our Classic ASP forum :)

Mod.

[surferj]

here is the error message i get

error '8004020e'
/xxxxx/xxxxx/CDOTest.asp, line 64

[MrMancunian]

@surferj
Did you already check with MS TechNet? It returns this errorcode as "IDS_INVALID_VI SIBILITY". Does that help you any further?

Steven

[surferj]

@MrMancunian
Checked in MS Technet and couldnt find anything to help resolve this. I have our server tech working in it as well to see if something is missing on the W2k3 server install. We have tried to re-register cdosys.dll since we thought maybe the libraries did not load correctly but that doesnt seem to work to fix the issue - same error message produced.

Any help is greatly appreciated.
Thanks

[Nicodemas]

That problem sounds indicative of no SMTP authentication being passed along. Here is a stripped down version of the code I always use to send CDOSYS .... never fails so long as you input the right variables.

const cdoBasic = 1 'Use basic (clear-text) authentication
const cdoSendUsingPort = 2
 
dim oMailConfigurations
dim oConfigurationsFields
 
'//-----------------------------------
'// Create message and config. objects
'//-----------------------------------
set oMail = server.createobject("CDO.Message")
set oMailConfigurations = server.createobject("CDO.Configuration")
 
'//----------------------------------------------
'// determine if the component creation failed
'// return false if so with a nice error message
'//----------------------------------------------
if err <> 0 then
 response.write "CDOSYS not installed."
 response.end
end if
 
Set oConfigurationsFields = oMailConfigurations.Fields
 
'//-----------------------------------
'// apply settings to the config object
'//-----------------------------------
with oConfigurationsFields
' Specify the authentication mechanism to basic (clear-text) authentication.
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
 
' The username for authenticating to an SMTP server
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "YOUR SMTP USERNAME"
 
' The password used to authenticate to an SMTP server
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "PASSWORD FOR SMTP USERNAME ABOVE"
 
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
 
'Specify mail server
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "YOUR_SITE_MAIL_SERVER_ADDRESS"
 
'Specify the timeout in seconds
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 12
 
' The port on which the SMTP service specified by the smtpserver field is listening for connections (typically 25)
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = "YOUR_SERVER_SMTP_MAIL_PORT"
 
.Update
end with
 
'//-----------------------------------------
'// Apply the settings to the message object
'//-----------------------------------------
with oMail
 
Set .Configuration = oMailConfigurations
.To = YOUR_VAR
.From = YOUR_VAR
.Cc = YOUR_VAR
.Bcc = YOUR_VAR
.Subject = YOUR_VAR
.replyTo =  YOUR_VAR
 
.TextBody = YOUR_VAR
.HTMLBody = YOUR_VAR
 
.Send
end with
 

Also, are you 100% sure your mail server address is correct in the script?

[surferj]

@Nicodemas
mail server address is correct - is functioning on alternate W2k3 server environment

I will test out your code to see if the CDO is properly installed.
thanks