Hallo bml,
mit Profile löschen meine ich, dass du eine Schaltfläsche in einer Mail erstellen solltest mit folgendem Code:
Sub Click(Source As Button)
Dim sProfil() As String
Dim iDoc As Integer
Dim iAuswahl As Integer
Dim Kopie As NotesDocument
Dim tmpDoc As NotesDocument
Dim uiDoc As NotesuiDocument
Dim iDummi As Integer
Dim sDokument As String
Set Session = New NotesSession
Set ws = New NotesuiWorkspace
Set DB = Session.Currentdatabase
Set DC = DB.Getprofiledoccollection
Set uiDoc = ws.currentdocument
Set Doc = uiDoc.Document
On Error Resume Next
iDoc = 1
Redim sProfil( DC.Count - 1) As String
Set Profil = DC.GetfirstDocument
While Not Profil Is Nothing
Set tmpDoc = Nothing
iAuswahl = Msgbox ( "Profil Nr"+Str(iDoc) +" **-> " + Profil.Form(0) + " **löschen?" ,292)
If iAuswahl = 6 Then
Print "Lösche Profil"
Set tmpDoc = Profil
End If
iDoc = iDoc + 1
Set Profil = DC.GetNextDocument( Profil )
If Not tmpDoc Is Nothing Then Call tmpDoc.remove( True )
Wend
doc.Profile = sProfil
Call uiDoc.Refresh()
End Sub
Diese Mail Schickst du dann dem entsprechenden User. Der entsprechende User sollte dann die Schaltfläsche betätigen und alle Abfragen, ob ein Profilgelöscht werden soll, mit "Ja" bestätigen!
Nachdem dies passiert ist, müsste der Notes-Client heruntergefahren werden...die cache.ndk gelöscht werden...und der Notes-Client neugestartet werden.
Danach einfach im Mailfiel unter Werkzeuge/Vorgaben die persönlichen Einstellungen vornehemen und das wars! Danach sollte der Fehler nicht mehr erscheinen.
Gruss,
Andrycha
Thema: Domino 6.5.3 - Vorgaben - Notes Fehler (Gelesen 7237 mal)