|
Soms zijn er routines in de postbus die niet juist verwijderd zijn. Hierdoor is de routine al weg, maar wordt nog wel uitgevoerd. Dit stukje code, uitgevoerd vanuit de postbus met het probleem, verwijderd alle Routines uit de map Routines, en verwijderd ook de regels uit het Agenda profiel. Hiermee zou het probeleem en ook ALLE(!) routines weg zijn. 'Verwijder_ALLE(!)_Routines:
Option Declare Sub Click(Source As Button) On Error Goto ErrorHandler Dim session As NotesSession Dim db As NotesDatabase Dim item As NotesItem Dim profile As NotesDocument Dim View As NotesView Dim Doc As NotesDocument Set session = New NotesSession Set db = session.CurrentDatabase Set View = db.GetView("Rules") Set Profile = View.GetFirstDocument Do Until profile Is Nothing Set Doc = view.GetNextDocument (Profile) Call Profile.Remove(True) Set Profile = Doc Loop Set profile = db.GetProfileDocument("CalendarProfile") Forall i In profile.Items If Lcase(Left(i.name,14)) = "$filterformula" Then Set item = profile.GetFirstItem(i.name) Call item.Remove End If End Forall Call profile.Save(True,False) Msgbox "Alle routines zijn verwijderd." Exit Sub ErrorHandler: Msgbox "Routines: " & Error & "(" & Err & ") on line " & Erl Exit Sub Resume End Sub
|