mit dem Script wird das Profil-Dokument (nicht die Maske!) gelöscht.
Erstelle einen Agneten in der fehlerhaften DB mit dem Code und starte diesen.
Dim session as New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set doc = db.GetProfileDocument("CalendarProfile")
Call doc.Remove(True)Danach gehe in Werkzeuge - Vorgaben. Das Profil-Dokument dürfte, bis auf wenige Vorgabe-Werte leer sein. Versuche diese Profil zu speichern.
juchhhu...es hat geklappt...Vielen Dank für Deine Hilfe.
Hi, Ich habe genau das selbe Problem. Ich habe aber Notes 5 im einsatz. Dort funktioniert dieser Code irgendwie nicht bzw. ich bin zu dumm. Kann mir mal einer helfen???
vg Thomas
Wo haste den Code denn laufen lassen??
in einem Agenten. Aber denn nimmts da irgendwie nicht...
Der Agent funktioniert auch in Notes 5.
Schalte mal den Debugger ein und poste den Fehlertext und die Zeile.
Gruß
Dirk
.. naja habs halt in son Agent eingebaut... nur kamm da gleich ne Fehlermeldung.
Sag mir mal einer Bitte ne Schritt für Schritt Anleitung wie ich den Code in einen Agent einbaue.
Danke schon im Vorraus.
- neuen Agent erstellen (in der betroffenen DB)
- Agent-Eigenschaften: Ziel - Alle Dokumente in der Datenbank
- bei der Sprache musst Du "Lotus Script" auswählen
- Objekt "Initialize" anklicken
- und Code dort einfügen
- speichern und starten
Gruß
Dirk