expand Microsoft outlook objects Double click This outlook session and add
Private Sub Application_Reminder(ByVal Item As Object)
If TypeOf Item Is AppointmentItem Then
MsgBox "Reminder about upcoming meeting!",
vbSystemModal, "Attention!"
End If
End Sub
