jmail mysql_利用VB+jmail发送邮件源码

利用VB+jmail发送邮件源码。

一、首先要下载并注册jmail组件，将jmail.dll组件放到C:\Windows\System32(32位)或C:\Windows\SysWOW64(64位)目录，运行里输入regsvr32 C:\Windows\System32\jmail.dll 或者regsvr32 C:\Windows\SysWOW64\jmail.dll注册jmail组件。

二、测试邮箱用的是163邮箱，需要获取客户端授权密码。

三、VB源码如下：

Option Explicit

Private Sub SendMail()

Dim jmail As Object

Set jmail = CreateObject("JMAIL.Message") ''建立发送邮件地对象

jmail.Silent = True ''一般不用改

jmail.Charset = "gb2312" ''信件地语言编码

jmail.ContentType = "text/html" ''信件地格式html或纯文本

jmail.From = "xxxx@163.com" ''发信人邮箱地址

jmail.FromName = "xiaoyaogzs" ''发信人姓名

jmail.AddRecipient "xxxx@163.com" ''收信人邮箱地址

jmail.Subject = "邮件测试" ''邮件主题

jmail.Body = "测试"

jmail.MailServerUserName = "xxxx@163.com" ''服务器登陆用户名(您地邮件地址)

jmail.MailServerPassWord = "********" ''服务器登陆密码(您地邮件密码)

jmail.Send ("smtp.163.com") ''发件服务器地址

jmail.Close

Set jmail = Nothing

End Sub

Private Sub command1_Click()

Call SendMail ''调用SendMail过程，发送邮件

End Sub