cmsmanager
Mitglied
Senior Boarder
| Beiträge: 10 |   |
|
Replikationseinstellungen per LS ändern - 22/12/2008 17:25
Beitrag der IBM...
http://www-01.ibm.com/support/docview.wss?rs=463&context=SSKTMJ&dc=DB560&dc=DB520&uid=swg21296639&loc=en_US&cs=UTF-8&lang=en&rss=ct463lotus
Dim session As New notessession
'create a Notes session
Dim curr_db As NotesDatabase
'variable for current database
Dim db_rep As NotesDatabase
'variable for database replica to be created
Dim db_name As String
'variable to get current database name
Dim server As String
'variable for server name
Dim rep As NotesReplication
'variable for the replication info
Dim re As NotesReplicationEntry
'variable for the replication entry
Set curr_db = session.CurrentDatabase
'set curr_db to current database using the Notes session
db_name = curr_db.FileName
'get database name using the Notes database FileName property
server = "Server name in Canonical format"
'enter the server name here
Set db_rep = curr_db.CreateReplica(server, "mailrep/" & db_name) 'create replica in the mailrep directory
Set rep = db_rep.ReplicationInfo
'get replication info from new replica
Set re = rep.GetEntry("-", server, True)
'get entry for when server copy receives 'from any server
re.Views = "Inbox"
'set the views property to only select the documents in the Inbox
Call re.Save
'save the entry
Call rep.save
'save the replication info
|
Forum 
LotusScript Poster Part 1 (535)