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文件，确定就可以了。

---