outlook定时发送邮件 【Outlook篇02】如何让Excel自动发邮件？

1.

上一期我们推了如何让Excel自动发邮件；链接:

如何让Excel自动发送邮件？

之后很多朋友提出了各种各样的问题...这让星光深深意识到...……Excel和邮件的关系不一般。看来是时候曝光一个系列了。

2.

整理了下合伙人的问题，基本如下:

如何在不添加附件的情况下修改代码发送？

如何修改代码抄送多人？

如何修改代码添加不同的附件发送？

如何让Excel控制Lotus Notes发送邮件？

如何让Excel控制FoxMail发送邮件？

如何让Excel控制QQ邮箱发邮件？

……

3.

本期先回答前三个问题。

第一个问题，如何在不添加附件的情况下修改代码发送？

我问你个问题。只需删除我们之前代码的附件部分。点击可获得更新后的代码和模板文件。

第二个问题，如何修改代码cc多人？

.....只需用分号分隔抄送人的电子邮件地址。

例如:

。CC = "test123@163.com；test124@163.com；test124@163.com "

第三个问题，如何修改代码添加不同附件发送？

要提问，您可以首先使用Dir函数来确定相关文件是否存在，如果存在，将其添加到电子邮件中...包含代码的文件链接:

https://pan.baidu.com/s/1Kj3FlG0VPivMukrfvc_t-w

提示:

此示例代码根据人名匹配并添加附件。例如，如果您向员工崔冰冰发送电子邮件，您将在代码所在的工作簿文件夹中添加一个名为崔冰冰的文件。

带有不同附件的Sub SendMailEnvelope_2'

可变工资

朦胧如龙

字符串形式的文本变暗

将对象标记为对象

将字符串形式的字符串路径变暗

将文件名作为字符串变暗

应用

。屏幕更新=假

。使能事件=假

以…结尾

strFldPath = ThisWorkbook。路径&。""

-

工资=工作表。。当前区域

-将工资单数据加载到数组中

i = 2至UBound

=应用。指数

-工资单信息放在a2:i2区域

。选择

选择b1:i2作为邮件正文的表格内容

活动工作簿。包络可能性=真

-邮件信封可见。

用活性纸。邮件信封

strText = avntWageamp；“你好:“&；vbCrLf & amp；“给你”&；_

avntWageamp；“请查看月薪明细！”

。简介= strText

- .

用。项目

。To = avntWage

收件人。

。CC = "司库@gmail.com "

-抄送人

。Subject = avntWageamp；“月薪明细”

-主题

设置objAttach =。附件

Do While objAttach。计数>0

- .

objAttach。移除1

环

strFileName = Diramp；"*.*")

如果strFileName & gt”“那么

. Attachments.Add strFldPath & ampstrFileName

如果有指定名称的附件，请添加新附件

如果…就会结束

。运送

-发送邮件

以…结尾

以…结尾

接下来我

活动工作簿。包络可能性=假

应用

。屏幕更新=真

。启用事件=真

以…结尾

设置对象标签=无

末端接头

欢迎关注:VBA编程学习与实践