asp发送邮件

xiaorong88 2009-09-04 04:49:24

<%
mailfrom = trim(request("useremail"))'接收发送者email
pname = trim(request("name"))'接收发送者姓名
pdh = trim(request("tel"))'接收发送者电话
add=trim(request("add"))'接收发送者地址
saynr = trim(request("beizhu"))'接收发送内容
On error resume next
Dim JMail, contentId
Set JMail = Server.CreateObject("JMail.Message")
JMail.Charset = "gb2312" ' 邮件字符集，默认为"US-ASCII"

' 发送者信息（可用变量方式赋值）
JMail.From = "silk@hofo.biz" ' 发送者地址
JMail.FromName = pname ' 发送者姓名
JMail.Subject = "电邮俱乐部" ' 邮件主题

JMail.MailServerUserName = "silk@hofo.biz" ' 身份验证的用户名
JMail.MailServerPassword = "841013" ' 身份验证的密码

JMail.Priority = 5

JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")

JMail.AddRecipient("silk@hofo.biz")

' 邮件主体（HTML(注意信件内链接附件的方式)）
JMail.HTMLBody = "<html><head><META content=zh-cn http-equiv=Content-Language><meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312""><style type=text/css>A:link { FONT-SIZE: 9pt; TEXT-DECORATION: none; color: #000000}A:visited {FONT-SIZE: 9pt; TEXT-DECORATION: none; color: #666666}A:hover {COLOR: #ff6600; FONT-SIZE: 9pt; TEXT-DECORATION: underline}BODY {FONT-SIZE: 9pt} --></style></head><body>来自"&pname&"于"&date&"的来信<br><br>"&str&"<br>联系电话："&pdh&"<br><br>联系地址："&add&"<br/><br/>本邮件为系统发送邮件，请不要直接回复，复制邮件地址："&mailfrom&"后回复邮件</body></html>"

' 邮件主体（文本部分）
JMail.Body = "我们的邮件采用了HTML格式，但是您的邮件查看软件可能不支持。。。"&pname&","&saynr&","&mailfrom&","&pdh&","&date&","&add

' 发送【调用格式：objJMail.Send([username:password@]SMTPServerAddress[:Port])】
JMail.Send("mail.163ns.com.cn")

' 关闭并清除对象
JMail.Close()
Set JMail = Nothing
%>

这样的发送时成功

，但把其中的：
JMail.From = "silk@hofo.biz" 换成 JMail.From = str ' 发送者地址

所有"silk@hofo.biz" '都换成xiao_rong88@126.com
JMail.MailServerPassword = "841013" ' 身份验证的密码
换成:
JMail.MailServerPassword = "xiaorong88" ' 身份验证的密码

JMail.Send("mail.163ns.com.cn")换成JMail.Send("www.126.com")

这样之后就失败了

怎么回事，难道不能发送到126邮箱吗，

...全文