利用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