Solved: How to delay macro for 30 sec in Outlook 2007

[guatelize]

Hello

I'm looking a 30 seconds delay for this macro :

Private Sub Application_MAPILogonComplete()

TestAttachmentRule
End Sub

Thanks

[JP2112]

How about this?

Private Sub Application_MAPILogonComplete()
Dim currenttime As Date

currenttime = Now
Do Until currenttime + TimeValue("00:00:30") <= Now
Loop

Call TestAttachmentRule
End Sub

[guatelize]

Thanks, works as wished.
Have a good day