第一次用jmail 出错,求救

baikaishui_0825 2005-02-22 02:43:26
过程如下:
运行:regsvr32 jmail.dll
执行
<%
function SendMail(SMTPServer,sender,mailto,subject,msg)'这个是一个函数,在程序中可以直接调用。
dim JMail
'on error resume next
'等待功能扩充
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.LazySend = true '这个属性是将邮件放入缓冲直至发出为止,的不到任何的错误信息
JMail.Charset = "euc-kr" '设定邮件的字符集,默认为"US-ASCII" 一般中文用"gb2312"
JMail.ContentType = "text/html" '这个邮件的头设置, 默认为 "text/plain" 能设置成你需要的任何情况。 '你想发送HTML信息,改这个头文件为 "text/html"
JMail.ServerAddress =SMTPServer 'SERVER的地址。可以有很多的SERVER地址,后可跟端口号
JMail.Sender = sender'邮寄的地址
JMail.Subject = subject'邮件的标题。

JMail.AddRecipient mailto'加入一个收件者

JMail.Body = msg 'UBBCode(htmlencode(MSG))E-Mail的主体

JMail.Priority = 1'邮件的优先级,可以范围从1到5。越大的优先级约高,比如,5最高,1最低,一般设置为3


JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")'addheader加入一个头信息
'remote_addr发出请求的机器的IP地址
JMail.Execute'执行邮件发送到SERVER
set jMail=nothing
if err then '检测
SendMail=err.description
err.clear
else
SendMail="OK"
end if
end function
%>
<%
'调用说明:
strHTML = "<table width=""80%"" border=""1"">" &chr(13) &chr(10) '这里需要加上两个"
strHTML = strHTML & " <tr>" &chr(13) &chr(10) 'chr(13)硬回车chr(10)软回车
strHTML = strHTML & "<td align=""center"" valign=""middle"">HELLO~!</td>" &chr(13) &chr(10)
strHTML = strHTML & "</tr>" &chr(13) &chr(10)
strHTML = strHTML & "</table>"
email="baikaishui20000@163.com"
SMTPServer="192.168.18.104:25"
sender="baikaishui20000@163.com"
subject="HEY!"
msg="<HTML><BODY><CENTER>" & strHTML & "</CENTER></BODY></HTML>"
mailto=email'收信人email

call SendMail(SMTPServer,sender,mailto,subject,msg)'调用函数
%>
错误如下:
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp,行242

jmail.SMTPMail 错误 '8000ffff'

Win32 Error. Code: 87. 参数错误。

/jmail.asp,行23

...全文
353 27 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
27 条回复
切换为时间正序
请发表友善的回复…
发表回复
baikaishui_0825 2005-03-01
  • 打赏
  • 举报
回复
up
butcher2002 2005-02-28
  • 打赏
  • 举报
回复
要指定smtp服务器。。

SMTPServer="192.168.18.104:25"

你指定的这个smtp服务器是否存在?是否服务器已经启动?
baikaishui_0825 2005-02-28
  • 打赏
  • 举报
回复
up
baikaishui_0825 2005-02-28
  • 打赏
  • 举报
回复
常见的其他组件 组 件 名 称 支持及版本
SoftArtisans.FileUp (SA-FileUp 文件上传) ×
SoftArtisans.FileManager (SA-FM 文件管理) ×
JMail.SMTPMail (JMail 邮件发送) √ 4.4
CDONTS.NewMail (CDONTS 邮件发送 SMTP Service) √ 1.2
Persits.MailSender (ASPEmail 邮件发送) ×
LyfUpload.UploadFile (LyfUpload 文件上传) ×
Persits.Upload (ASPUpload 文件上传) ×

baikaishui_0825 2005-02-28
  • 打赏
  • 举报
回复
自己再up
mymyal123 2005-02-28
  • 打赏
  • 举报
回复
up
baikaishui_0825 2005-02-28
  • 打赏
  • 举报
