高考问答苗疆蛊事网盘:用Jmail发送邮件遇到的问题
来源：百度文库 编辑：高考问答 时间：2024/05/08 12:34:44
这是我的代码，这样可以实现发送邮件
<%
Set JMail=CreateObject("JMail.Message")
JMail.Charset ="gb2312"
JMail.ContentType = "text/html" '(是否支持html,如不要就去掉此行）
JMail.From =Request("email"） '发件人的E-MAIL地址
JMail.AddRecipient "qicosmos@163.com" '邮件收件人的地址
JMail.MailServerUserName = "qicosmos" ‘邮箱用户名
JMail.MailServerPassWord = "******" '邮箱密码
JMail.subject= Request("enquirytype") '邮件的标题
JMail.body= Request("name")+Request("email")+Request("message")
JMail.Priority= 1
JMail.Send("smtp.163.com")
JMail.Close()
%>
但是前提是JMail.From =Request("email"） '发件人的E-MAIL地址必须是“qicosmos@163.com”,如果换成别的邮箱地址就会出错，错误类型：
jmail.Message (0x8000FFFF)
The message was undeliverable. All servers failed to receive the message
这是怎么回事，如何解决呢？求救啊，哪位达人指点下啊。
谢谢回答的人。
问题已经得到解决，发件人的地址不能改的，必须指定的。
<%
Set JMail=CreateObject("JMail.Message")
JMail.Charset ="gb2312"
JMail.ContentType = "text/html" '(是否支持html,如不要就去掉此行）
JMail.From =Request("email"） '发件人的E-MAIL地址
JMail.AddRecipient "qicosmos@163.com" '邮件收件人的地址
JMail.MailServerUserName = "qicosmos" ‘邮箱用户名
JMail.MailServerPassWord = "******" '邮箱密码
JMail.subject= Request("enquirytype") '邮件的标题
JMail.body= Request("name")+Request("email")+Request("message")
JMail.Priority= 1
JMail.Send("smtp.163.com")
JMail.Close()
%>
但是前提是JMail.From =Request("email"） '发件人的E-MAIL地址必须是“qicosmos@163.com”,如果换成别的邮箱地址就会出错，错误类型：
jmail.Message (0x8000FFFF)
The message was undeliverable. All servers failed to receive the message
这是怎么回事，如何解决呢？求救啊，哪位达人指点下啊。
谢谢回答的人。
问题已经得到解决，发件人的地址不能改的，必须指定的。
我有个很好的办法，就是把你上面这些代码放在一个函数中。
函数参数可以是（寄信人邮箱，收信人邮箱，密码，用户名，主题，正文，附件）
这样只要调用函数就可以了，完全实现了任何人给任何用户发信的效果。我试过了，可以行得通，呵呵。
你再换成别的邮箱地址时有没有该下面这一行？
JMail.Send("smtp.163.com")
应该改掉的，比如你要给263的邮箱发邮件就应该改成，
JMail.Send("smtp.263.com")
其他邮箱以此类推。