那位高手指导一下，JEMAIL 怎么使用？？谢谢，下面是JEMAIL代码

[ziyulin0311]

<%
'-----------------------------------------------------------------------
'--- EMAIL邮件处理类模块
'--- Copyright (c) 2004 Aspsky, Inc.
'--- Mail: [e-mail] http://www.aspsky.net
'--- 2004-12-18
'-----------------------------------------------------------------------
'--- 设置项
'-----------------------------------------------------------------------
'--- ServerLoginName 设置您的邮件服务器登录名
'--- ServerLoginPass 设置登录密码
'--- SendSMTP 设置SMTP邮件服务器地址
'--- SendFromEmail 设置发件人的E-MAIL地址
'--- SendFromName 设置发送人名称
'--- ContentType 设置邮件类型 默认：text/html
'--- CharsetType 设置编码类型 默认：gb2312
'--- SendObject 设置选取组件 1=Jmail,2=Cdonts,3=Aspemail
'-----------------------------------------------------------------------
'--- 属性
'-----------------------------------------------------------------------
'--- SendMail Email, Topic, MailBody 收件人地址，标题，邮件内容
'-----------------------------------------------------------------------
'--- 获取信息
'-----------------------------------------------------------------------
'--- ErrCode 信息编号 0=正常
'--- Description 相应操作信息
'--- Count 发送邮件数
'-----------------------------------------------------------------------

Class Wt_SendMail
Public Count,ErrCode,ErrMsg
Private LoginName,LoginPass,SMTP,FromEmail,FromName,Object,Content_Type,Charset_Type
Private Obj,cdoConfig

Private Sub Class_Initialize()
Object = 0
Count = 0
ErrCode = 0
Content_Type = "text/html"
Charset_Type = "gb2312"
End Sub

Private Sub Class_Terminate()
If Isobject(Obj) Then
Set Obj = Nothing
End If
If IsObject(cdoConfig) Then
Set cdoConfig = Nothing
End If
End Sub

'设置您的邮件服务器登录名
Public Property Let ServerLoginName(Byval Value)
LoginName = Value
End Property

'设置登录密码
Public Property Let ServerLoginPass(Byval Value)
LoginPass = Value
End Property
'设置SMTP邮件服务器地址
Public Property Let SendSMTP(Byval Value)
SMTP = Value
End Property
'设置发件人的E-MAIL地址
Public Property Let SendFromEmail(Byval Value)
FromEmail = Value
End Property
'设置发送人名称
Public Property Let SendFromName(Byval Value)
FromName = Value
End Property
'设置邮件类型
Public Property Let ContentType(Byval Value)
Content_Type = Value
End Property
'设置编码类型
Public Property Let CharsetType(Byval Value)
Charset_Type = Cstr(Value)
End Property
'获取错误信息
Public Property Get Description()
Description = ErrMsg
End Property
'设置选取组件 SendObject 0=Jmail,1=Cdonts,2=Aspemail
Public Property Let SendObject(Byval Value)
Object = Value
On Error Resume Next
Select Case Object
Case 1
Set Obj = Server.CreateObject("JMail.Message")
Case 2
Set Obj = Server.CreateObject("CDONTS.NewMail")
Case 3
Set Obj = Server.CreateObject("Persits.MailSender")
Case 4
Set Obj = Server.CreateObject("CDO.Message") 'window 2003 new SendMailCom Object
Case Else
ErrNumber = 2
End Select
If Err<>0 Then
ErrNumber = 3
End If
End Property

Private Property Let ErrNumber(Byval Value)
ErrCode = Value
ErrMsg = ErrMsg & Msg
End Property
Private Function Msg()
Dim MsgValue
Select Case ErrCode
Case 1
MsgValue = "未选取邮件组件或服务器不支持该组件！"
Case 2
MsgValue = "所选的组件不存在！"
Case 3
MsgValue = "错误：服务器不支持该组件!"
Case 4
MsgValue = "发送失败!"
Case Else
MsgValue = "正常。"
End Select
Msg = MsgValue
End Function

[lovebaby]

Set jmail = Server.CreateObject("JMAIL.Message")
Jmail.Charset = "gb2312"

Jmail.Silent = true

Jmail.Priority = 5

Jmail.From = mailsend ' （发信人邮件地址）

Jmail.MailServerUserName = mailsend ' (这里换成您的SMTP验证帐号，也就是发信人的用户名)

Jmail.MailServerPassword = mailuserpass ' （这里填写您的SMTP认证密码，也就是发信人的密码）

Jmail.FromName = mailname ' （这里填写发信人的姓名）

Jmail.Subject = mailusername '（这里填写邮件标题）

Jmail.AddRecipient trim(request("useremail")) '（这里填写收信人的邮件地址）

Jmail.htmlbody=mailbody ' Mailbody参数是信件正文

Jmail.Send(mailaddress) ' (这里填写发件服务器，如mail.8sea.com，需要与SMTP验证信息对应)

if not Jmail.Send(mailaddress) then
sendmsg="<p>· 系统出错，注册信息资料未能发送到您的邮箱!</p>"
else
sendmsg="<p>· 您的注册信息已经发往您的邮箱，请注意查收!</p>"
end if

[cloudgamer]

主要是服务器要支持

[BoyHaXin]

飘过

[ziyulin0311]

Public Sub SendMail(Byval Email,Byval Topic,Byval MailBody)
If ErrCode <> 0 Then
Exit Sub
End If
If Not Isarray(Email) Then
If Email="" or ISNull(Email) Then Exit Sub
End If
If Object>0 Then
Select Case Object
Case 1
Jmail Email,Topic,MailBody
Case 2
Cdonts Email,Topic,Mailbody
Case 3
Aspemail Email,Topic,Mailbody
Case 4
CDOMessage Email,Topic,Mailbody
Case Else
ErrNumber = 2
End Select
Else
ErrNumber = 1
End If
End Sub

