jmail问题

[iguohong]

现在要做一个给站内会员发信的系统，但是服务器上没有安装smtp，我以前用免费邮箱的smtp服务器可以用的现在不可以用了，谁能给个办法解决没有本地smtp服务进行jmail发信问题啊？有代码更好，先谢谢:)

[wyq29]

这个组件 用sina和sohu 邮箱发不出去的, 我换126的一发就出去了, 但sina和sohu可以收到...

[Guest7]

'========================================================
'函数名：SendMail
'作 用：用Jmail组件发送邮件(需要验证形式)
'说 明: Jmail4.3组件重新设计了其内部结构——使用
' Message对象代替原来的单一对象Jmail.smtpmail发送
' 邮件，有些方法需要身份验证的(如163、yahoo等)，
' 可以用下面的方法解决：
'参 数：MailtoAddress ----收信人地址
' MailtoName -----收信人姓名
' Subject -----主题
' MailBody -----信件内容
' FromName -----发信人姓名
' MailFrom -----发信人地址
' MailServer -----用来发邮件的SMTP服务器地址
' Priority -----信件优先级
' MailServerUserName -----登录用户名
' MailServerPassWord -----登录密码
' MailDomain -----域名
'========================================================
function SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom,MailServer,Priority,MailServerUserName,MailServerPassWord,MailDomain)
on error resume next
Dim JMail
Set JMail=Server.CreateObject("JMail.Message")
if err then
SendMail= "<br><li>没有安装JMail组件</li>"
err.clear
exit function
end if
JMail.Charset="gb2312" '邮件编码
JMail.silent=true
JMail.ContentType = "text/html" '邮件正文格式
JMail.ServerAddress= MailServer '用来发送邮件的SMTP服务器
'如果服务器需要SMTP身份验证则还需指定以下参数
JMail.MailServerUserName = MailServerUserName '登录用户名
JMail.MailServerPassWord = MailServerPassWord '登录密码
JMail.MailDomain = MailDomain '域名（如果用“[e-mail]”这样的用户名登录时，请指明domain.com
JMail.AddRecipient MailtoAddress,MailtoName '收信人
JMail.Subject=Subject '主题
JMail.HMTLBody=MailBody '邮件正文（HTML格式）
JMail.Body=MailBody '邮件正文（纯文本格式）
JMail.FromName=FromName '发信人姓名
JMail.From = MailFrom '发信人Email
JMail.Priority=Priority '邮件等级，1为加急，3为普通，5为低级
JMail.Send(MailServer)
SendMail =JMail.ErrorMessage
JMail.Close
Set JMail=nothing
End function

[iguohong]

谢谢楼上的回复，如能解决问题，马上结贴，分全给你 :)

[iguohong]

处理邮件的文件这样写的对不？
<%
dim mailto
if trim(request.Form("mailto"))<>"" then
MailtoAddress=trim(request.Form("mailto"))
MailtoName="MailtoName"
Subject="Subject"
MailBody="MailBody"
FromName="FromName"
MailFrom="[e-mail]"
MailServer="smtp.163.com"
Priority=1
MailServerUserName="fff5212008"
MailServerPassWord="123456"
MailDomain="smtp.163.com"

SendMail MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom,MailServer,Priority,MailServerUserName,MailServerPassWord,MailDomain
else
response.Write("wrong")
end if


'========================================================
'函数名：SendMail
'作 用：用Jmail组件发送邮件(需要验证形式)
'说 明: Jmail4.3组件重新设计了其内部结构——使用
' Message对象代替原来的单一对象Jmail.smtpmail发送
' 邮件，有些方法需要身份验证的(如163、yahoo等)，
' 可以用下面的方法解决：
'参 数：MailtoAddress ----收信人地址
' MailtoName -----收信人姓名
' Subject -----主题
' MailBody -----信件内容
' FromName -----发信人姓名
' MailFrom -----发信人地址
' MailServer -----用来发邮件的SMTP服务器地址
' Priority -----信件优先级
' MailServerUserName -----登录用户名
' MailServerPassWord -----登录密码
' MailDomain -----域名
'========================================================
function SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom,MailServer,Priority,MailServerUserName,MailServerPassWord,MailDomain)
on error resume next
Dim JMail
Set JMail=Server.CreateObject("JMail.Message")
if err then
SendMail= "<br><li>没有安装JMail组件</li>"
err.clear
exit function
end if
JMail.Charset="gb2312" '邮件编码
JMail.silent=true
JMail.ContentType = "text/html" '邮件正文格式
JMail.ServerAddress= MailServer '用来发送邮件的SMTP服务器
'如果服务器需要SMTP身份验证则还需指定以下参数
JMail.MailServerUserName = MailServerUserName '登录用户名
JMail.MailServerPassWord = MailServerPassWord '登录密码
JMail.MailDomain = MailDomain '域名（如果用“[e-mail]”这样的用户名登录时，请指明domain.com
JMail.AddRecipient MailtoAddress,MailtoName '收信人
JMail.Subject=Subject '主题
JMail.HMTLBody=MailBody '邮件正文（HTML格式）
'JMail.Body=MailBody '邮件正文（纯文本格式）
JMail.FromName=FromName '发信人姓名
JMail.From = MailFrom '发信人Email
JMail.Priority=Priority '邮件等级，1为加急，3为普通，5为低级
JMail.Send(MailServer)
SendMail =JMail.ErrorMessage
JMail.Close
Set JMail=nothing
response.Write(MailtoAddress&"发送成功！")
End function
%>
我怎么查了没收到信啊？那里错了？