I am working on a project for work. MY form gathers simple data, and submits to an access database. all that is ok. My form results are to submit an email to a specific email address. The form absolutly will not email the info. Please be advised that this form is on a Server running Windows 2003 Server. My code is listed below. Can anyone help me please!?!?!?!?


'Response.Write strSQL

Set fp_conn = Server.CreateObject("ADODB.Connection")

Set fp_rs = Server.CreateObject("ADODB.Recordset")

fp_conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("../../../fpdb/misform.mdb")

fp_rs.Open strSQL, fp_conn, adOpenKeySet, adLockOptimistic, asCmdText ' adOpenKeySet, adLockOptimistic, adCmdTable

'set mycdo = server.createobject("CDONTS.NewMail")
'mycdo.from = "svr-amed-focus.amedisys.com"
'mycdo.to = "kplaisance@amedisys.com"
'mycdo.subject = "New Employee form Submitted by " & Request("EmployeeName")
'tbdy = "Hey," & CR & CR & "This is an email" & CR
'tbdy = tbdy & "Thanks"
'mycdo.body = tbdy
'mycdo.importance = 2
'set mycdo = nothing
Dim sMsg
Dim sTo
Dim sFrom
Dim sSubject
Dim sTextBody
sTo = "svr-amed-focus.amedisys.com"
sFrom = "kplaisance@amedisys.com"
sSubject = "New Employee form Submitted by " & Request("EmployeeName")
sTextBody = "This has be sent automatically. Please don't respond to this..."

Dim objMail
'Create the mail object
Set objMail = Server.CreateObject("CDO.Message")

'Set key properties
objMail.From = sFrom
objMail.To = sTo
objMail.Subject= sSubject
objMail.TextBody = sTextBody

'Send the email

'Clean-up mail object
Set objMail = Nothing

13 Years
Discussion Span
Last Post by william_stam

I know Win 3k ships with CDOSYS, I don't know about CDONTS. Check your IIS 6 web server e-mail component installed.


this is not CDONTS it is already CDOSYS. The CDONTS is commented out. make sure SMTP server is running and is configured.

This topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.