01.Set Mail=CreateObject("CDO.Message")
02.Mail.Subject="Email subject"
03.Mail.From="from@domain.com"
04.Mail.To="to@domain.com"
05.Mail.Bcc="someone1@domain.com"
06.Mail.Cc="someone2@domain.com"
07.Mail.ReplyTo ="replyto@domain.com"
08.Mail.TextBody="This is an email message."
09.Mail.Send
10.set Mail =nothing
