Some sample doc
doc1 below has the link which is copied
to doc2
Dim session As New NotesSession,db As
NotesDatabase,linkItem As notesitem
Dim dc As NotesDocumentCollection,doc1
As NotesDocument, doc2 As NotesDocument
Set db = session.Currentdatabase
Set dc = db.Unprocesseddocuments
Set doc1 = dc.Getfirstdocument()
Set linkItem = doc1.getfirstitem("Body")
Set doc2 = dc.Getnextdocument(doc1)
Call doc2.copyitem(linkItem,"Body")
doc2.save True,false