阿里云默認關閉了25端口，可以使用CDO.Message 發送郵件，代碼如下：
<%
Set Mail = CreateObject("CDO.Message")
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 '使用網絡上的SMTP服務器而不是本地的SMTP服務器
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="smtp.163.com" 'SMTP服務器地址
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 'SMTP服務器端口
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1 '是否使用SSL
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 '連接服務器的超時時間
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 '服務器認證方式
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="aaa" '發件人用戶名
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="000000" '發件人郵箱密碼
Mail.Configuration.Fields.Update
Mail.Subject="Email subject" '郵件主題
Mail.From= chr(34) & "姓名" & chr(34) &"aaa@163.com" '發件人地址
Mail.To="xxx@qq.com" '收件人地址
Mail.TextBody="表單提交內容如下"&Chr(13)&chr(10)&"This is an" &chr(32)&chr(32)&"email message！！" '郵件正文
Mail.Send
Set Mail = Nothing
%>
<%="發送成功!!!"%>
