staggered email send

In case anyone else requires this, I solved it by using the following code:

Set Mail_Object = CreateObject("Outlook.Application")
Set Mail_Single = Mail_Object.CreateItem(0)
With Mail_Single
.subject = email_subject
.To = Email_Send_To
.cc = Email_Cc
.BCC = Email_Bcc
.HTMLBody = emailbody
.DeferredDeliveryTime = DateAdd("n", 1, Now)
.send

The deferred time bit adds one minute to the send as a function of the email with outlook. In the email send loop, this can then be set by a count and delaying each email by a further 1 minute (or whatever you choose) to stagger them.

Hey okmijn,

Thanks for that code. However I seem to only be able to delay the send for the whole batch.

Is there a way I can delay the send for each email created in the merge? e.g. One email is sent, then 1 minute later the next email sends, and so forth?


Thanks
MC