Dim myMail
Set myMail = CreateObject("CDONTS.NewMail")
myMail.From = "malekith@163.com"
myMail.cc = "customerservice@163.com"
myMail.Cc = "sally@163.com"
myMail.to = email
myMail.BodyFormat = 0
myMail.MailFormat = 0
myMail.Subject = "Shipment is ok! "
HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" & NL
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<META http-equiv=Content-Type content=""text/html; charset=gb2312"">"
HTML = HTML & "</head>"
HTML = HTML & "<body>"
HTML = HTML & "Dear Malekith,<BR>"
HTML = HTML & "<BR>"
HTML = HTML & "Sorry for my late reply.<BR>"
HTML = HTML & "<BR>"
HTML = HTML & "<BR>"
HTML = HTML & "<STRONG>We just launched our latest referral programs and we are giving away rebate and discount to you and your friends.</STRONG><BR>"
HTML = HTML & "<FONT color=#ff0000><STRONG>Share a gift of US$20 with your friends.</STRONG></FONT><A href=""http://www.csdn.net/""><STRONG><FONT color=#ff0000>Click here for details</FONT></STRONG></A><BR>"
HTML = HTML & "<BR>"
HTML = HTML & "Happy viewing and thank you for shopping at <a href=""http://www.csdn.net"">www.csdn.net</a>. Looking forward to serving you again. Have a nice day!<BR>"
HTML = HTML & "<BR>"
HTML = HTML & "Best regards,<BR>"
HTML = HTML & "malekith Zhu<BR>"
HTML = HTML & "Customer Service Team<BR>"
HTML = HTML & "<a href=""http://www.csdn.net"">www.csdn.net</a><BR>"
HTNL = HTML & "</body>"
HTML = HTML & "</html>"
myMail.Body = HTML
myMail.Send