发送邮件的DLL 不需要Outlook 支持32和64位系统

opiona

使用前先设置可以第三方发送邮件
DLL有效期到: 2023-7-31


附件:    Excel发送邮件DLL.rar (22.94 KB, 下载次数: 161)

2022-5-31 08:27 上传

点击文件名下载附件

1. Sub 发送邮件()
   
2.    
   
3.     ''' <param name="StrSendMail">发件人信息: 发邮件的信箱地址|登录密码|登陆用户名|Smtp设置|SSL设置</param>
   
4.     ''' <param name="ToAddress">收件人地址，多个收件人用[;]分开</param>
   
5.     ''' <param name="Subject">邮件主标题</param>
   
6.     ''' <param name="Body">邮件正文，换行，颜色，字体等用html标识符，如换行： BR</param>
   
7.     ''' <param name="Attachment"> 附件文件路径，多个附件用[;]分开，保证文件存在，否则不会被添加；默认是：没有</param>
   
8.     ''' <param name="CCAddress">抄送人地址，多个抄送人用[;]分开，默认是：没有</param>
   
9.     ''' <param name="BCAddress">密送人地址，多个密送人用[;]分开，默认是：没有</param>
   
10.     ''' <param name="BoolAsync">是否异步发送，默认是：否</param>
    
11.     ''' <param name="BooErrMsg">发生错误是否显示错误信息，默认是：是</param>
    
12.     ''' <param name="ZCM">授权码;试用，请输入参数值：QQ14885553</param>
    
13.     ''' <returns>BOOLEAN</returns>
    
14.     '     Public Function SendMail(ByVal StrSendMail As String, ByVal ToAddress As String, ByVal Subject As String, ByVal Body As String _
    
15.         '                                    , Optional ByVal Attachment As String = "", Optional ByVal CCAddress As String = "" _
    
16.         '                                    , Optional ByVal BCAddress As String = "", Optional ByVal BoolAsync As Boolean = False _
    
17.         '                                    , Optional ByVal BooErrMsg As Boolean = True, Optional ByVal ZCM As String = "") As Boolean
    
18.     '
    
19.    
    
20.     Dim SendM
    
21.     Set SH = Sheets("界面")
    
22.    
    
23.     Rem 发件人信息设置
    
24.     StrSendMail = SH.Cells(1, 2).Value                           '发件人Email
    
25.     StrSendMail = StrSendMail & "|" & SH.Cells(4, 2).Value       '邮箱密码
    
26.     StrSendMail = StrSendMail & "|" & SH.Cells(2, 2).Value       '邮箱用户名
    
27.     StrSendMail = StrSendMail & "|" & SH.Cells(3, 2).Value       'smtp服务器
    
28.     StrSendMail = StrSendMail & "|" & SH.Cells(5, 2).Value       '端口
    
29.    
    
30.     Rem 邮件信息设置
    
31.     Subject = "测试邮件标题"        '邮件标题
    
32.     Body = "Html格式邮件内容：<BR>测试邮件<BR>的内容"        ' Html格式邮件内容"
    
33.     MailTo = "opiona@163.com"   ' 收件人Email"
    
34.     FromName = "xxxx"            '发件人姓名
    
35.    
    
36.     Rem 附件 可以多个
    
37.     AttachFile = ThisWorkbook.Path & "\发送邮件_成功.txt"   '添加附件 第一个
    
38.     AttachFile = AttachFile & ";" & ThisWorkbook.Path & "\发送邮件_成功.txt"   '添加附件  第二个 以此类推
    
39.    
    
40.     Rem 开始发送
    
41.     Set SendM = CreateObject("GTDSendMail.SendMail")
    
42.     MsgBox SendM.SendMail(StrSendMail:=StrSendMail, ToAddress:=MailTo, Subject:=Subject, Body:=Body, Attachment:=AttachFile, ZCM:="QQ14885553")
    
43.    
    
44.     Rem 仅为了展示链接设置
    
45.     Range("D2").Value = StrSendMail
    
46.    
    
47. End Sub

复制代码

morpheus126

请教一下，请问和CDO比起来有什么更优的地方吗？谢谢

opiona

morpheus126 发表于 2022-5-31 13:25
请教一下，请问和CDO比起来有什么更优的地方吗？谢谢

没用过CDO  不知道差别
你可以测试一下 看看有什么差别!

楚雪飘扬

你好，请部下，如果要在邮件正文添加图片或工作表内容，代码要如何改

opiona

楚雪飘扬 发表于 2022-7-22 11:17
你好，请部下，如果要在邮件正文添加图片或工作表内容，代码要如何改

html信件模板: https://wenku.baidu.com/view/899 ... edb6f1aff00bfd57050

ddmc

morpheus126 发表于 2022-5-31 13:25
请教一下，请问和CDO比起来有什么更优的地方吗？谢谢

cdo 一般要 使用
"http://schemas.microsoft.com/cdo/configuration/"    '微软服务器网址

有自动把数据送上门的嫌疑

112ppp

运行到“Set SendM = CreateObject("GTDSendMail.SendMail")”代码时变成黄色，提示“运行时错误” 429' :
ActiveX部件不能创建对象”，是怎么回事？

opiona

112ppp 发表于 2023-5-13 16:10
运行到“Set SendM = CreateObject("GTDSendMail.SendMail")”代码时变成黄色，提示“运行时错误” 429' :
...

注册 DLL控件

danielchen1225

简单问题复杂化了，根本用不到dll控件

aecn

还有有效期. 再者不清楚DLL里面是啥代码，涉及密码我是不敢用啊。
对事不对人，楼主见谅。