Creating replica stubs is a good way to distribute small files via your mail system.
For example: A company directory that is 100 MB needs to be distributed to a widespread sales force, many of whom are using dial-up access. They need the files on their machines so that information can be accessed from anywhere without going online. If you try to send an entire database to people who are using dial-up to access their Notes servers, it will take them hours to get a single mail message.
If you send a replica stub, which is 100 KB, they get the message very quickly, download the replica stub to their hard drives, and start replicating in minutes. The replication may take hours, but it can be done in the background without freezing users' machines. As the replication continues, they will have partial data until it is completed, but can still use their machines while the data transfer is continuing.
Use this agent to create as many replica stubs as you want. Just set your naming convention and the number, and your stubs are created.
Sub Initialize Dim s As New NotesSession Dim db As NotesDatabase 'original database Dim dbr As NotesDatabase 'new replica stub Dim nr As NotesReplication 'original replication info Dim nrr As NotesReplication 'replica db replication info Set db = s.CurrentDatabase Set nr = db.ReplicationInfo 'get source replication settings nr.Disabled = True 'temporarily turn off replication nr.Save 'save replication settings For i% = 1 To 10 'filename attempt 'new replicas will be i% + original db name 'set your own naming conventions here 'CAUTION - delete previous databases with same filename 'allows for debugging runs - probably get rid of in production Set dbr = New NotesDatabase("", Cstr(i%) & db.FileName) If dbr.IsOpen Then dbr.Remove End If ' now create the replica - since replication is disabled, you just get a stub Set dbr = db.CreateReplica("", Cstr(i%) & db.FileName) 'now turn on replication for new replica stub Set nrr = dbr.ReplicationInfo nrr.Disabled = False nrr.save Next 'turn back on replication for the original nr.Disabled = False nr.save End Sub
Do you have comments on this tip? Let us know.
This tip was submitted to the SearchDomino.com tip library by member Don Bechtold. Please let others know how useful it is via the rating scale below. Do you have a useful Lotus Notes, Domino, Workplace or WebSphere tip or code snippet to share? Submit it to our monthly tip contest and you could win a prize.