回复
The message was undeliverable. All servers failed to receive the message
.execute()
{
Trying server mail:192.168.18.104:25
192.168.18.104:25 failed with the message: "WSAGetLastError() returned 10061, Connection refused"
No socket for server. ConnectToServer()
1 of 1 servers failed
}



baikaishui_0825 2005-02-28
  • 打赏
  • 举报
回复
set msg = Server.CreateOBject( "JMail.Message" )


msg.Logging = true
msg.silent = true

msg.From = "test@mydomain.com"
msg.FromName = "My Realname"
msg.AddRecipient "baikaishui20000@163.com"
msg.Subject = "How you doin?"
msg.Body = "Hello Jim" & vbCrLf & vbCrLf & "How's it going? ..."


if not msg.Send( "192.168.18.104" ) then
Response.write "<pre>" & msg.log & "</pre>"
else
Response.write "Message sent succesfully!"
end if

%>
bananasmiling 2005-02-28
  • 打赏
  • 举报
回复
要指定smtp服务器。。
JMail.Send ("smtp.sina.net")
baikaishui_0825 2005-02-28
  • 打赏
  • 举报
回复
Simple Mail Transport Protocol (SMTP)这个服务已经启动
192.168.18.104:25
是本机的ip和端口
baikaishui_0825 2005-02-24
  • 打赏
  • 举报
回复
up
yjb136 2005-02-23
  • 打赏
  • 举报
回复
学习中
baikaishui_0825 2005-02-23
  • 打赏
  • 举报
回复
up
baikaishui_0825 2005-02-23
  • 打赏
  • 举报
回复
smtp服务器要怎么设置?
baikaishui_0825 2005-02-23
  • 打赏
  • 举报
回复
呵呵,偶是第一次用这个,哈
我在另外一台电脑上运行这jmail没问题
但是就在偶的电脑,同样的东西,就是出错
错误如下:
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp,行242

jmail.SMTPMail 错误 '8000ffff'

The message was undeliverable. All servers failed to receive the message

/jmail1.asp,行13
bananasmiling 2005-02-23
  • 打赏
  • 举报
回复
晕..怎么这个你都不会啊...上面是要用到邮件发送服务器的地址..用户名和密码 的..不然对方是收不到你的信的..

知道了吧..

比如:
JMail.MailServerUserName = "liuixao" '输入smtp服务器验证登陆名 (邮局中任何一个用户的Email地址) -----改
JMail.MailServerPassword = "649" '输入smtp服务器验证密码 (用户Email帐号对应的密码) -----改
JMail.Send ("smtp.sina.net") 'smtp服务器地址(mail.您的域名)-----改
mymyal123 2005-02-23
  • 打赏
  • 举报
回复
学习
kellyrong 2005-02-22
  • 打赏
  • 举报
回复
這應該是郵局中某個郵箱的帳戶和密碼
baikaishui_0825 2005-02-22
  • 打赏
  • 举报
回复
再up
baikaishui_0825 2005-02-22
  • 打赏
  • 举报
