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

opiona · 发表于 2023-5-14 22:25

aecn 发表于 2023-5-13 23:28
还有有效期. 再者不清楚DLL里面是啥代码，涉及密码我是不敢用啊。
对事不对人，楼主见谅。

给你一段OutLook的代码参考

Rem 开始发送邮件
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
OutMail.To = StrTO '//'//收件人地址
'.CC = "" '//抄送地址
'.BC = "" '//密送地址
Rem 邮件标题
OutMail.Subject = YearMonth & "工资条"
'.Body = "Hi there"
Rem 邮件正文
StrMail = "<div style=""font-size:14px;font-family: 微软雅黑;"">"
StrMail = StrMail & StrNAME & " 您好：附件中为" & YearMonth & "工资条，请查看并注意保密。<BR></div>"
OutMail.HTMLBody = StrMail
Rem 添加附件
OutMail.Attachments.Add PathOUT
Rem 发送时显示OUTLOOK界面
OutMail.Display
Rem 发送邮件
OutMail.send
Rem 删除临时文件
Kill PathOUT

复制代码

闻启学 · 发表于 2023-6-10 19:02

多谢楼主，我正想要这个例子

aman1516 · 发表于 2023-6-12 19:47

opiona 发表于 2023-5-14 22:25
给你一段OutLook的代码参考

除了一些公司限制，邮件应用不知还能走多远，
应会慢慢被更新的应用如云端之类的取代吧
楼主对第三方很感兴趣啊，特别绕过一些正版收费软件的
感谢分享，学习学习

aman1516 · 发表于 2023-6-12 19:50

danielchen1225 发表于 2023-5-13 22:37
简单问题复杂化了，根本用不到dll控件

愿闻其详，能具体说说么

aman1516 · 发表于 2023-6-12 22:28

你这个 DLL 与 PDF插件 for VBA 重名，两个都用那不是有冲突了

opiona · 发表于 2023-6-13 09:48

aman1516 发表于 2023-6-12 22:28
你这个 DLL 与 PDF插件 for VBA 重名，两个都用那不是有冲突了

名字不一样的啊

aman1516 · 发表于 2023-6-15 20:12

opiona 发表于 2023-6-13 09:48
名字不一样的啊

不好意思自己弄错了，
PDF插件还在开发新的实用功能么

闻启学 · 发表于 2023-6-18 08:43

opiona 发表于 2023-5-13 16:56
注册 DLL控件

亲注册了DLL 空间还出现这个报错

闻启学 · 发表于 2023-6-18 08:43

opiona 发表于 2023-5-13 16:56
注册 DLL控件

注册后根本在引用这里找不到对应的类

opiona · 发表于 2023-6-18 11:02

闻启学发表于 2023-6-18 08:43
注册后根本在引用这里找不到对应的类

Set SendM = CreateObject("GTDSendMail.SendMail")
可以这样引用

		自动登录	找回密码
密码			免费注册

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