Почему не работает Application.OnTime (excel) в Outlook? - VB

Формулировка задачи:

Почему не работает Application.OnTime (excel) в Outlook? Те процедура ТTest111 не запучкается через 50 сек??

Private Sub Application_NewMail()
Set objExcel = CreateObject("Excel.Application")
    objExcel.Application.OnTime Now + TimeValue("00:00:50"), "Test111"
End Sub

Решение задачи: «Почему не работает Application.OnTime (excel) в Outlook?»

textual
                            Листинг программы 
                        

                            Private Declare Function SetTimer Lib "user32" ( _
  ByVal hWnd As Long, ByVal IdTimer As Long, _
  ByVal uTimeOut As Long, ByVal TimerProc As Long _
) As Long

                        

Оцени полезность:

11 голосов , оценка 4.182 из 5

Похожие ответы