急求：有关于Jmail邮件发送最简单的问题...在线等

[yjxp]

以下是偶在csdn上乱拼出来的代码,请高手指点
ASP.NET(VB.NET)
----------------
Dim Jmail As New Message()
Dim mailbody As String
mailbody="邮件内容。"

Jmail.Message Msg=new jmail.Message();

'Set Jmail=server.createobject("Jmail.Message")

Jmail.Charset = "gb2312"
Jmail.Silent = true
Jmail.Priority = 3
Jmail.MailServerUserName = "[e-mail]"
Jmail.MailServerPassword = "******"
Jmail.From = "[e-mail]"
Jmail.FromName = "名字"
Jmail.Subject = "信件主题"
Jmail.AddRecipient("[e-mail]")
Jmail.Body = mailbody
Jmail.Send("???.???.???.???")
-----------------------------
程序报错：编译器错误信息: BC30002: 未定义类型“Message”。

[winsalau]

jmail.Message Msg=new jmail.Message();
Msg.Logging=true;
//日志启用
Msg.Logging=true;
Msg.Silent=true;
//smtpserver用户名,密码
Msg.MailServerUserName="gl77";
Msg.MailServerPassWord="8562";
//邮件主题
Msg.Subject="测试";
//邮件内容
Msg.Body="测试";
Msg.Encoding="base64";
Msg.Charset="gb2312";
//发信人
Msg.From="[e-mail]";
Msg.FromName="gl77";
//添加收信人
Msg.AddRecipient( "[e-mail]","gl77","ok");
//优先级
Msg.Priority=3;
//添加附件
Msg.AddAttachment("d:\\新建 文本文档.txt",true,"txt");
if(Msg.Send("smtp.163.com",false))
Count.Text="ok"

[winsalau]

以上的用户名和密码等,需要你修改成你自己的
还有附件位置,邮件服务器位置

[focusonline]

Imports jmail
Imports System.Data
Imports System.Data.SqlClient
Module sendmail
Public Overloads Function mail(ByVal strMailTo As String, ByVal strSubject As String, ByVal strHtml As String, ByVal intGrade As Integer) As Boolean
Try
Dim objMail As New Message()
With objMail
.Charset = "GB2312"
.From = "***"
.FromName = "***"
.AddRecipient(strMailTo)
.Subject = strSubject
.AppendHTML(strHtml)
.Priority = intGrade
.Send("username:[e-mail]")
.Close()
End With
objMail = Nothing
Return True
Catch
Return False
End Try
End Function