到底用ASP发信时候老是失败啊？？谢谢先！在线等！

[yufeng7707]

我的机器里已经装了IIS和JMAIL,下面是我在网上找的发邮件的代码，但试过后，点了发送后老是说邮件发送失败！，这是怎么回事啊？请高手指教，代码如下：
Dim strMailServerUserName '输入smtp服务器验证登陆名 （邮局中任何一个用户的Email地址）
Dim strMailServerPassword '输入smtp服务器验证密码 （用户Email帐号对应的密码）
Dim strFrom '发件人Email
Dim strFromName '发件人姓名
Dim strAddRecipient '收件人Email
Dim strSubject '信件主题
Dim strBody '正文
Dim strSend 'smtp服务器地址（企业邮局地址）

strAddRecipient ="要发送到的信箱"
strSubject ="邮件主题"
strBody ="邮件体"

Call sendMail(strAddRecipient,strSubject,strBody)


'============================================================
'功能 :利用jMail发送邮件
'============================================================
' IN :strAddRecipient 收件人Email
' :strSubject 信件主题
' :strBody 正文
'============================================================
Sub sendMail(strAddRecipient,strSubject,strBody)
Dim msg
Dim strMailServerUserName '输入smtp服务器验证登陆名 （邮局中任何一个用户的Email地址）
Dim strMailServerPassword '输入smtp服务器验证密码 （用户Email帐号对应的密码）
Dim strFrom '发件人Email
Dim strFromName '发件人姓名
Dim strSend 'smtp服务器地址（企业邮局地址）

strMailServerUserName ="你的信箱帐号"
strMailServerPassword ="你的信箱密码"
strFrom ="你的信箱地址"
strFromName ="发送你的名字"
strSend ="SMTP服务器"

Set msg = Server.CreateObject("JMail.Message")
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.ContentType = "text/html" '这个邮件的头设置， 默认为 "text/plain" 能设置成你需要的任何情况。 '你想发送HTML信息,改这个头文件为 "text/html"

msg.MailServerUserName = strMailServerUserName '输入smtp服务器验证登陆名 （邮局中任何一个用户的Email地址）
msg.MailServerPassword = strMailServerPassword '输入smtp服务器验证密码 （用户Email帐号对应的密码）
msg.From = strFrom '发件人Email
msg.FromName = strFromName '发件人姓名
msg.AddRecipient strAddRecipient '收件人Email
msg.Subject = strSubject '信件主题
msg.Body = strBody '正文
msg.Send (strSend) 'smtp服务器地址（企业邮局地址）
set msg = nothing
End Sub

[luluso]

http://expert.csdn.net/Expert/topic/2598/2598477.xml?temp=.8166315

[xxrl]

http://expert.csdn.net/Expert/FAQ/List_Room_FAQ_Index.asp?Roomid=301

[fenlin]

http://expert.csdn.net/Expert/FAQ/FAQ_Index.asp?id=94564