各位帅哥靓女路过帮帮我

[神码浮云]

（asp网站）要做一个找回密码发送到邮箱里（各种邮箱），在网上找了jmail组件，做了一整天都没有测试发送成功，不知道是什么原因。
（telnet服务启动了，杀毒关了，测试邮箱是163,sina,qq）。

最后放弃了，转用aspemail，感觉这个比jmail友好，但也是发送不成功。务服器名称username和务服器密码password指的是邮箱账号和密码吗？还是指的上传网站的服务器呢？

如果哪位帅哥靓女有找回密码发送到邮箱里功能代码（或jmail，aspemail或其他组件实现发送邮箱功能代码，要自己实过成功的，不要在网上抄一些发过来），请给我发一份，万分感谢，无以为报...我的邮箱是：[e-mail]

代码如下：(错误提示：Error occurred: 550 用户被锁定)
<%
' change to address of your own SMTP server
strHost="smtp.163.com"

If Request("Send") <> "" Then

Set Mail=Server.CreateObject("Persits.MailSender")
' enter valid SMTP host
Mail.Host=strHost

Mail.From=Request.Form("From") ' From address
Mail.FromName=Request.Form("FromName") ' optional
Mail.AddAddress Request.Form("To")

' message subject
Mail.Subject=Request.Form("Subject")
' message body
Mail.Body=Request.Form("Body")

strErr=""
bSuccess=False
On Error Resume Next ' catch errors
Mail.Send ' send message
If Err<>0 Then ' error occurred
strErr=Err.Description
else
bSuccess=True
End If
End If
%>

[sy_binbin]

''发送电子邮件函数
'siteEmail 发送方邮箱
'smtp 邮箱主机地址
'emailUserName 邮箱用户名
'emailUserPWD 邮箱密码
'inceptEmail 接受邮件的邮箱地址
'sendName 发送人的名称
'sendTitle 邮件标题
'sendContent 邮件正文
sub EmailSend(siteEmail,smtp,emailUserName,emailUserPWD,inceptEmail,sendName,sendTitle,sendContent)
dim jmail
set jmail = CreateObject ("jmail.message") ''创建对象
jmail.Silent = true ''一般不用改
jmail.Charset = "gb2312" ''信件的语言编码
jmail.ContentType = "text/html" ''信件的格式html或纯文本
jmail.From = siteEmail ''发信人邮箱
jmail.FromName = sendName ''发信人姓名
jmail.Subject = sendTitle ''信件主题
jmail.AddRecipient inceptEmail ''收信人地址
jmail.Body = sendContent ''信件正文
jmail.MailServerUserName = emailUserName ''服务器登陆用户名(您的邮件地址)
jmail.MailServerPassWord = emailUserPWD ''服务器登陆密码(您的邮件密码)
jmail.Send(smtp) ''服务器地址
jmail.Close
set jmail = nothing
end sub

[sy_binbin]

最主要的就是你发信邮箱要支持SMTP

只有支持SMTP才可以发出邮件的！

我上面的代码完全好用，你找个支持SMTP的邮箱就可以了！！

[lzp4881]

这个是我目前正在使用的
<%
'*************************************************
Sub SendAction(strEmail)

Set JMail = Server.CreateObject("JMail.Message")
JMail.ISOEncodeHeaders = True
JMail.Silent = True
JMail.Charset = "gb2312"
JMail.From = "" ' 发送者地址
JMail.FromName = "" ' 发送者姓名
JMail.MailServerUserName = "" ' 身份验证的用户名
JMail.MailServerPassword = "" ' 身份验证的密码
JMail.AddRecipient strEmail '收件人的地址
JMail.AddRecipientBCC "" '密件收件人的地址
JMail.Subject = "标题"
JMail.Body = "内容"
JMail.HTMLBody = "html内容" '如果对方信箱不支持HTML格式邮件，我们仍需要给他一个友善的提示
JMail.Body = "Too bad you can't read HTML-mail."
JMail.appendText " There would have been a nice picture for you"

dim sendok
sendok=JMail.Send( "smtp.163.com" ) '发送邮件服务器

if sendok then
Response.Write " <script language=javascript>alert('已成功向 "&strEmail&" 发出了邮件'); </script>"
else
Response.Write " <script language=javascript>alert('网络延迟!请重试!'); </script>"
end if

JMail.Close()
Set JMail = Nothing

end sub
%>

[一把编程的菜刀]

自己搜索吧


最主要的就是你发信邮箱要支持SMTP

只有支持SMTP才可以发出邮件的！


我 的博客里那代码也不错

[ishion]

smtp服务器不能错，邮箱的用户名和密码不错，其它格式都是差不多的，

不过有些免费邮箱不支持发送，要选择一个可以发送的才可以，我用21cn的发过，可以使用，只要保证账号密码的正确性的可以了

[神码浮云]

lzp4881的代码用了还是不行，是不是我什么写错了。显示else语句.
测试邮箱账号：[e-mail] 密码：zhuanqian
JMail.FromName="" 这个是随意写的吗？

<%
'*************************************************

Set JMail = Server.CreateObject("JMail.Message")
JMail.ISOEncodeHeaders = True
JMail.Silent = True
JMail.Charset = "gb2312"
JMail.From = "[e-mail]" ' 发送者地址
JMail.FromName = "zhuanqian168168" ' 发送者姓名
JMail.MailServerUserName = "zhuanqian168168" ' 身份验证的用户名
JMail.MailServerPassword = "zhuanqian" ' 身份验证的密码
JMail.AddRecipient "[e-mail]" '收件人的地址
JMail.AddRecipientBCC "" '密件收件人的地址
JMail.Subject = "标题"
JMail.Body = "内容"
JMail.HTMLBody = "html内容" '如果对方信箱不支持HTML格式邮件，我们仍需要给他一个友善的提示
JMail.Body = "Too bad you can't read HTML-mail."
JMail.appendText "There would have been a nice picture for you"

dim sendok
sendok=JMail.Send("smtp.163.com") '发送邮件服务器

if sendok then
Response.Write "<script language=javascript>alert('已成功向 发出了邮件');</script>"
else
Response.Write "<script language=javascript>alert('网络延迟!请重试!');</script>"
end if

JMail.Close()
Set JMail = Nothing

%>

[lzp4881]

你发送邮件服务器用的smtp.163.com，那你就要用163的帐号
JMail.MailServerUserName = "zhuanqian168168" ' 身份验证的用户名
JMail.MailServerPassword = "zhuanqian" ' 身份验证的密码
这两个要用163的帐号

[神码浮云]

[Quote=引用 7 楼 lzp4881 的回复:]
你发送邮件服务器用的smtp.163.com，那你就要用163的帐号
JMail.MailServerUserName = "zhuanqian168168" ' 身份验证的用户名
JMail.MailServerPassword = "zhuanqian" ' 身份验证的密码
这两个要用163的帐号
[/Quote]

这两个？？你是说JMail.MailServerUserName 和 JMail.MailServerPassword 都是写邮箱的账号吗？
还是说发送邮箱和接收邮箱要写同一种邮箱（试过很多次两个用同一种邮箱都不行，163,sina,qq,tom都试过，找不出原因）

[lzp4881]

如果你的邮箱是[e-mail]
那么你的帐号就是zhuanqian168168
JMail.MailServerUserName = "zhuanqian168168"
JMail.MailServerPassword = "xxx"'这个要输入你发送邮件的登陆密码

[神码浮云]

我是写发送邮件的邮箱密码呀，就是zhuanqian
但是就是不行，不知为什么。。