I am about to loose it here. The b

minoad · Apr 1, 2002

I am about to loose it here. The below code should be a funtion that send mail using the CDO object. This function is erring out and i am pretty much at a loss. Any ideas?

Function ErrMailMsg(strSender,strFrom,strTo)
Dim objMail
Set objMail = Server.CreateObject("CDONTS.NewMail&quot

Let intStrSender = cstr(strSender)
Let intStrFrom = cstr(strFrom)
Let intStrTo = cstr(strTo)

objMail.From = intStrFrom
objMail.Subject = "Error with Site Setup"
objMail.To = intStrTo

Let aspMailBody = "<table align = 'center'>"
Let aspMailBody = aspMailBody & "<tr><td>" & intStrSender & "</td></tr>"
Let aspMailBody = aspMailBody & "<tr><td>" & txt_Cfname & "</td></tr>"
Let aspMailBody = aspMailBody & "<tr><td>" & txt_Clname & "</td></tr>"
Let aspMailBody = aspMailBody & "<tr><td>" & txt_Ccity & "</td></tr>"
Let aspMailBody = aspMailBody & "<tr><td>" & txt_Cstate & "</td></tr>"
Let aspMailBody = aspMailBody & "<tr><td>" & txt_Cphonea & "</td></tr>"
Let aspMailBody = aspMailBody & "<tr><td>" & txt_Cphoneb & "</td></tr>"
Let aspMailBody = aspMailBody & "<tr><td>" & txt_Cphonec & "</td></tr>"
Let aspMailBody = aspMailBody & "<tr><td>" & txt_Cphoneext & "</td></tr>"
Let aspMailBody = aspMailBody & "<tr><td>" & txt_Luname & "</td></tr>"
Let aspMailBody = aspMailBody & "<tr><td>" & txt_Lpassword & "</td></tr>"
Let aspMailBody = aspMailBody & "<tr><td>" & expMon & "</td></tr>"
Let aspMailBody = aspMailBody & "<tr><td>" & expYear & "</td></tr>"
Let aspMailBody = aspMailBody & "</table>"

objMail.Body = aspMailBody
objMail.Send

set objMail = nothing

End Function

SarkMan · Apr 1, 2002

Remove the Lets throughout the page

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

I am about to loose it here. The b

minoad

Programmer

SarkMan

Programmer

Similar threads

Part and Inventory Search

Sponsor