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