vb中的jmail4.0控件

http://www.longda.cn/BreadWeb/FtpFolder/Bread/w3JMail43Personal.exe下载后安装在VB目录下就可以了!

在Jmail的安装目录下找到Jmail.dll把路径复制出来，例如我的是安装在c:\Jmail.dll（把他复制到c盘也行）

然后在开始菜单运行命令

注册Jmail：Regsvr32 c:\Jmail.dll

注册后vb 的 工程 里引用 Jmail（自己应该找得到）

然后写下代码,记得把你的正确邮箱账号密码也替换了

发邮件代码：

Option Explicit

Sub SendMail(Optional ByVal sSubject As String, _

Optional ByVal sBody As String, _

Optional ByVal sFileName As String)

Dim jmail

Set jmail = CreateObject("jmail.Message")

jmail.Charset = "gb2312"

jmail.Silent = False

jmail.Priority = 1 '邮件状态,1-5 1为最高

jmail.MailServerUserName = "fitgore" 'Email帐号

jmail.MailServerPassWord = "123456" 'Email密码

jmail.FromName = "邮件" '发信人姓名

jmail.From = "fitgore@163.com" '发邮件地址地址

jmail.Subject = "qq来信了" '主题

jmail.AddRecipient "fitgore@163.com" '收信人地址

jmail.Body = sBody '信件正文

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

Set jmail = Nothing

End Sub

Private Sub Command1_Click()

SendMail text1.text, text2.text, ""

MsgBox "OK"

End Sub

jmail不支持qq邮箱，你可以换成sohu的，sohu的测试可以

下载jmail后，有一个jmail_free.exe的安装程序，需要使用它进行安装， 然后"c:\\programfile\dimac\w3jmail"安装文件夹中有jmail.dll等文件。

如果你想在Visual Basic 2005（其他软件类似）中导入jmail，则在应用程序项目中，点击“项目--添加引用--浏览，选择你刚才的那个jmail.dll文件，确定就可以了。

jmail组件是在服务器端支持的组件,如果你自己的电脑有IIS 或者其他的服务器 你也可以自己安装 jmail发送邮件的原码有很多.

<%

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 = "Server Address" '发送邮件的服务器

jmail.AddRecipient Email'邮件的收件人

jmail.SenderName = "SenderName"'邮件发送者的姓名

jmail.Sender = "Email Address"'邮件发送者的邮件地址

jmail.Priority = 1 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值

jmail.Subject = "Mail Subject" '邮件的标题

jmail.Body = "Mail Body" '邮件的内容

jmail.AddRecipientBCC Email '密件收件人的地址

jmail.AddRecipientCC Email '邮件抄送者的地址

jmail.Execute() '执行邮件发送

jmail.Close'关闭邮件对象

%>

---