Estou preparando 4 servidore para funcinarem em cluster Domino. Uma das preocupações é com a marca de não lidos pois por padrão do Domino cria caixas postais com a opção de não replicar estas marcas. Em um ambiente em cluster estas marcas, por opção do cliente, devem ser replicadas entre os servidores.
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