回复
JMail.MailServerUserName = "liuixao" '输入smtp服务器验证登陆名 (邮局中任何一个用户的Email地址) -----改
JMail.MailServerPassword = "649" '输入smtp服务器验证密码 (用户Email帐号对应的密码) -----改
这些在那里设置的?
加载更多回复(7)
jmail  jmail是一种服务器端的邮件发送组件,和个人用的客户端邮件软件不一样的。jmail是在服务器上给程序用来发邮件用的,除了软件编程人员,其他人一般平常用不上。   jmail是一个第三方邮件操作组件,通常位于web服务器端,和站点程序紧密配合来接收及提交邮件到邮件服务器的控件,让网站拥有发送邮件既接收邮件的功能   与此相同的还有CDONTS.NewMail,Persits.MailSender,IISmail.Iismail等等,他们唯一区别就是jmail只需要注册一个dll组件即可被调用,而其他则需要在iis上设置发布smtp服务器   (1)Body(信件正文) : 字符串   如:JMail.Body = "这里可以是用户填写的表单内容,可以取自Form。"   (2)Charset(字符集,缺省为"US-ASCII") : 字符串   如:JMail.Charset = "US-ASCII"   (3)ContentTransferEncoding : 字符串   指定内容传送时的编码方式,缺省是"Quoted-Printable"   如:JMail.ContentTransferEncoding = "base64"   (4)ContentType(信件的contentype. 缺省是"text/plain") : 字符串   如果你以HTML格式发送邮件, 改为"text/html"即可。   如:JMail.ContentType = "text/html"   (5)Encoding : 字符串   设置附件编码方式(缺省是"base64)。 可以选择使用的是"base64", "uuencode" or "quoted-printable" 如:JMail.Encoding = "base64"   (6)Log(Jmail创建的日志,前提loging属性设置为true,见下面) : 字符串   如:使用Response.Write( JMail.Log )语句列出日志信息。   (7)Logging(是否使用日志) : 布尔型   如:JMail.Logging = true   (8)Recipients : 字符串   只读属性,返回所有收件人   如:Response.Write( "" + JMail.Recipients + "" );   (9)ReplyTo(指定别的回信地址) : 字符串   如:JMail.ReplyTo = "qiao198@hotmail.com"   (10)Sender( 发件人的邮件地址) : 字符串   如:JMail.Sender = "qiao198@21cn.com"   (11)SenderName(发件人的姓名) : 字符串   如:JMail.SenderName = "一克"   (12)ServerAddress(邮件服务器的地址) : 字符串   你可以指定多个服务器,用分号点开。可以指定端口号。   如果serverAddress保持空白,JMail会尝试远程邮件服务器,然后直接发送到服务器上去。   如:JMail.ServerAddress = "mail.21cn.net.cn"   (13)Subject(设定邮件的标题,可以取自Form。):字符串   如:JMail.Subject = "客户反馈表单"   (14)添加文件附件到邮件   如:JMail.AddAttachment( "c:anyfile.zip" )   (15)AddCustomAttachment( FileName, Data )   添加自定义附件.   如:JMail.AddCustomAttachment( "anyfile.txt", "Contents of file" );   (16)AddHeader( Header, Value )   添加用户定义的信件标头。   如:JMail.AddHeader( "Originating-IP","192.158.1.10" );   (17)AddRecipient(收件人):字符串   如:JMail.AddRecipient( "qiao198@hotmail.com" );   (18)AddRecipientBCC( Email ),密件收件人:   如:JMail.AddRecipientBCC( "qiao198@hotmail.com" );   (19)AddRecipientCC( Email ) ,抄送收件人:   如:JMail.AddRecipientCC( "" )   (20)AddURLAttachment( URL, 文档名)   下载并添加一个来自url的附件. 第二个参数"文档名", 用来指定信件收到后的文件名。   如:JMail.AddURLAttachment( "http://www.chinabs.net/jmail.zip", "jmail" )   (21)AppendBodyFromFile( 文件名) ,将文件作为信件正文:   如:JMail.AppendBodyFromFile( "c:anyfile.txt" )   (22)AppendText( Text )   追加信件的正文内容,比如增加问候语或者其它信息。   如:JMail.AppendText( "欢迎访问本站!" )   (23)Close() ,强制JMail关闭缓冲的与邮件服务器的连接:   如:JMail.Close()   (24)发送【调用格式:objJMail.Send(SMTPServerAddress[:Port])】   例:JMail.Send("smtp.163.com")   Jmail具有以下特点:   (1)可以发送附件;   (2)详细日志能力,便于你查看问题所在;   (3)设置邮件发送的优先级;   (4)支持多种格式的邮件发送,比如说以HTML或者TXT的方式发送邮件。这是个免费的组件。   (5)密件发送/(CC)抄送/紧急信件发送能力;   (6)最关键的就是--免费的组件,不必花钱,所以非常值得使用。

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