advanced search

We Recommend

ASP.NET 3.5 Unleashed ASP.NET 3.5 Unleashed
ASP.NET 3.5 Unleashed is the most comprehensive book available on the Microsoft ASP.NET 3.5 Framework, covering all aspects of the ASP.NET 3.5 Framework--no matter how advanced.

Posted By

krisdb on 03/12/07


Tagged

ASP


Versions (?)


Who likes this?

1 person has marked this snippet as a favorite

gafsveno


CDONTS 2

Published in: ASP 

Plain TextExpand 
  1. Dim sEmailBody
  2.  
  3.     call sendEmail("Your Order","info@email.com","email@email.com,email@email.com","",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.