批量发邮件，附件被重复发送的解决方案

马行空_0314 · 发表于 2023-2-26 18:51

本帖最后由马行空_0314 于 2023-2-27 10:04 编辑

大家好，公司每个月要邮件给几十家的客户发格式固定的报表带附件，在网上查了一个周末的代码，在别人的基础上做好一个，目前可以批量发送邮件了，原本需求是每个客户带上有自己名称的附件即可，但是循环函数不太懂，导致附件会被重复发送，目前变成了：

第一封邮件带附件1，这是对的；
第二封邮件带附件1,2，附件多了；
第三封邮件带附件1,2,3；附件多了

看起来应该是循环函数的问题，请问大家这里要怎么修改才能实现，每个客户只收到含有自己名字的附件呢？

宏在模板中，其他的三个是附件，麻烦高手帮忙指点一下，多谢

马行空_0314 · 发表于 2023-2-26 18:54

本帖最后由马行空_0314 于 2023-2-26 18:57 编辑

有问题的就是红字这行，被放到循环中了，导致附件叠加，这个要怎么调整可以避免重复添加附件?

马行空_0314 · 发表于 2023-2-26 19:02

这个宏的思路是把所有的附件和对应的商户放到表格中，然后用宏自动发送邮件，邮件内容、主体这些都没问题，就是附件会重复添加，这个要如何解决？

追风少年丶斌 · 发表于 2023-2-26 19:56

'添加附件前先清空附件
CDOMail.Attachments.RemoveAll

马行空_0314 · 发表于 2023-2-27 10:01

追风少年丶斌发表于 2023-2-26 19:56
'添加附件前先清空附件
CDOMail.Attachments.RemoveAll

请问朋友这个语句加在什么地方，直接放在添加附件前面会报错

追风少年丶斌 · 发表于 2023-2-27 10:40

马行空_0314 发表于 2023-2-27 10:01
请问朋友这个语句加在什么地方，直接放在添加附件前面会报错

'变量声明放循环外面
      Dim i As Byte
      '把下面代码加到添加附件前面
      For i = CDOmail.Attachments.Count To 1 Step -1
         CDOmail.Attachments.Item(i).Delete
      Next

lilyhcn1 · 发表于 2023-2-27 11:02

别搞这么复杂的事，附件先做好，再慢慢发。否则万一出错了，你的人设就毁了。

马行空_0314 · 发表于 2023-2-27 11:05

lilyhcn1 发表于 2023-2-27 11:02
别搞这么复杂的事，附件先做好，再慢慢发。否则万一出错了，你的人设就毁了。

感谢朋友关注。附件肯定是先做好的，宏里面还留了一步复核附件，群发邮件只是让程序帮忙覆盖了重复操作邮件的部分

追风少年丶斌 · 发表于 2023-2-27 11:27

这个发邮件写的有问题
发完一份后不是在原有邮件上改
应该发完一个，新建一个
这样就不存在有前面的附件了
由于代码截图不全，不做其它判断了。

马行空_0314 · 发表于 2023-2-27 12:06

追风少年丶斌发表于 2023-2-26 19:56
'添加附件前先清空附件
CDOMail.Attachments.RemoveAll

用这位朋友的方法成功了，感谢指点~

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

[求助] 批量发邮件，附件被重复发送的解决方案

评分