We have a Domino server providong service for about 250 users. Its a Version 6.5.3 running in a 2003 server. We are having periodic problems because it hangs every now and then and it needs to be re-booted. We have been able to identify the problem but I need some advised. The problem is caused by and Agent that was inserted to the Mail box template by a previous Notes Administrator, I know I can forcibly update the template with the orifinal file and get rid of the agent (which is schedule to run every day a 1AM on every mailbox) but first I want to identify it’s pourpuse. I can tell by the commands that it’s looking for items on the “Tasks” seccion of each database and then performing a task on each one of them, but I can’t figure out exactly what is performing on them and why. I’m pasiting the agent in hopes that you guys can look at it and tell me what it’s doing and if I really need to perhaps implement this on a more efficient maner.
Any help would be appreciated.
PS: As you can imagine I’m not a Developer.
Sub Initialize
Dim session As New NotesSession
Dim db As notesdatabase
Dim viewTodo As NotesView
Dim note As NotesDocument
Dim dtToday As NotesDateTime
Dim viewEntries As NotesViewEntryCollection
Dim viewEntry As NotesViewEntry
Dim vTodo As Variant
' Initialize variables
Set db = session.currentdatabase
Set viewTodo = db.GetView("Tasks")
If (viewTodo Is Nothing) Then Exit Sub
' Enumerate the todo entries
Set viewEntries = viewTodo.AllEntries()
Set viewEntry = viewEntries.GetFirstEntry()
While Not(viewEntry Is Nothing)
If (viewEntry.IsDocument()) Then
Set note = viewEntry.Document
If (CanProcessNote(note)) Then
If (NOTEUserIsCreator(note)) Then
Set vTodo = New NotesCSEventOwnerDocument(2)
Else
Set vTodo = New NotesCSEventParticipantDocument(2)
End If
' See if this is a repeating entry
If (note.HasItem("OrgRepeat")) Then Call InitTodoObject(vTodo, note)
Call vTodo.Init(note)
Call vTodo.SetDueState()
Call vTodo.SetCalendarDateTime()
If Not(note.GetItemValue("DueState")(0)=10) And Not(note.GetItemValue("DueState")(0)=9) Then
Call vTodo.SetViewIcon()
End If
Call note.replaceitemvalue("tmpMod", "1")
Call vTodo.MarkTempItems()
If (note.HasItem("OrgRepeat")) Then
vTodo.RepeatModify = REPEAT_CURRENT
Call vTodo.CreateRepeatExceptions(REPEAT_CURRENT)
End If
Call note.save(True, True, True)
End If
End If
Set viewEntry = viewEntries.GetNextEntry(viewEntry)
Wend
End Sub