DominoArea.org [Archive]

BonjourContexte: un utilisateur notes 5.0.11 rencontre le souci sur sa Boîte aux lettres : les dossiers personnels sont disparus malgré les applications des actions mentionnées ci-dessous : actions effectuées :1- Mettre la structure le base2-Remplacer la structure de la base avec le modèle Inotes5.ntf3-Restaurer la base via BANDE de sauvegarde4-Load convert mail\toto.nsf * inotes5.ntf5-load fixup mail\toto.nsf6-load updall mail\toto.nsf7-load update mail\toto.nsf8- load compact mail\toto.nsfmais le pbl persite l'utilisateur ne retrouve tjs pas ses dossiers persoune idée merci

suite à la restauration de la base as tu essayé d'ouvrir la base courrier à partir d'un autre client lotus sur un autre poste. En http ça donne quoi suite à la restauration

pb rencontré au moment du passage v4 - > v5 pour ceux qui avait créé des dossiers privés non partagésavais-tu fait des changements de structure au préalable ?migration récente ?va voir dans la KBase d'ibm il y a des choses sur les folders qui disparaîssent... bon c'est en UK[%sig%]

pas de migration récentetous les autres users n'ont pas de pbl . sauf cet user.

J'ai rencontré le même problème chez un utilisateur.Passe ce code après restauration de la base, cela devrait mettre un peu d'ordre dans les dossiers.Sub Click(Source As Button) Dim s As New notessession Dim w As New notesuiworkspace Dim doc As notesdocument Dim db As notesdatabase Dim Template As String Set db=s.currentdatabase Template = db.DesignTemplateName ViewCount=0 FolderCount=0 ProtectCount=0 Forall view In db.views ViewCount=ViewCount+1 viewUNID = view.universalid Set doc = db.getdocumentbyUNID(view.universalID) TitleString = doc.getitemvalue("$Title") If Instr(1,TitleString(0),"$",0)<>1 And Instr(1,TitleString(0),"(",0)<>1 Then Flags = doc.getitemvalue("$Flags") FolderFlag = Instr(1,Flags(0),"F",0) If (Not Isnull(FolderFlag) And FolderFlag<>0 And Instr(1,Flags(0),"p",0)=0) Then FolderCount=FolderCount+1 If Instr(1,Flags(0),"P",0)=0 Then ProtectCount=ProtectCount+1 AddCapitalP = Flags(0) & "P" Call doc.replaceitemvalue("$Flags", AddCapitalP) Call doc.save(1,1) Call doc.save(1,1) End If End If End If End Forall Messagebox Cstr(ViewCount) & " Design Notes found of class View" & Chr(10) & _ Cstr(FolderCount) & " Folders found that were not Private" & Chr(10) & _ Cstr(ProtectCount) & " were marked not to Refresh/Replace" _ ,,"Database modification completed" End Sub