ITPub博客

首页 > Linux操作系统 > Linux操作系统 > asp发送邮件

asp发送邮件

原创 Linux操作系统 作者:mzr_cj 时间:2009-03-11 13:47:04 0 删除 编辑
前些日子要做一个发送邮件的表单,可是发现网上下载的邮件发送都无法使用.后来把所有的放在一起研究才看出门道.原来,大家出问题的地方都是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/,如需转载,请注明出处,否则将追究法律责任。

上一篇: 没有了~
下一篇: asp.net弹出对话框
请登录后发表评论 登录
全部评论

注册时间:2009-03-05

  • 博文量
    17
  • 访问量
    73743