jmail使用问题，望兄弟帮忙

[ykwang]

我用VB.NET代码 我已经引用了jmail
在页头上已经录入imports jmail
Dim jmail As jmail.SMTPMail
jmail.Silent=TRUE
jmail.Logging = True
jmail.Charset = "gb2312"
jmail.ContentType = "text/html"
jmail.MailServerUserName = "yklcsoft"
jmail.MailServerPassword = "1306"
jmail.From = "[e-mail]"
jmail.FromName = "dfsdf"
jmail.AddRecipient("[e-mail]")
jmail.Subject = "您在dfs"
jmail.Body = ":你好!"
jmail.send("smtp.mail.yahoo.com.cn")
jmail.Execute()
jmail = Nothing

当执行在jmail.Silent = True的时候,说未将对象引用设置到对象的实例
可编写的时候一切正常啊,它自己自动提示属性的.

[gshope]

Dim jmail As jmail.Message

[rgbcn]

Dim jmail As jmail.Message

改

Dim jmail As new jmail.Message

[rgbcn]

Dim JMail As New jmail.SMTPMail()

[rgbcn]

or

Dim JMail
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress =""
JMail.Sender = ""
.
.
.
JMail.Execute()
JMail.Close()

[ykwang]

但是提示说 Set JMail = Server.CreateObject("JMail.SMTPMail") 未能创建类型为“JMail.SMTPMail”的对象。

[yusuan]

Imports jmail
Public [Overloads] Sub mail(ByVal strMailTo As String, ByVal strSubject As String, ByVal strHtml As String, ByVal intGrade As Integer)
Try
Dim objMail As New Message()
With objMail
.Charset = "GB2312"
.From = "***"
.FromName = "***"
.AddRecipient(strMailTo)
.Subject = strSubject
.AppendHTML(strHtml)
.Priority = intGrade
.Send("emailusername:[e-mail]")
.Close()
End With
objMail = Nothing
Catch
End Try
End Sub

[ykwang]

谢大家帮忙，搞了半天，是对象没有注册。
打入REGSVR32 +DLL文件就行了。