<div>
<div class="content wysiwyg-content">
I have an Access database that sends mass emails out of Outlook. &nbsp;Sometimes it fills up Outlooks sendmail box too fast. &nbsp;I want to add a 3 second delay. &nbsp;I have tried this and it locks up Access. &nbsp;The Access/Outlook interface works fine. &nbsp;Just trying to get a 3 second delay. &nbsp;Thanks. 
 
 
Set rs2 = db.OpenRecordset(&quot;qryMassEmailFinal&quot;) 
If Not rs2.EOF Then rs2.MoveLast 
Do Until rs2.EOF 
 
' ***timer 
Dim ldteEnd As Date 
ldteEnd = DateAdd(&quot;s&quot;, 3000, Now) 
While Now &lt;&nbsp;ldteEnd 
Wend 
'**** 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Set MyOutlook = New Outlook.Application 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Set MyMail = MyOutlook.CreateItem(olMailItem) 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MyMail.To = rs2.Fields(&quot;email&quot;) 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MyMail.Subject = vubject 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MyMail.Body = vBody 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MyMail.Send 
 
rs2.MoveNext 
&nbsp;Loop
</div>
</div>

I have an Access database that sends mass emails out of Outlook. Sometimes it fills up Outlooks sendmail box too fast. I want to add a 3 second delay. I have tried this and it locks up Access. The Access/Outlook interface works fine. Just trying to get a 3 second delay. Thanks.


Set rs2 = db.OpenRecordset("qryMassEmailFinal")
If Not rs2.EOF Then rs2.MoveLast
Do Until rs2.EOF

' ***timer
Dim ldteEnd As Date
ldteEnd = DateAdd("s", 3000, Now)
While Now < ldteEnd
Wend
'****
 Set MyOutlook = New Outlook.Application
 Set MyMail = MyOutlook.CreateItem(olMailItem)
 MyMail.To = rs2.Fields("email")
 MyMail.Subject = vubject
 MyMail.Body = vBody
 MyMail.Send

rs2.MoveNext
 Loop

3 second timer

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.