Published in: ASP
Dim sEmailBody call sendEmail("Your Order","info@email.com","email@email.com,email@email.com","",sEmailBody,0) sEmailBody = "" 'accepts: subject, emails, bcc emails, email body, html flag 'returns: sends email sub sendEmail(sSubject, sFromEmail, sToEmail, sBCCEmail, sEmailBody, bHTML) dim iEmails,sSendToEmails Dim oMail Set oMail = Server.CreateObject("CDONTS.NewMail") oMail.Subject = sSubject oMail.to = sToEmail oMail.Bcc = sBCCEmail oMail.From = sFromEmail oMail.mailFormat = bHTML oMail.bodyFormat = bHTML oMail.Body = sEmailBody oMail.Send Set oMail = nothing end sub
You need to login to post a comment.
