advanced code snippet search

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
 
Expand | Embed | Plain Text 
  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.