asp程序怎样使用jmail

<%

function SendMail(SMTPServer,SMTPServerUserName,SMTPServerPassword,MailDomain,MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom,Priority)

dim JMail, msg

set JMail=Server.CreateObject("JMail.Message")

JMail.Charset="gb2312" '编码

JMail.silent=true '设置为true,JMail不会抛出例外错误.

JMail.ContentType = "text/plain" '邮件正文格式

'JMail.ServerAddress = SMTPServer '用来发送邮件的SMTP服务器(无效)

'指定邮件服务器的地址。可以指定多个服务器，用分号点开。可以指定端口号。

'如果serverAddress保持空白，JMail会尝试解决远程邮件服务器，然后直接发送到服务器上去。

'如：JMail.ServerAddress = &tquomail.mydom.netmail2.mydom.net:2500"

JMail.MailServerUserName = SMTPServerUserName '登录用户名

JMail.MailServerPassWord = SMTPServerPassword '登录密码

JMail.MailDomain = MailDomain '域名（如果用“name@domain.com”这样的用户名登录时，请指明domain.com

JMail.AddRecipient MailtoAddress,MailtoName '收信人

JMail.Subject = Subject '主题

JMail.Body = MailBody '邮件正文（纯文本格式）

JMail.FromName = FromName '发信人姓名

JMail.From = MailFrom '发信人Email

JMail.Priority = Priority '邮件等级12345

msg = JMail.Send(SMTPServer)

JMail.Close

set JMail = nothing

SendMail = msg

end function

%>

1.WEB开发，在ASP.Net中引用System.Web.Mail类 2.使用JMail组件 第一种方法 MailMessage mm = new MailMessage() mm.From = myReader["FromEmail"].ToString() mm.To = myReader["ToEmail"].ToString() mm.Subject = myReader["Subject"].ToString() mm.Body = strBody mm.BodyFormat = MailFormat.Html mm.Fields.Add("", "1")//basic authentication mm.Fields.Add("", myReader["UserName"].ToString())//set your username here mm.Fields.Add("", myReader["UserPassword"].ToString())//set your password here SmtpMail.SmtpServer = myReader["Smtp"].ToString() SmtpMail.Send(mm) 第二种方法自己去下载Jmail组件，看资料

是你没配置好吧，我用ASP配置的就可以，下面是我写的JMAIL发送邮件的函数

<%

response.addHeader "content-type","text/htmlcharset=utf-8"

Sub SendMail

On Error Resume Next

Dim msg

set msg = Server.CreateObject("JMail.Message")

If err<>0 Then

Err.clear

'response.write("Jmail组件没有被安装，请联系系统管理员")

'response.End()

End If

msg.charset="gb2312"

msg.From = "service@qkweb.net"

msg.FromName = "启科网络"

msg.MailServerUserName="service@qkweb.net"

msg.MailServerPassWord="123456"

msg.AddRecipient mailto

msg.Subject = mailtitle

msg.htmlBody = mailbody &vbCrLf

msg.appendText ""&vbCrlf

msg.appendText Now()&vbCrLf

msg.Send("smtp.qq.com")

End Sub

%>

调用方法就是 ,先设置收件人，和内容，再call调用

如：

<%

mailto = "test@qkweb.net"

mailbody = "请问一个网站程序设计的问题"

Call SendMail

%>

---