2003已經不支援CDONTS.NewMail 相關文章請參考
http://www.blueshop.com.tw/Board_5/show.asp?repno=33781&page=3&PgmType=ASP
請使用CDO.MESSAGE
請參考以下範例
<%
Set email = CreateObject("CDO.Message")
email.From ="aaa@aaa.com" '寄件人
email.To = "bbb@bbb.com" '收件人
email.CC = "CC@CC.com" ' 副本收件人
email.BCC = "ddd@ddd.com" ' 隱藏副本收件人
email.Subject = "信件主旨"
email.TextBody ="信件本文"
email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1"
email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
email.Configuration.Fields.Update
email.Send
Set email = nothing
%>