Outlook Warten Sie ein paar Sekunden, dann ausführen

Habe ich eine einfache VBA-code in Outlook 2010 druckt alle eingehenden E-Mails automatisch.

Dieses Skript wird automatisch ausgeführt, jedes mal, wenn eine E-Mail kommt durch eine Regel.

Hier ist der code:

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

Wie kann ich das Skript 10 Sekunden warten und dann ausführen. Ich brauche so etwas wie dieses: 

Sub printradu(Item As Outlook.MailItem)
       'Wait 10 seconds then execute the code below:
       MessageAndAttachmentProcessor Item, True
End Sub
InformationsquelleAutor RaduS | 2013-10-05
  1. 12

    Versuchen:

    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

    Oder:

    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

    Oder:

    Sub printradu(Item As Outlook.MailItem)
    'Wait 10 seconds then execute the code below:
    Threading.thread.sleep(10000)
    MessageAndAttachmentProcessor Item, True
End Sub
    • Vielen Dank @theghostofc
    • Nur ein quick-add-on Frage aus Neugier, wissen Sie, wie kann ich das geschehen vor dem Sub?
    • Ich weiß nicht, wie zu ausführen subs mit Regeln. Ich glaube, Sie geben ein sub ausführen für diese Regel. In diesem Fall ist dies, wo Sie wieder landen 😉
    • Was ich meinte ist...gibt es eine Möglichkeit, ich kann, legen Sie die Wartezeit von 10 Sekunden, bevor die sub startet? denn nun ist die Wartezeit innerhalb der sub.
    • 1000 Millisekunden ist nur 1 Sekunde 😉
    • danke für den Hinweis it out. Kann die erste option arbeitete für den Fragesteller, so war dies nicht darauf hingewiesen 😉 ich habe aktualisiert die Antwort 🙂
    • Zweiter Vorschlag für mich gearbeitet! Danke 🙂

    InformationsquelleAutor Vivek Jain
  2. 1

    Dieser arbeitete für mich in Outlook 2013-VBA (aus irgendeinem Grund hatte ich auch "outlook" vor dem " - Anwendung.Warten"):

    Outlook.Application.Wait (Now + TimeValue("0:00:5"))
    InformationsquelleAutor Sérgio Backes
Schreibe einen Kommentar