Function SendMailEx(sendTo, from, subject, body, cc, bcc)
dim MailObject
Set MailObject = CreateObject ("CDONTS.NewMail")
MailObject.MailFormat = 0
MailObject.BodyFormat = 0
MailObject.From = from
MailObject.To = sendTo
MailObject.Subject = subject
MailObject.Body = body
if cc <> "" then
MailObject.Cc = cc
end if
if bcc <> "" then
MailObject.Bcc = bcc
end if
MailObject.Send
Set MailObject = nothing
End Function