mail corrompu

[sorayuth]

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

[rko]

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

[oguruma]

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%]

[sorayuth]

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

[michel]

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