Unread Marks e Cluster

Share

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