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的测试可以

把JMAIL4.0控件打包,

在记事本中添入

@echo off

regsvr32 "JMAIL控件名称"

echo 注册完成

echo. &pause

将记事本重命名为注册！.bat

在别人电脑上双击 注册！.bat

---