JMAIL组件没有安装。或注册。。
成都创新互联是专业的佳县网站建设公司，佳县接单;提供成都网站设计、成都网站建设,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行佳县网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!
最好下载4.4pro破解版安装。
或者regsvr32 注册下 dll文件
% '参数说明 'Subject : 邮件标题 'MailAddress : 发件服务器的地址,如smtp.163.com 'Email : 收件人邮件地址 'Sender : 发件人姓名 'Content : 邮件内容 'Fromer : 发件人的邮件地址 Sub SendAction(subject, mailaddress, email, sender, content, fromer) Set jmail = Server.CreateObject("JMAIL.SMTPMail") '创建一个JMAIL对象 jmail.silent = true 'JMAIL不会抛出例外错误，返回的值为FALSE跟TRUE jmail.logging = true '启用使用日志 jmail.Charset = "GB2312" '邮件文字的代码为简体中文 jmail.ContentType = "text/html" '邮件的格式为HTML的 jmail.ServerAddress = mailaddress '发送邮件的服务器 jmail.AddRecipient Email '邮件的收件人 jmail.SenderName = sender '邮件发送者的姓名 jmail.Sender = fromer '邮件发送者的邮件地址 jmail.Priority = 1 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值 jmail.Subject = subject '邮件的标题 jmail.Body = content '邮件的内容 '由于没有用到密抄跟抄送，这里屏蔽掉这两句，如果您有需要的话，可以在这里恢复 'jmail.AddRecipientBCC Email '密件收件人的地址 'jmail.AddRecipientCC Email '邮件抄送者的地址 jmail.Execute() '执行邮件发送 jmail.Close '关闭邮件对象 End Sub '调用此Sub的例子 Dim strSubject,strEmail,strMailAdress,strSender,strContent,strFromer strSubject = "这是一封用JMAIL发送的测试邮件" strContent = "JMail组件发送测试成功！" strEmail = "runbing@eyou.com" strFromer = "runbing@eyou.com" strMailAddress = "mail.ubbcn.com" Call SendAction (strSubject,strMailaddress,strEmail,strSender,strContent,strFromer) % 给你一个发邮件的例子。 html head /head body hello % set msg = Server.CreateOBject("JMail.Message") msg.From = "×××@163.com" msg.FromName = "Decheng" msg.MailServerUserName="×××"（填电子邮件的用户名） msg.MailServerPassWord="×××"（填电子邮件的密码） msg.AddRecipient "×××"（填你想发送的电子邮箱） msg.Subject = "How are you?" msg.Body = "This w3 JMail stuff rocks!" vbCrLf msg.appendText "Here’s some text." msg.appendText "And here’ s some more" msg.Send( "smtp.163.com" )（如果用的不是163，请换成其它的SMTP服务器） response.write "ok" % /body /html 如果你想知道如何收邮件，可以查看Jmail的官方文档，安装了Jmail4.5后，默认在C:\Program Files\Dimac\w3JMail中可以找到。关于Jmail4.5的下载，请自己在网上搜索。
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组件，看资料
抄个自己的回答：
建议你去看阿江翻译的JMAIL开发文档：
把这几个对象看一下：
POP3。MESSAGES，MESSAGE，ATTS，ATT
过程：
1。先用POP3对象连接邮件服务（当然你邮箱要开POP设置）并接受到MESSAGES
2。取到MESSAGES后，轮循到MESSAGE对象后。
3。对MESSAGE解析，得到邮件标题，内容，收发人，
4。如果有附件还要对ATTS对象轮循并解析（可以把附件存在本地或写链接）
MESSAGES是信件集
MESSAGE是单封信件
ATTS是附件集
ATT是单个附件
————————————————————————
发信分割线
————————————————————————
拿个别人的回答改了一下，俺VB几乎没用过，只会VB。NET
先注册DLL
然后VB代码如下:
Private Sub Command1_Click()
SendMail "标题", "正文"
End Sub
Sub SendMail(Optional ByVal sSubject As String, _
Optional ByVal sBody As String)
Dim jmail
Set jmail = CreateObject("jmail.Message")
jmail.Charset = "gb2312"
jmail.Silent = False
jmail.Priority = 1 '邮件状态,1-5 1为最高
jmail.MailServerUserName = "XXX" 'Email帐号
jmail.MailServerPassWord = "XXX" 'Email密码
jmail.FromName = "XXX" '发信人姓名
jmail.From = "XXX@XXX.XXXX" '发邮件地址地址
jmail.Subject = sSubject '主题
jmail.AddRecipient "XXX@XXX.XXXX" '收信人地址
jmail.body = sBody '信件正文
jmail.Send ("smtp.163.com") 'SMTP服务器，如smtp.sohu.com
Set jmail = Nothing
End Sub
全了。FromName 和FROM 建议都用邮件地址，不然有的邮箱不收的
VB里的语法不同于ASP网页代码，你这写法错了。VB中不是用server来创建对象的。参考：
Set
j=
CreateObject("jmail.Message")
前提是Jmail组件的DLL文件已经安装到系统中了。
