Calendar Reminders do not appear

I have a user on my network that is not receiving pop ups for reminders. He enables reminders to “notify him” with an alarm, but it seems that he is not receiving the alarms regardless. I checked his settings to make sure he has alarms enabled on his notes.ini, but I am not sure where else to check on his profile to make sure his alarms are properly enabled.

Subject: Calendar Reminders do not appear

make sure the mail file and mail server fields in the Location document are correctly matched to thos on the server. This code sent to the user in a button can fix this. NOTE: this will set the MailFile field to match what is in the MailFIle field in the person doc so if the user has a local replica that is in a different sbudirectory than that which is referenced on the server then you will need to fix this.

Sub Click(Source As Button)

On Error Goto trap



Dim ns As New NotesSession

Dim nab As NotesDatabase

Dim db As NotesDatabase

Dim nabvw As NotesView

Dim pab As NotesDatabase

Dim pbvw As NotesView

Dim pdoc As NotesDocument

Dim ldoc As NotesDocument



Set db = ns.CurrentDatabase

If db.Server = "" Then

	Msgbox "Sorry, you cannot run this utility from a local mail file.", 16, "Aborting ..."

	Exit Sub

End If

Set nab = ns.GetDatabase( db.Server, "names.nsf")

Set nabvw = nab.GetView( "($Users)" )

usercn$ = ns.UserName

Set pdoc = nabvw.GetDocumentByKey( Lcase(usercn$), True)

mailserver$ = Ucase(pdoc.MailServer(0))

mailfile$ = Lcase(pdoc.MailFile(0))

maildomain$ = Ucase(pdoc.MailDomain(0))



' Add address book from mail server

' Call ws.AddDatabase( mailserver$, "names.nsf")



' Cleanup locations



Set pab = ns.GetDatabase( "", "names.nsf" )

Set pabvw = pab.GetView ( "($Locations)" )

Set ldoc = pabvw.GetFirstDocument

chg% = 0

count% = 0



While Not ldoc Is Nothing

	If Ucase(ldoc.MailServer(0)) <> mailserver$ Then

		ldoc.MailServer = mailserver$

		chg% = chg% + 1

	End If

	

	If Lcase(ldoc.MailFile(0)) <> mailfile$ Then

		ldoc.MailFile = mailfile$

		chg% = chg% + 1

	End If

	

	If Ucase(ldoc.Domain(0)) <> maildomain$ Then

		ldoc.Domain = maildomain$

		chg% = chg% + 1

	End If

	' Only save if the ldoc was modified

	If chg% > 0 Then

		Call ldoc.Save( True, False )

		count% = count% + 1

		chg% = 0

	End If

	Set ldoc = pabvw.GetNextDocument(ldoc)

Wend



If chg% = 0 Then

	Msgbox "Your current configuration is correct.", 64, "No problems found ..."

Else

	Msgbox Cstr(count%) & " Location Document(s) required corrections", 64, "Fix Location Docs ..."

End If

End

trap:

errorText$ = "Error " & Err & " at line number " & Erl & " Error: " & Error$ & " - attempting to update location docs."

Msgbox errorText$, 0, "Report this error ..."

Exit Sub

End Sub

Subject: Calendar Reminders do not appear

I’ve seen this happen with my own calendar alerts (although not for many months now).

When it happens I turn off the alerts in the preferences and then turn them back on. That seems to help.

I don’t remember if I needed to close out of the client and go back in before turning the alerts back on.

Subject: RE: Calendar Reminders do not appear

Hi Tony

I had a similar problem with a user last week.

Turned out he was set to server replica but his location document was pointing to the wrong database (actually, an unexistant one).

Somehow, Notes would find the right DB but it was not able to find the Calendar info because of the wrong pointer.

I know, it sounds simple but maybe something to check

Jacques

Subject: Calendar Reminders do not appear

Most of the users on my network were migrated over after our company was bought out, and the user mentioned to me that he has not received an alarm for a reminder since that point, so I reinstalled notes on his PC, and low and behold every single alert appeared, and I had him test out a new reminder with an alert and it works great

Subject: Calendar Reminders do not appear

Have a look at the hidden folder ($alarms) unless the apppointment appears there you won’t get an alarm.

Maybe this folder has been deleted or something.