Hallo,
ja wir öffnen die Maildatenbank, die aber wie ein Archiv aussah. 7.0.2 ist die Version.
Ich hab's jetzt über einen Agenten gemacht:
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim item As notesitem
Set db = session.CurrentDatabase
Set doc = db.GetProfileDocument("Archive Database Profile")
If doc Is Nothing Then
Print "No profile found"
Else
Print "Profile found"
Set item=doc.GetFirstItem("ArchiveDatabase")
If Not item Is Nothing Then
Call item.remove
End If
End If
Call doc.Remove( True)
End Sub
Nachdem man den Agenten auf das Mailfile ausgeführt hat ist wieder alles wie es sein soll.
Zum Glück musste ich nicht alles über den Designer wieder hinbiegen, das wäre eine Arbeit gewesen... ;)
Danke trotzdem.
Deinen Tip versuche ich bei der nächsten Datenbank die sich plötzlich in ein Archiv verwandelt. :)