Lotus Notes - links dinámicos

Hola!
Tengo un problema con el appendoclink, concretamente el problema es que no me añade ningún link. Este es el código que tenemos:

Set dc = db.ftsearch(q, l, stype, useint)
If Err > 0 Then
Messagebox "Se ha producido el error siguiente al realizar la búsqueda:" & Error, 0 , "Error"
Err=0
Exit Sub
End If
End If

If(dc.count >0) Then
Set resultsdoc=db.CreateDocument
resultsdoc.form="frmRESP"
Dim richtext As New notesrichtextitem(resultsdoc,"RES_Results")
Set richstyle=session.CreateRichStyle

richstyle.notesfont=FONT_HELV
richstyle.FontSize=8
richstyle.Bold=False
Call richText.Appendstyle(richStyle)
resultsdoc.RPT_QueryTitle=uidoc.FieldGetText("RPT_QueryTitle")
resultsdoc.RES_Query=uidoc.FieldGetText("SimpleQuery")
resultsdoc.RES_NoOfDocs=dc.Count
For n=1 To dc.count
Set doclink=dc.GetNthDocument(n)
Call doclink.Save(True,True)
Call richtext.Addnewline(1)
Call richtext.AppendText(Cstr(n)+".")
Call richtext.Addtab(1)
Call richtext.Appenddoclink(doclink, "Click on link to launch the document")
'doclink tiene un valor OK, pero no hay forma de añadir el link
Call richtext.Addtab(1)
Call richtext.appendtext(Left(doclink.GetFirstitem("_titulo").Text,85))
Call resultsdoc.Save(True,True)
Call doclink.Save(True,True)
Next
Call resultsdoc.Save(True,True)
Msgbox Cstr(dc.count)+"documents match your search criteria"+Chr$(10)+"Click 'OK' to display the Report.",64,"Search results"
Set uiresults=w.EditDocument(False,resultsdoc,True)
Exit Sub
End

--Creacion de Un agente de alertas - envio mensajes agrupando campos campos y link adjunto.

Sub Initialize

Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim dateTime As New NotesDateTime( "12/01/94" )
Dim docmail,docbusqueda As NotesDocument
Dim collection As NotesDocumentCollection
Dim llave As String
Dim cuenta,i As Integer
Dim xFuncionario_Obs As Variant
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem


Set docmail=New NotesDocument(db)

docmail.FORM="Memo"
docmail.from= "Pedro Hidalgo"
docmail.Subject="SOA- Vencimiento de Observaciones de Auditoria....!!!!"
llave=" Form=""Doc_Observacion"" & funcionario_obs != null & estado_obs !='A' "
Set collection = db.Search( llave, dateTime, 0 )
cuenta =collection.count
If collection.count < 0 Then
End
End If
i = 0
While cuenta > 0
cuenta = cuenta -1
i = i + 1

Set docbusqueda = collection.GetNthDocument( i )
xFuncionario_Obs = docbusqueda.Funcionario_Obs(0)
Docmail.SendTo = docbusqueda.Funcionario_Obs

Set rtitem = New NotesRichTextItem( Docmail, "Body" )
' Aqui adiciona texto, campos y el link de la aplicacion
Call rtitem.AddNewLine(1)
Call rtitem.Appendtext("El Señor(a) : " )
Call rtitem.AddNewLine(1)
Call rtitem.Appendtext( docbusqueda.Funcionario_Obs(0))
Call rtitem.AddNewLine(2)
Call rtitem.Appendtext("Tiene una Observación de Auditoria : ")
Call rtitem.AddNewLine(1)
Call rtitem.Appendtext(docbusqueda.desObservacion(0))
Call rtitem.AddNewLine(2)
Call rtitem.Appendtext("Dicha Observación vence el : ")
Call rtitem.AddNewLine(1)
Call rtitem.Appendtext( Format(docbusqueda.FecInicial_Obs(0), "dd/mm/yyyy"))
Call rtitem.AddNewLine(2)
Call rtitem.Appendtext("Para visualizar la observacion ingresar al modulo SOA pulse aqui --> ")
' Call rtitemb.AppendDocLink(doclink,"Seguimiento")
Call rtitem.AppendDocLink( db, db.Title )
Call rtitem.AddNewLine(2)
Call rtitem.Appendtext("__________________________________ ")
Call rtitem.AddNewLine(1)
Call rtitem.Appendtext("Oficina de Auditoria Interna")
Call rtitem.AddNewLine(1)
Call rtitem.Appendtext("Agente Automatico de Sistemas")
Call rtitem.AddNewLine(1)

Call docmail.send(True)

Wend


Messagebox " Proceso de Envio de Alertas - Ejecutado con Exito"



End Sub