Dim objMail
'Create CDONTS.NewMail object
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = ""
objMail.Subject = ""
'you need TO add these lines FOR the mail to be sent in HTML format
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.To = ""
'objMail.Bcc = bcc
objMail.Body = ""
objMail.Send
set objMail = nothing
'Create CDONTS.NewMail object
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = "
objMail.Subject = "
'you need TO add these lines FOR the mail to be sent in HTML format
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.To = "
'objMail.Bcc = bcc
objMail.Body = "
objMail.Send
set objMail = nothing
Comments
Post a Comment