2000與2003Mail發送方式

Windows 2000 發信方式
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.to ="scott@universe.com.tw"
mail.From = "verigy@universe.com.tw"
mail.Subject = "" & Trim(Request("EventID"))
Body = ""
Body = Body & ""
mail.Body = Body
mail.BodyFormat=0
mail.MailFormat=0
mail.Send


Windows 2003 發信方式
Set mail = CreateObject("CDO.Message")
mail.to ="scott@universe.com.tw"
mail.From = "verigy@universe.com.tw"
mail.Subject = "" & Trim(Request("EventID"))
Body = ""
Body = Body & ""
mail.HTMLBody = Body
mail.Send