Outlook Poczekaj kilka sekund, a następnie wykonaj

Question

Mam prosty kod VBA w programie Outlook 2010, który automatycznie drukuje przychodzące wiadomości e-mail.

Ten skrypt jest uruchamiany za każdym razem, gdy e-mail wchodzi przez regułę.

Oto kod:

Sub printradu(Item As Outlook.MailItem) 
     MessageAndAttachmentProcessor Item, True 
End Sub 

Jak mogę dokonać tego skryptu odczekaj 10 sekund, a następnie uruchom go. Muszę coś takiego:

Sub printradu(Item As Outlook.MailItem) 
     'Wait 10 seconds then execute the code below: 
     MessageAndAttachmentProcessor Item, True 
End Sub 

Answer 1

Spróbuj:

Sub printradu(Item As Outlook.MailItem) 
    'Wait 10 seconds then execute the code below: 
    Application.Wait(Now + TimeValue("0:00:10")) 
    MessageAndAttachmentProcessor Item, True 
End Sub 

czyli

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 
Sub printradu(Item As Outlook.MailItem) 
    'Wait 10 seconds then execute the code below: 
    Sleep(10000) 
    MessageAndAttachmentProcessor Item, True 
End Sub 

czyli

Sub printradu(Item As Outlook.MailItem) 
    'Wait 10 seconds then execute the code below: 
    Threading.thread.sleep(10000) 
    MessageAndAttachmentProcessor Item, True 
End Sub