求救--ASP如何实现在线发邮件~在线等~

[mu_mu_wu]

ASP如何实现在线发邮件~

Dim Imail
Set Imail=Server.CreateObject("Imail.Message")
Imail.AddRecipient "[e-mail]"
Imail.from="[e-mail]"
Imail.Subject="系统提示！"
Imail.Body="有计算机挂了，格式化！"
Imail.send("smtp.163.com")
Imail.close

谢谢了~~！！

[mu_mu_wu]

还是有下面的错误提示：
Server 对象, ASP 0177 (0x800401F3)
无效的类别字符串

请再指点~~

谢谢了！

[richwong]

要使用组件。imail?组件 没用过

jmail等很多例子。

[mu_mu_wu]

谢谢先，

可是我们的服务器上装的是IMAIL。

搞了3天了都没有搞定~~

急呀~~

[mu_mu_wu]

再等~~

[mu_mu_wu]

提示错误：
Server 对象, ASP 0177 (0x800401F3)
无效的类别字符串
/BaoXiu/ComputerCkl.asp, 第 20 行

代码（在局域网中发邮件）：
Dim MailObj
Set MailObj=Server.CreateObject("CDONTS.Newmail")‘出错行
MailObj.AddRecipient "[e-mail]"
MailObj.from="[e-mail]"
MailObj.Subject="系统提示！"
MailObj.Body="有计算机挂了，格式化！"
MailObj.send("mail.ＸＸ.local")
MailObj.close

[sywcf]

Set msg = Server.CreateObject("Jmail.Message")
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.ISOEncodeHeaders = false
msg.MailServerUserName ="[e-mail]"或"abc"
msg.MailServerPassword ="密码"
msg.from="[e-mail]"
msg.Subject="主题"
msg.Body ="内容"
msg.AddRecipient recipient_address
msg.Send ("smtp.163.com")
set msg = nothing

[sywcf]

recipient_address改成你的收信邮箱，一定好用的。

[阿_浩]

在发一下jmail组件

'**************************************************
'函数名：SendMail
'作 用：用Jmail组件发送邮件
'参 数：MailtoAddress ----收信人地址
' MailtoName -----收信人姓名
' Subject -----主题
' MailBody -----信件内容
' FromName -----发信人姓名
' MailFrom -----发信人地址
' Priority -----信件优先级
'**************************************************
function SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom,Priority)
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

[mu_mu_wu]

再等一天，大哥们，
帮帮忙了！
兄弟谢谢了！

[sywcf]

怎么不用我的代码试一下呢。

[gslrq]

还是发不了~

[游陆]

看你给那个网站发邮件/一般都能给亚虎/hotmail发/但是不一定能给126/163/sina等发！

[eoasis]

1、CDONTS组件是否已经注册。（注意xp和2003好像只装smtp服务是不行的，需要手动注册）
－－－－个人认为粉可能是这个原因

2、看看是不是权限设置过低。

[mu_mu_wu]

出差N天，回来结帐~