Marc's Musings Reality from Marc's point of view!

In Lotus Notes, a user has recurring meetings scheduled. When the reminder comes up, they acknowledge the dialog normally.

The next day, the recurring meeting will show up again along with any others that have accumulated.

In the forums and Lotus’ Technotes they indicate that you should get a handle to the user’s “CalendarSettings” profile (some refer to the “CalendarProfile” profile but you really need “CalendarSettings”) and reset the “lastAlarmDate” field to “Now”.

Using NotesPeek I could see that the user that I was dealing with had 3 CalendarSettings profiles. One for their current name, one for an early variation on their name with which they had begun their employ with us and one with the name of one of our Junior Administrators in it.

The correct profile (user’s current name) also matched the owner’s field name in the CalendarProfile but the “lastAlarmDate” field was already current. So this wasn’t going to help me. Figuring that the CalendarSettings document was likely damaged in some way, I created the following agent to blow away ALL of the calendarsettings profiles.

Get the user to exit Lotus Notes completely, then add the following agent to their mail file and run it. Don’t forget to remove it afterwards.

Then have them open Lotus Notes. They will see ALL their old reminders which they should just acknowledge. Also, some settings will need to be redone: they will go back to the week view of the calendar if they had changed it to some other view, etc.

But, compared with the annoyance of more and more accumulating meeting reminders, the reset is a minor issue.

Name:    Getcalendarsettings
Last Modification:    02/19/2009 04:05:54 PM
Comment:    [Not Assigned]
Shared Agent:    Yes
Type:    LotusScript
State:    Enabled
Trigger:    Manually From Actions Menu
Acts On:    None
LotusScript Code:
Option Public
Option Declare
Sub Initialize
    Dim sess As New notessession
    Dim coll As notesdocumentcollection
    Dim doc As NotesDocument
    Dim docdel As NotesDocument
    Set coll = sess.CurrentDatabase.GetProfileDocCollection(“Calendarsettings”)
    Set doc = coll.GetFirstDocument
    While Not doc Is Nothing
        Set docDel = doc   
        Set doc = coll.GetNextDocument(doc)
        If Not docDel Is Nothing Then
            Call docDel.Remove(True)
        End If
    Wend
End Sub

Related Posts:

• Make the NotesURL property usable

  I wanted to be able to get the url for the current document(s) in my...

• Cure for Public / Private key mismatch in Lotus Notes

  A fairly common problem in Domino / Lotus Notes is to have a mismatch between...

• Can’t see update to a meeting in your sent folder

  When you send a meeting invitation you will see it in your “Sent” folder. If...

• My Entry for Teamstudio’s Spotlight Award

  Teamstudio recently had a contest where they wanted you to showcase your applications so that...

• Searching in Lotus Notes

  There are 3 ways you can search for items in Lotus Notes: Make sure that...

• “unique fields names table size” error in Lotus Domino

  I recently had an issue where the mail boxes on one of my Domino servers...

• Winmail.dat file issue in Lotus Notes workaround (finally)

  From the timestamps I see that this gem has been available since June of 2006...

• Autoresponder LotusScript

  Below is code to create an automated response whenever someone sends a message to a...

Posted under Lotus Domino, Work Portfolio