这次伟明设计来讲一下利用Excel VBA群发邮件的例子，其实用价值就不用我再次强调了。Jmail是一个专门用来发邮件的组件，我们不必知道它怎么来的，只要会用就好。Jmail在32位系统和64位系统上都可以使用，只不过两者注册的方法不同，其它是完全一样的。这里之所以强调64位是因为大多数人只会在32位上注册，网上一些解决64位上注册的方法都有些烦琐。先说32位系统上注册，将本节示例文件中的Jmail.dll文件放到"C:\windows\system32\"下，然后在窗口右下角的windows键的搜索框里输入"regsvr32 jmail.dll"回车即可，提示注册成功。在64位上注册其实只有一点不同，需要将Jmail.dll放入"C:\Windows\SysWOW64\"文件夹下，在搜索框里输入"regsvr32 C:\Windows\SysWOW64\jmail.dll"回车，提示注册成功即可。
在使用Jmail的时候需要先开启邮箱的smtp服务，各种邮箱开启的方式大同小异，163邮箱是默认开启的不需设置，其它邮箱在设置中找到POP3/IMAP/SMTP服务，将POP3/SMTP和IMAP/SMTP勾选就可以了，大多数的企业邮箱也是默认开启的。
下面伟明设计带大家来看一个单独发一封邮件的代码来学习怎么利用Jmail来发邮件
|
以下是引用片段：
Sub SendMail()
Dim jmail, t
Set jmail = CreateObject("JMAIL.Message") ’建立发送邮件的对象
jmail.silent = False ’屏蔽例外错误，返回FALSE跟TRUE两值j
jmail.logging = True ’启用邮件日志
jmail.Charset = "GB2312" ’邮件的文字编码为国标
jmail.AddAttachment "D:/附件.txt" ’附件地址
’jmail.ContentType = "text/plain" ’正文格式为字符串，可省略
jmail.ContentType = "text/html" ’正文的格式为HTML格式
jmail.AddRecipient "623900980@qq.com" ’邮件收件人的地址
jmail.From = "yuzhoufeiyu@163.com" ’发件人的E-MAIL地址
jmail.MailServerUserName = "yuzhoufeiyu@163.com" ’登录邮件服务器所需的用户名
jmail.MailServerPassword = "*****" ’登录邮件服务器所需的密码
jmail.Subject = "Mail Subject" ’邮件的标题
’jmail.Body="欢迎访问伟明设计 http://www.viming.com" ’字符串格式的正文
jmail.HtmlBody = "Html格式的正文" ’邮件的内容
jmail.Priority = 1 ’邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
jmail.Send ("smtp.163.com") ’执行邮件发送（通过邮件服务器地址）
If Err.Number <> 0 Then
MsgBox "发送失败", vbOKOnly + vbInformation, "提示"
Else
MsgBox "发送成功", vbOKOnly + vbInformation, "提示"
End If
jmail.Close ’关闭对象
Set jmail = Nothing
End Sub
|
上面的代码是利用163邮箱来发单封邮件，里面的参数都已经加了注释，在使用时需要修改的地方包括附件地址、发件人邮箱、发件人邮箱密码，收件人邮箱地址、标题、正文和邮件服务器地址。在这里解释下邮件服务器地址怎么得到，最快的方法那就是百度，例如你想知道163邮箱的邮件服务器地址，只要百度中搜索”163邮箱smtp服务器"即可，其他邮箱也可如此，当然如果你要想知道smtp是什么东西那你更要去问度娘了。
石家庄网站建设公司－伟明网站设计,拥有专业设计团队为企业提供网站设计,网页制作,网址是www.viming.com
