Das Notes Forum
Domino 9 und frühere Versionen => Administration & Userprobleme => Thema gestartet von: Selin am 03.08.04 - 09:17:57
-
Hallo Zusammen,
ich habe heute nichtsahnend in meiner Inbox eine Mail löschen wollen. Habe sie markiert und auf Entf gedrückt.
Danach kam die Meldung: B-tree structure is invalid.
Habe dann Notes neu gestartet und meine Inbox war weg.
Hatte noch eine Kopie von der Inbox im Designer. Habe sie dann umbenannt.
Habe jetzt zwar eine Inbox aber die Mails sind alle in Alle Dokumente gewandert.
Dieses Problem hatten schon einige User bei uns. Wóran liegt das?
Bitte umn Hilfe
Danke + Gruß
-
Schau mal, ob Dir einer der Artikel aus der Support-DB von Lotus hilft.
Bezieht sich zwar aufs Directory, könnte aber auf dein Problem passen :
Design Elements Missing from Domino Directory and "B-tree Structure Is Invalid" After Opening Domino Directory (http://www-1.ibm.com/support/docview.wss?rs=475&context=SSKTWP&q1=B-tree+structure+is+invalid&uid=swg21086439&loc=en_US&cs=utf-8&lang=en)
Der Fehler bezieht sich auf die Inbox, gilt allerdings (soweit ich das sehe) nur für R 5.0 und 5.0a :
"Are You Sure You Want to Remove Inbox and Its Contents?" or "B-tree Structure Is Invalid" Errors (http://www-1.ibm.com/support/docview.wss?rs=475&context=SSKTWP&q1=B-tree+structure+is+invalid&uid=swg21086555&loc=en_US&cs=utf-8&lang=en)
-
Morgen Selin,
die Dokumente sind nicht in Alle Dokumente gewandert. Sie waren schon immer drin. (Die Auswahlformel gibt an welche Doks angezeigt werden sollen)
Die Inbox hingegen ist ein Odner ohne Selektionsformel. Man kann einfach Dokumente hineinverschieben.
Da du den Ordner gelöscht und neu angelegt hast, ist klar daß er leer ist.
Ich habe mal ein Script gefunden, das alle Dokumente in der MailDB angreift und nachschaut, ob sich das Dokument in einem Ordner befindet. Falls nicht, wird das Dokument in den Ordner ($Inbox) verschoben.
Ist zwar nicht die Lösung zum B-Tree, aber wenigstens ist deine Inbox dann wieder voll...
HTH
-dani
Hier der Code.
Dim session As New Notessession
Dim db As NotesDatabase
Dim fdoc As NotesDocument
Dim ad As NotesView
Dim adoc As NotesDocument
Dim fUNID() As String
Dim i As Integer
Dim deldate As NotesItem
Dim Chair1 As NotesItem
i = 0
Set db = session.CurrentDatabase
' Build UNID array by looping through folders, then their documents
Forall view In db.views
If view.isfolder And Not view.Name=("($All)") Then
Set fDoc = view.GetFirstDocument
While Not fDoc Is Nothing
Redim Preserve fUNID(i)
fUNID(i) = fDoc.UniversalID
i=i+1
Set fDoc = view.GetNextDocument(fDoc)
Wend
End If
End Forall
' Loop through docs in the All Documents view and compare UNIDs to each doc in the array
Set ad = db.GetView("($All)")
Set aDoc = ad.GetFirstDocument
While Not aDoc Is Nothing
i = 0
Do While i <= Ubound(fUNID)
If fUNID(i) = aDoc.UniversalID Then
Exit Do
End If
i = i + 1
Loop
Set deldate = adoc.getfirstitem("delivereddate")
Set Chair1 = adoc.getfirstitem("CHAIR")
If i > Ubound(fUNID) And Not deldate Is Nothing And Chair1 Is Nothing Then
Call adoc.PutInFolder( "($Inbox)")
End If
Set aDoc = ad.GetNextDocument(adoc)
Wend
-
dankeschön
werde es mal ausprobieren