Como são muitos os bancos de dados e a tarefa desing não altera esta propriedade, mesmo que a atualizemos no template, fiz um agente para configurar a propriedade do banco de dados. A relação das propriedades que podem ser modificadas via LotusScript pode ser vista no TN 1244071
Basta criar um banco de dados e colocar um agente com o código abaixo:
Sub Initialize
Dim db As NotesDatabase
Dim ses As New NotesSession
Dim doc As NotesDocument
Dim dbdir As NotesDbDirectory
Dim maildb As NotesDatabase
server = Inputbox ("Nome do Servidor) (Enter para Local)")
subdir = Inputbox ("Em qual subdiretório o agente deve procurar as bases? ( Enter para todos os diretórios) ")
If subdir <> "" Then subdir=subdir & ""
Set db = ses.CurrentDatabase
Set dbdir = ses.GetDbDirectory(server)
Set maildb = dbdir.GetFirstDatabase(DATABASE)
i = 0
While Not (maildb Is Nothing)
If Instr(1,maildb.FilePath,subdir,5)<>0 Then
i = i + 1
Call maildb.Open("","")
If maildb.IsOpen Then
Set doc = maildb.GetDocumentByID("FFFF0010")
doc.~$Flags=doc.~$Flags(0) & "Q"
doc.~$FlagsNoRefresh="Q"
Call doc.save (True,False)
End If
End If
Set maildb = dbdir.getnextdatabase
Wend
Msgbox ("Foi (ram) modificado (s) "+ i +" banco(s) de dados!" )
End Sub
