Lotus Notes - agente

Hola soy de Ecuador nesecito que me ayuden con un agente. este agente que les estoy enviando me permite hacer un link de una vase a otra pero individualmente, si alguien me puede ayudar a modificar este agente para que me permita realizar la misma función solo con ejecutar el agente para todos los archivos y no individualmente, si me ayudan con este proceso les quedare muy agradecido, si tienen la respueste por favor enviar por correo el agente con sus cambios, gracias y un abrazo. Marcelo
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim db1 As NotesDatabase
Dim view As NotesView
Dim view1 As NotesView
Dim doc As NotesDocument
Dim doc1 As NotesDocument

Dim rtitem As NotesRichTextItem
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim wdoc As NotesDocument
Set uidoc = workspace.CurrentDocument
Set wdoc = uidoc.Document
Caso$=wdoc.M_Caso (0)

Set db = session.CurrentDatabase
Set db1 = New NotesDatabase("","MarcasCR.nsf")

Set view1 = db1.GetView( "Copia de MKey" )

Set doc1= view1.GetDocumentByKey(Caso$,True)
If doc1 Is Nothing Then
Messagebox "No hay ldocumento " + Caso$
Else
Set doc =uidoc.Document
Set rtitem =New NotesRichTextItem( doc1, "Logo" )
Call rtitem.AppendDocLink( doc, db.Title)
Call rtitem.AppendText( wdoc.Nombre(0) )
Call doc1.Save(True,True)
End If




End Sub