Lotus Domino Designer 8 ヘルプ - 例:NotesReplicationEntry クラス

LOTUSSCRIPT /COM/OLE のクラス

例:NotesReplicationEntry クラス
1 次のエージェントは、複製エントリを取得し、そのプロパティを表示します。

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 次のエージェントは、複製エントリを作成します。

関連項目

NotesReplicationEntry クラス

用語集

フィードバック ヘルプ または プロダクトユーザビリティ?

ヘルプの使い方

すべてのヘルプ項目

用語集