LOTUSSCRIPT/COM/OLE CLASSES
Examples: NotesReplicationEntry class
1. This agent gets a replication entry and displays its properties.
Sub Initialize
REM Get local database
dbName$ = _
Inputbox$("Database name", _
"Enter name of local database")
Dim db As New NotesDatabase("", dbName$)
Dim rep As NotesReplication
Dim re As NotesReplicationEntry
If Not db.IsOpen Then
Messagebox "No local database",, dbName$
Exit Sub
End If
REM Get source and destination computers
source$ = _
Inputbox$("Source", _
"Enter name of source computer")
If Instr(1, source$, "Any Server", 5) > 0 Then
source$ = "-"
End If
destination$ = _
Inputbox$("Destination", _
"Enter name of destination computer")
If Instr(1, destination$, "Any Server", 5) > 0 Then
destination$ = "-"
End If
REM Get replication entry
Set rep = db.ReplicationInfo
Set re = rep.GetEntry(source$, destination$, False)
If re Is Nothing Then
Messagebox _
"No replication entry for " & source$ & _
" and " & destination$,, _
"No such replication entry"
Exit Sub
End If
REM Display properties
msg$ = "Source: " & re.Source & Chr(13) & _
"Destination: " & re.Destination & Chr(13) & _
"Formula: " & re.Formula & Chr(13) & _
"Views: " & re.Views & Chr(13) & _
"IsIncludeACL: " & re.IsIncludeACL & Chr(13) & _
"IsIncludeAgents: " & re.IsIncludeAgents & Chr(13) & _
"IsIncludeDocuments: " & _
re.IsIncludeDocuments & Chr(13) & _
"IsIncludeForms: " & re.IsIncludeForms & Chr(13) & _
"IsIncludeFormulas: " & re.IsIncludeFormulas
Messagebox msg$,, "Replication entry"
End Sub
2. This agent creates a replication entry.
Sub Initialize
REM Get local database
dbName$ = _
Inputbox$("Database name", _
"Enter name of local database")
Dim db As New NotesDatabase("", dbName$)
Dim rep As NotesReplication
Dim re As NotesReplicationEntry
If Not db.IsOpen Then
Messagebox "No local database",, dbName$
Exit Sub
End If
REM Attempt to get replication entry for Any-Any
Set rep = db.ReplicationInfo
Set re = rep.GetEntry("-", "-", False)
REM Create an entry if it does not already exist
If re Is Nothing Then
Set re = rep.GetEntry("-", "-", True)
re.IsIncludeACL = False
Call re.Save
Else
Messagebox "Any-to-any already exists",, _
"Entry already exists"
End If
End Sub
Véase también
NotesReplicationEntry class
Glosario
¿Desea opinar sobre la
Ayuda
o sobre la
utilidad del producto
?
Ayuda sobre la Ayuda
Todo el contenido de la Ayuda
Glosario