Outlook timer to run code every minute

I want to create a timer function for a macro to run in Outlook.


I want a timer to run my Overdue macro every minute to check if this is still the same; so if it has been more than 4 hours then the column should be updated from No to Yes.


I have found the below code. This runs every 1 minute as the code intended to, i have made a link to my macro by

Code:

---

Call Overdue

---

before the

Code:

---

End If

---

at the end of the code

Code:

---

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


Public TimerID As Long 'Need a timer ID to eventually turn off the timer. If the timer ID <> 0 then the timer is running


Public Sub ActivateTimer(ByVal nMinutes As Long)
  nMinutes = nMinutes * 1000 * 60 'The SetTimer call accepts milliseconds, so convert to minutes
  If TimerID <> 0 Then Call DeactivateTimer 'Check to see if timer is running before call to SetTimer
  TimerID = SetTimer(0, 0, nMinutes, AddressOf TriggerTimer)
  If TimerID = 0 Then
    MsgBox "The timer failed to activate."
  End If
End Sub


Public Sub DeactivateTimer()
Dim lSuccess As Long
  lSuccess = KillTimer(0, TimerID)
  If lSuccess = 0 Then
    MsgBox "The timer failed to deactivate."
  Else
    TimerID = 0
  End If
End Sub


Public Sub TriggerTimer(ByVal hwnd As Long, ByVal uMsg As Long, ByVal idevent As Long, ByVal Systime As Long)
    'keeps calling every X Minutes unless deactivated
    If idevent = TimerID Then
      ' MsgBox "The TriggerTimer function has been automatically called!"
        Call Overdue
    End If
End Sub

---

When I run this code, I receive an error message: Compile Error, Sub or Function Not Defined for the Call Overdue line & also my Outlook crashes... I tried the code with

Code:

---

Declare PtrSafe Function

---

as well, but the same error occurs with this. Can anyone help? :)