Forum Moderators: open
set mynewmail = CreatObject ("CDONTS.NewMail")
i am receiving error on this line .... will anyone identify error in this line
Function SendHTMLEmail(strSendTo, strSubject, strBody)
dim objEMail
set objEMail = Server.CreateObject("CDONTS.NewMail")
objEMail.To = strSendTo
objEMail.From = 'EMAIL FROM ADDRESS.
objEMail.subject = strSubject
objEMail.body = strBody
objEmail.BodyFormat = 0
objEmail.MailFormat = 0
objEMail.send
set objEMail = nothing
End Function