Help.....Lost folders after R5 upgrade 1

[fargo]

Hi
After upgrading a user to notes R5 and Replacing the database design, all of the Users 'custom' Mail folders have dissappeared!

All of the mail is still in 'all documents' folder but no folders. I know I've probably lost these for good now,
but how can I avoid this for the next user upgrade?
many thanks
Stu

 

[lamaar]

Hi,

I have seen this happen before with some of the users I support but it has been few and far between. Usually, any personal/private folders are not deleted but marked with three dots underneath (I also thisnk this is the case when downgrading). As a precaution I always not make a local copy of any mailfile I up/degrade. Why this happens I'm not too sure (although I have always been told to deselect the option 'inherit deosgn form template' when doing an up/degrade) Lamaar75@hotmail.com

 

[gulliver]

If you go to the design of the database and select Folders and highlight a folder, then click on Design in the tool bar and select Design Properties, then select the Design tab, you will see a tick-box called "do not allow design refresh/replace to modify". If this is ticked then the folders are safe.
If you select the Fields tab in the design properties, and select the $Flag field, you will see settings such as "3FYP", for example. The "P" is the protect flag.
I wrote a little agent to run against a mail database to set the relevant flag

Sub Initialize
Dim d As notesdatabase
Dim s As New notessession
Dim v As notesview
Dim doc As notesdocument
Dim fname As Variant
Dim temp As Variant

Set d = s.currentdatabase
Set v = d.getview("($folderinfo)&quot
Set doc = v.getfirstdocument

While Not(doc Is Nothing)
fname = doc.getitemvalue("$Name&quot
If Instr(1,fname(0),"$&quot = 0 Then
temp = doc.getitemvalue("$Flags&quot
If Instr(1,temp(0),"P&quot = 0 Then
'if it is not in the flags then add it to the end
'P is for prohibit design changes
Call doc.ReplaceItemValue("$Flags", temp(0) & "P&quot
doc.save 1,0
End If
End If
Set doc = v.getnextdocument(Doc)
Wend
End Sub