After further investigation, it was determined that the existence of the “ArchiveDatabase” field, stored in the “Archive Database Profile” was the cause of the issue. By default, the “ArchiveDatabase” field does not exist in a mail file’s “Archive Database Profile”, but it does exist in an Archive database.
Once this field was removed, the mail file no longer appeared as an archive. The following LotusScript button code can be used to delete this field:
Sub Click(Source As Button)
Dim s As New NotesSession
Dim db As Notesdatabase
Dim doc As NotesDocument
Set db = s.CurrentDatabase
Set doc = db.GetProfileDocument("archive database profile")
If Not Doc.IsNewNote Then
Print "Found Profile"
Print "Set field"
Call doc.RemoveItem("ArchiveDatabase")
Call doc.Save( False, True )
End If
The Notes client must be restarted to see the changes.
