Outlook 2000 VBA Timer

[wellas666]

This is for Outlook 2000 VBA.

Can you check what I am doing wrong with following code. It will not fire the Sub TimerProc:

Public Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Public lngRet As Long

Public Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
Debug.Print "Hiiiiiii"
KillTimer 0&, lngRet
End Sub

Public Sub test()
lngRet = SetTimer(0, 0, 100, AddressOf TimerProc)
End Sub

 

[rmikesmith]

Your code works for me without modification (for both Outlook 2000 & Excel 2000).


Regards,
Mike

 

[wellas666]

Very strange then. I put all the code in a model...

 

[rmikesmith]

A standard code module? That's what I used.


Mike

 

[wellas666]

Yes, I put them in VbaProject.OTM - Modelu1 (Code), and I have just repaired Office.