Posted By

krisdb on 03/12/07


Tagged

ASP


Versions (?)

Who likes this?

2 people have marked this snippet as a favorite

gafsveno
asifrizvigmailcom


CDONTS 2


 / Published in: ASP
 

  1. Dim sEmailBody
  2.  
  3. call sendEmail("Your Order","[email protected]","[email protected],[email protected]","",sEmailBody,0)
  4.  
  5. sEmailBody = ""
  6.  
  7. 'accepts: subject, emails, bcc emails, email body, html flag
  8. 'returns: sends email
  9. sub sendEmail(sSubject, sFromEmail, sToEmail, sBCCEmail, sEmailBody, bHTML)
  10. dim iEmails,sSendToEmails
  11.  
  12. Dim oMail
  13. Set oMail = Server.CreateObject("CDONTS.NewMail")
  14. oMail.Subject = sSubject
  15. oMail.to = sToEmail
  16. oMail.Bcc = sBCCEmail
  17.  
  18. oMail.From = sFromEmail
  19.  
  20. oMail.mailFormat = bHTML
  21. oMail.bodyFormat = bHTML
  22. oMail.Body = sEmailBody
  23. oMail.Send
  24. Set oMail = nothing
  25. end sub

Report this snippet  

You need to login to post a comment.