Excel vba sending outlook emails

[classmaz]

hello on occasions my code goes out of sync and the send keys function fails and I end up with a stack of 100 emails. I would like to implement a button which can be used to send all open emails, i have seen this code but i get a run time 287 any help appreciated

Sub SendOpenEmails()

Set OutApp = CreateObject("Outlook.Application")

CountMail = OutApp.Inspectors.Count

For i = 1 To CountMail
Set MailToSend = OutApp.Inspectors.Item(1).CurrentItem
MailToSend.Send
Next

Set OutApp = Nothing

End Sub

 

[pbornemeier]

Probably should add a few seconds of delay in your loop.

Possible answer here:

Runtime error 287. Sending Emails through Outlook using VBA in Access

I have a case where one user would like to receive notifications of when deliveries are added to an Access Database. The simplest method I could think of was to set up an automated email via Outloo...

stackoverflow.com