Reminder Fire

This event occurs just before a Reminder item fires. The following example sends a notification to a pager device when the reminder fires:

Private Sub colReminders_ReminderFire(ByVal ReminderObject As Reminder) Dim strBody As String Dim objNotify As Mailltem strBody = ReminderObject.Caption Set objNotify = objOutlook.Createltem(olMailltem) objNotify. Body = strBody

'Must use trusted COM Add-in to prevent 0M guard prompts objNotify.To = "[email protected]" objNotify.Send End Sub

Was this article helpful?

0 0

Post a comment