S
soworl
so funny~
compare below two code,
It looks like,
just define Reminder, it affects something.
That means I have to find other solution. T.T
1> Reminder is not show up. nothing happen except one msgbox. it looks good.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub colReminders_BeforeReminderShow(Cancel As Boolean)
MsgBox colReminders.Count
Cancel = True
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
2> Reminder show up on time. (if you set the reminder 2mins, not show up
before 2mins, but show up 0mins - only one time at on schedule time)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub colReminders_BeforeReminderShow(Cancel As Boolean)
Dim objRem As Reminder
Dim objItem As Object
MsgBox colReminders.Count
Cancel = True
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Thanks,
soworl
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
compare below two code,
It looks like,
just define Reminder, it affects something.
That means I have to find other solution. T.T
1> Reminder is not show up. nothing happen except one msgbox. it looks good.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub colReminders_BeforeReminderShow(Cancel As Boolean)
MsgBox colReminders.Count
Cancel = True
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
2> Reminder show up on time. (if you set the reminder 2mins, not show up
before 2mins, but show up 0mins - only one time at on schedule time)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub colReminders_BeforeReminderShow(Cancel As Boolean)
Dim objRem As Reminder
Dim objItem As Object
MsgBox colReminders.Count
Cancel = True
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Thanks,
soworl
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''