Private Sub Application_Reminder(ByVal Item As Object)
     'эту процедуру помещаем в ThisOutlookSession
       
     Dim apti As AppointmentItem
     Dim subj As String
       
     'в Outlook вручную должна быть создана встреча с темой subj (см.ниже)
     'напоминанием "0 мин" и временем начала = желаемому (например, 17:10)
       
     'если напоминалка взлетела не от встречи - сразу выходим, другие нам не интересны
     If TypeName(Item) <> "AppointmentItem" Then Exit Sub
       
     Set apti = Item
       
     subj = "Отправка файлов в 17:10"
      
     'проверяем, что встреча - наша
     If apti.Subject = subj Then
       
         'удаление напоминалки
         apti.Application.Reminders.Remove subj
           
         'далее - собственно код,выполняющий задачу
         'Call что-то полезное
         MsgBox "Это напомнила о себе встреча: " & apti.Subject
           
         '"заводим" ту же встречу на следующий раз, к примеру, через 5 минут
         With apti
             .Start = DateAdd("n", 5, Now)
             .End = DateAdd("n", 2, .Start)
             .ReminderSet = True
             .ReminderMinutesBeforeStart = 0
             .Save
         End With
           
     End If
       
     Set apti = Nothing
       
End Sub