INECO Forum Overzicht Overzicht Aanmelden Aanmelden Registreer Registreer Profiel Profiel Ledenlijst Ledenlijst Groepen Groepen Zoeken Zoeken

Spook Routines in postbus
 
 
 
 
 Geplaatst   Bericht 
Marcel Rothuizen

Marcel Rothuizen
 

Aanmelddatum: 10-11-2000
Woonplaats: Heteren (Gld)
Datum: 19-05-2005 15:05:24    Bericht: Spook Routines in postbus

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. ^o)
'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

 E-mail Website ICQ MSNM Skype Hyves LinkedIn 
Zoek in afgelopen ok
 
   Overzicht / Lotus Notes Beheer / Werkstation  
Pagina 1 van 1 

IBM LOTUS NOTES migratie doet u samen met INECO

Powered by Lotus Domino R8.5.3 on Fedora Core 14 Dit  forum is gemaakt door Intranet &  Network Consultancy. © 2011.
Voor vragen of opmerkingen  kunt u contact opnemen met:  .
Deze site is gemaakt met Lotus Notes R8.5.3 en draait op Fedora Core 14.

INECO Support Contract banner