如何运用VBA调用Jmail发送邮件

作者：绿色风分类：时间：2022-08-17 浏览：120

楼主 xmyjk	Q:如何运用VBA调用Jmail发送邮件? A:首先，要安装JMAIL组件。 jmail44.rar 然后，添加引用 Option Explicit Sub Sendemail() Dim subject, body, ishtml, htmlbody, mailto, from, fromname, smtp, username, password, attachfile subject = "VBA TEST" '邮件标题 body = "TEST" ' 邮件内容 ishtml = False ' 是否发送Html格式邮件 htmlbody = "TEST" 'Html格式邮件内容 mailto = "770488398@qq.com" ' 收件人 from = "exceltiptest@163.com" '发件人 fromname = "exceltiptest" '发件人姓名 smtp = "smtp.163.com" 'smtp服务器 username = "exceltiptest@163.com" '用户名 password = "exceltiptest1" '密码 Call JmailSend(attachfile, subject, body, ishtml, htmlbody, mailto, from, fromname, smtp, username, password) End Sub Function JmailSend(attachfile, subject, body, ishtml, htmlbody, mailto, from, fromname, smtp, username, password) Dim Jmail Set Jmail = New Jmail.Message With Jmail .MailServerUserName = fromname '设置用户名 .MailServerPassWord = password '设置密码 .AddRecipient mailto '设置收件人 .from = from '设置发件人 .fromname = fromname '设置发件人姓名 .Charset = "gb2312" '设置编码 .ContentType = "text/html" '设置格式 .Priority = 1 '设置优先权 .Logging = True ' .Silent = True ' .subject = subject '设置标题 .body = body '设置内容 '.AddAttachment = "" ' 附件 If ishtml = True Then .htmlbody = htmlbody '是否html格式，是就发送HTML格式的 If Not .send(smtp) Then JmailSend = "N" Else JmailSend = "Y" '发送并返回结果 .Close '关闭对象 End With Set Jmail = Nothing End Function jmail.zip
2楼い卋玑┾宝珼	看样子还是得用jmail才行
3楼 little-key	Jmail的收件解决了吗？
4楼花蔓	噗~ 答应同学找好久了，原来就在回首阑珊处啊妃妃V5~
5楼 335081548	现在下载都要扣BB了
6楼芐雨	这个要学习
7楼老糊涂	这个不常用

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表