利用VB+jmail发送邮件源码

原创 小姚  2020-12-24 12:37  阅读 382 次

利用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
本文地址:https://www.xiaoyaogzs.com/3562.html
关注我们:请关注一下我们的微信公众号:扫描二维码小姚工作室的公众号,公众号:小姚户外
版权声明:本文为原创文章,版权归 小姚 所有,欢迎分享本文,转载请保留出处!

发表评论


表情