outlook群发时如何设置每个邮件发送的时间间隔

darrengong · 发表于 2013-4-3 21:04

各位，当我用word的邮件合并功能，并用outlook进行群发时，若每封邮件不设置发送的时间间隔的话，会被认为是垃圾邮件而被封。请问如何实现？哪位好心人写个VBA语句，在此先谢啦。

mxk063079 · 发表于 2015-9-1 11:32

同问，我也正在寻找解决的办法，每个月给职工发工资条的时候就很需要这个方法。

闻启学 · 发表于 2015-9-1 22:23

mxk063079 发表于 2015-9-1 11:32
同问，我也正在寻找解决的办法，每个月给职工发工资条的时候就很需要这个方法。

Public Sub Delayms(lngTime As Long)
Dim StartTime As Single
Dim CostTime As Single
StartTime = Timer

Do While (Timer - StartTime) * 1000 < lngTime
DoEvents
Loop

End Sub

这个是自定义函数

huachixt · 发表于 2020-9-10 15:40

mxk063079 发表于 2015-9-1 11:32
同问，我也正在寻找解决的办法，每个月给职工发工资条的时候就很需要这个方法。

你找到解决了吗

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