What's wrong with this???

stacy · May 10th, 2004, 09:27 PM

Here is the code:

Dim objCDO
    Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = Request.Form("EVE_EMAIL")
    objCDO.To = myEmail
    objCDO.CC = Request.Form("EVE_EMAIL")
    objCDO.Subject = "New event has been submited"
    objCDO.Body = "A new event has been submited and needs to be approved." & vbnewline & "Event Name: " & Request.Form("EVE_NAME") & vbnewline & "Event Description: " & Request.Form("EVE_DESCRIPTION") & vbnewline & "Submited By: " & Request.Form("EVE_EMAIL")
    objCDO.Send()
    Set objCDO = Nothing

(in red is the problem line)

Here is the error:

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/schoolcalendar/inc_submit.asp, line 140

800401f3

Can someone please help??? There is a bunch of code before that, so if that will help, I can put that up here too! Let me know!

Imar · May 11th, 2004, 02:25 AM

On what OS are you running this? Are you sure CDONTS is available?

Check out the CDONTS Introduction page and dig around a bit to read more about the requirements and options you have.
Depending on your OS and requirements, you could use CDO instead of CDONTS.
Check out the Collaboration Data Objects page for more information about the different CDO objects available.

Cheers,

Imar
---------------------------------------
Imar Spaanjaars
Everyone is unique, except for me.
While typing this post, I was listening to: Pure Pleasure Seeker by Moloko (Track 2 from the album: Things To Make And Do) What's This?

stu9820 · May 12th, 2004, 07:22 AM

I would recommend using CDOSYS if you have a Win2K box. Here is an example that uses authentication to send.



<html>
<head>
<title>email</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
strLastName = Request("lastname")
strFirstName = Request("firstname")
strPhone = Request("phone")
strEmail = Request("emailfrom")
strDepartment = Request("department")
strOffice = Request("office")
strSummary = Request("summary")
strDetail = Request("detail")

%>
<%
Dim objMessage, objConfig

Set objMessage = CreateObject("CDO.Message")
Set objConfig = CreateObject("CDO.Configuration")

'Configuration:
objConfig.Fields(cdoSendUsingMethod) = cdoSendUsingPort
objConfig.Fields(cdoSMTPServer) = "removed"
objConfig.Fields(cdoSMTPServerPort) = 25
objConfig.Fields(cdoSMTPAuthenticate) = 2 '2 for authentication
objConfig.Fields(cdoSendUserName) = "domain\username"
objConfig.Fields(CdoSendPassword) = "password"

'Update configuration
objConfig.Fields.Update
Set objMessage.Configuration = objConfig

'Make message
objMessage.To = "removed"
'objMessage.Cc = "[email protected]"
'objMessage.Bcc = "[email protected]"
objMessage.From = strEmail
objMessage.ReplyTo = strEmail
objMessage.Subject = "HelpDesk -QuickForm"
objMessage.TextBody = strDetail & " " & "Phone:" & strPhone
objMessage.HtmlBody = "<html><body>" & "A Helpdesk Request submitted by: " & strFirstName &_
" " & strLastName & " Problem description: " & strDetail & " Email address: " & strEmail &_
" Department: " & strDepartment & " Phone Number: " & strPhone &_
" My office hours are: " & strOffice &_
" ***************************************** ***************** Quick HelpDesk Form" & "</body></html>"

' Error Handling
On Error Resume Next

' Send the CDOSYS Message
objMessage.Send
Set objMessage = Nothing
Set objConfig = Nothing

' Display success message or error
If Err.Number = 0 Then
Response.Write("<script language=""JavaScript"">var msg = ""Message Sent!""; alert(msg);</script>")

Response.Write("<body onLoad=""location.href('rightside.asp')"">")
Else
Response.Write Err.Description & ""
Err.Number = 0
End If
On Error Goto 0

%>
</body>
</html>