Private Sub Jmail(Email,Topic,Mailbody)
Dim EmailI
On Error Resume Next
Obj.Silent = True
Obj.Logging = True
Obj.Charset = Charset_Type
If Not(LoginName = "" Or LoginPass = "") Then
Obj.MailServerUserName = LoginName '您的邮件服务器登录名
Obj.MailServerPassword = LoginPass '登录密码
End If
Obj.ContentType = Content_Type
Obj.Priority = 1
Obj.From = FromEmail
Obj.FromName = FromName
If Isarray(Email) Then
For EmailI=0 To ubound(Email,2)
Obj.AddRecipient Email(0,EmailI)
Next
else
Obj.AddRecipient Email
end if
Obj.Subject = Topic
Obj.Body = Mailbody
If Err<>0 Then
ErrMsg = ErrMsg & "发送失败!原因：" & Err.Description
ErrNumber = 4
Else
Obj.Send (SMTP)
Obj.ClearRecipients()
If Err<>0 Then
ErrMsg = ErrMsg & "发送失败!原因：" & Err.Description
ErrNumber = 4
Else
Count = Count + 1
ErrMsg = ErrMsg & "发送成功!"
End If
End If
End Sub

Private Sub Cdonts(Email,Topic,Mailbody)
On Error Resume Next
Obj.From = FromEmail
Obj.To = Email
Obj.Subject = Topic
Obj.BodyFormat = 0
Obj.MailFormat = 0
Obj.Body = Mailbody
If Err<>0 Then
ErrMsg = ErrMsg & "发送失败!原因：" & Err.Description
ErrNumber = 4
Else
Obj.Send
If Err<>0 Then
ErrMsg = ErrMsg & "发送失败!原因：" & Err.Description
ErrNumber = 4
Else
Count = Count + 1
ErrMsg = ErrMsg & "发送成功!"
End If
End If
End Sub

Private Sub Aspemail(Email,Topic,Mailbody)
On Error Resume Next
Obj.Charset = Charset_Type
Obj.IsHTML = True
Obj.username = LoginName '服务器上有效的用户名
Obj.password = LoginPass '服务器上有效的密码
Obj.Priority = 1
Obj.Host = SMTP
'Obj.Port = 25 ' 该项可选.端口25是默认值
Obj.From = FromEmail
Obj.FromName = FromName ' 该项可选
Obj.AddAddress Email,Email
Obj.Subject = Topic
Obj.Body = Mailbody
If Err<>0 Then
ErrMsg = ErrMsg & "发送失败!原因：" & Err.Description
ErrNumber = 4
Else
Obj.Send
If Err<>0 Then
ErrMsg = ErrMsg & "发送失败!原因：" & Err.Description
ErrNumber = 4
Else
Count = Count + 1
ErrMsg = ErrMsg & "发送成功!"
End If
End If
End Sub

Private Sub CDOMessage(Email,Topic,Mailbody)
On Error Resume Next
If Not IsObject(cdoConfig) Then
Call CreatCDOConfig()
End If
Set Obj = Server.CreateObject("CDO.Message")
With Obj
Set .Configuration = cdoConfig
'.From = FromEmail
.To = Email
.Subject = Topic
.TextBody = Mailbody
.Send
End With
If Err<>0 Then
ErrMsg = ErrMsg & "发送失败!原因：" & Err.Description
ErrNumber = 4
Else
Count = Count + 1
ErrMsg = ErrMsg & "发送成功!"
End If
End Sub

Private Sub CreatCDOConfig()
On Error Resume Next
Dim Sch
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = Server.CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(sch & "smtpserver") = SMTP
'.Item(sch & "smtpserverport") = 25
.Item(sch & "sendusing") = 2 'cdoSendUsingPort CdoSendUsing enum value = 2
.Item(sch & "smtpaccountname") = FromName '"My Name"
.Item(sch & "sendemailaddress") = FromEmail '"""MySelf"" <[e-mail]>"
.Item(sch & "smtpuserreplyemailaddress") = 25 '"""Another"" <[e-mail]>"
'.Item(sch & "smtpauthenticate") = cdoBasic
.Item(sch & "sendusername") = LoginName
.Item(sch & "sendpassword") = LoginPass
.update
End With
If Err<>0 Then
ErrMsg = ErrMsg & "发送失败!原因：" & Err.Description
ErrNumber = 4
End If
End Sub
End Class

Dim WtMail,MailBody,MailSubject,ToMail,MailLink
Set WtMail= New Wt_SendMail
WtMail.ServerLoginName="[e-mail]"
WtMail.ServerLoginPass="bombom"
WtMail.SendSMTP="smtp.263xmail.com"
WtMail.SendFromEmail="[e-mail]"
WtMail.SendFromName="UI管理系统（通知）"
WtMail.SendObject=1
MailLink="<br>点击查看:<a href='http://www.wingtech.cn/ui/manage'>http://www.wingtech.cn/ui/manage</a>"
%>

[dh20156]

首先要服务器支持，即服务器端已注册JMAIL组件！
实例参考：
http://www.jxxg.com/blog/dh20156_369/article.asp?id=76

[ziyulin0311]

谢谢

[badwish]

那位“高人”写的class呀？
人家jmail难道不可以直接用？还要你再多此一举？

[ziyulin0311]

那位帮忙指导一下

[ziyulin0311]

up

[李睿_Lee]

另外，SMTP要可用，验证信息要正确（且一般要和发信人地址相符），