Modifying VBA script to delay running macro

[Legaldeejay]

Hello:

I have the below code for Outlook 365 which will run a macro after sending an email. How do I modify this to delay the macro 10 seconds after clicking send, and how do I limit this code to my exchange account email which is the default email account? Thanks.

Option Explicit


Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
With Item
Call BatchResendEmailsMacro
End With
End Sub

 

[Diane Poremsky]

Do you want to delay the macro or delay sending the message? If you delay it, the macro may not work as the message is gone. You can watch the sent folder - this would allow the macro to apply only the sent folders you're watching.



Use an if statement to check the account or from address -

Dim oAccount As Outlook.Account

For Each oAccount In Application.Session.Accounts
If oAccount = "name of account" Then

'do whatever

End if.

 

[Legaldeejay]

I want to delay the macro. I already have a rule which delays sending the message. Based on the above, what will the entire VBA Code look like?

 

[Diane Poremsky]

This code will set a timer - API Timer - VBOffice