Changing a Lotus Notes database mail file from 'archive' to 'mail'

When a Lotus Notes database mail file shows "Archive" contrary to "Mail," you can run this code to change the ArchiveDatabase field value to 0. Simply close the Lotus Notes database and open again. Then, run the script with the user ID.

Dim s As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = s.currentdatabase
Set doc=db.GetProfileDocument("archive database profile") 
doc.ArchiveDatabase = "0"
Call Doc.Save(True,True)

Do you have comments on this tip? Let us know.

This tip was submitted to the SearchDomino.com tip library by member Rodrigo Mattos. Please let others know how useful it is via the rating scale below. Do you have a useful Lotus Notes, Domino, Workplace or WebSphere tip or code snippet to share? Submit it to our monthly tip contest and you could win a prize.