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?

```
Option Explicit

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

```