asp发送邮件

前些日子要做一个发送邮件的表单,可是发现网上下载的邮件发送都无法使用.后来把所有的放在一起研究才看出门道.原来,大家出问题的地方都是SMTP服务器的帐号和地址.有些人以为这个是发件人的帐号和地址,有些以为是收件人的帐号和地址.所以才出了差错.

改了又改,才按下面的搞定.

' 写信人的名字  yourname = Trim(Request.Form("yourname"))
' 信的标题          title = Trim(Request.Form("title"))
' 信的内容          msgmsg = Trim(Request.Form("msg"))
' 回复地址          recadd = Trim(Request.Form("recadd"))

If yourname="" or title="" or msgmsg="" or recadd="" then
 FoundErr = True
Response.Write " 请填写完整！

"
Response.write " 返回"

Else

Set msg =Server. CreateObject("JMail.Message")

msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.ContentType = "text/html"
msg.MailServerUserName = "xxx"    

 '   请将星号改为您邮箱的SMTP登录帐号(126.163已取消此功能,只有qq邮箱有,找一个固定的qq邮箱,把帐号写在这儿,如:aaa)
msg.MailServerPassword = "xxx" 

 '    请将星号改为您邮箱SMTP的登录密码(如果上面是qq 邮箱,那么这里写qq邮箱登录密码,如:bbb)
msg.From = "xxx" '

'    如果上面是qq  邮箱,那么这里写邮箱地址(如:aaa@qq.com)

msg.FromName = yourname
msg.AddRecipient "xxx"                      '   收件人的邮箱

msg.ReplyTo = recadd

msg.Subject = title
msg.Body = msgmsg
pan = msg.Send ("smtp.qq.com")  

 '   请将星号改为您邮箱的SMTP服务器地址 例如：smtp.163.com

 '  (为用了qq 邮箱,所以这里写成了smtp.qq.com)

pan = true Then
Response.Write "邮件发送成功"
else
response.write "邮件发送失败"
end if
msg.close()

set msg = nothing
End if
%>

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/21022866/viewspace-566797/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/21022866/viewspace-566797/