现状:每个月有1000多个工资条要发,通过WORD邮件合并功能来群发,但是因为发送频率太高,系统判断为垃圾邮件。希望每个邮件之间有5秒钟的间隔时间(“工资明细”是工资原件,“邮件合并发送工资条”引用工资明细表的数据进行发送工资条)。 思路:通过VBA实现:发一个邮件~等待5秒钟~点击下一个~发下一个邮件(重复直到发完全部) 因小弟不会自己写VBA,通过录制宏得到以下代码,现在求各位大神帮忙: 1.运行宏的时候弹出窗口“请输入需要发送的邮件数量 ”,按ENTER确认(用于第3点重复发送邮件次数的条件) 2.在第二个End With后加入sleep语句,等待5秒钟 3.Sleep后加入语句:重复第一个End With后的动作,即:点击下一个~发下一个邮件(重复XX次,发完全部)
以上三个功能万望各位大神指点,小弟不胜感激!!! Sub 宏1() ' ' 宏1 宏 ' ' With ActiveDocument.MailMerge .Destination = wdSendToEmail .SuppressBlankLines = True With .DataSource .FirstRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord .LastRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord End With .Execute Pause:=False End With ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord With ActiveDocument.MailMerge .Destination = wdSendToEmail .SuppressBlankLines = True With .DataSource .FirstRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord .LastRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord End With .Execute Pause:=False End With End Sub
|