Outlook数秒待ってから実行してください

Question

Outlook 2010には受信メールを自動的に印刷する簡単なVBAコードがあります。

このスクリプトは、電子メールがルールを介して送信されるたびに実行されるように設定されています。ここで

コードです：

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

どのように私は、このスクリプトは10秒待ってから、それを実行することができます。

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

Answer 1

試してみてください：

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 

または：

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 

または：

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