Lotus Notes - Lotus Script. Enviar doc y link con el send.

Mi problema es el siguiente. Quiero enviar un enlace de documento a un usuario cuando pulsen un boton. Pero lo que me hace es enviar el correo y incluir el documento junto con los anexos que el documento tenga. Yo solo quiero que le envie un enlace nada más. Os pongo el codigo haber si me hechais un poco de luz:

Sub Click(Source As Button)
Dim docActual As NotesUIDocument 'documento actual
Dim ws As New NotesUIWorkspace 'Nuestra area de trabajo
Dim body As NotesRichTextItem
Dim docPerfil As NotesDocument
Dim BDA As NotesDatabase
Dim sesion As New NotesSession

Set BDA=sesion.GetDatabase("servidor","noticias.nsf")
Set docPerfil = BDA.GetProfileDocument("administracion")
Set docActual=ws.CurrentDocument
docActual.Document.Form="LNoticia"
docActual.Document.estado=11
Call docActual.Document.Save(True,False)
docActual.Document.Form="NNoticia"
Set body= New NotesRichTextItem( docActual.Document, "Body" )
docActual.Document.Subject ="[" & docPerfil.GetItemValue("nombreAplicacion")(0) & "]: Tiene un documento de tipo noticia Aprobada"
Call body.AppendText("La oportunidad (' "+docActual.Document.GetItemValue("tituloNoticia")(0)+" '), ha sido aprobada")
Call body.AddNewline(1)
Call body.AppendText(" para acceder a la misma pulse el siguiente enlace: ")
Call body.AppendDocLink( docActual.Document, "enlace")
docActual.Document.Send(False)
Call ws.ViewRefresh()
Messagebox "Noticia APROBADA, puede acceder a ella desde Noticias/Aprobadas. El creador ha sido avisado.",0+64,"Información"
docActual.Close(True)
End Sub

ndAct es el documento actual
nd es el documento en el cual se realiza el link del documento actual.

Set Anexosaji = ndAct.CreateRichTextItem( "Anexosaj1" )
Call Anexosaji.AppendText( lite + ". Click en el icono---> " )
Call Anexosaji.AppendDocLink( nd, ndAct.REF(0) )

Espero que te ayude.

Utilizando formulas:
usuario="[email protected]"
@MailSend(usuario;"";"";"Titulo que aparece en el inbox" ";""; "Texto que aparece dentro del correo: " + @Text(usuario) +" enviado por " + @Name([CN]; @UserName) + " el " + @Text(@Today) + " " + @Text(@Time(@Now))+" ---> ";[IncludeDoclink]);

Utilizando LotusScript:

Dim NS As New NOTESSESSION
Dim Doc As NotesDocument
Dim BD As NotesDatabase
Dim session As New Notessession
Dim uidoc As notesuidocument
Set uidoc = nuiw.currentdocument
Set doc = uidoc.document
Dim basedatos As notesdatabase
Set basedatos = session.currentdatabase
Dim mensaje As notesdocument
Set mensaje = basedatos.createdocument
Dim cuerpo As notesrichtextitem
mensaje.form="Memo"
mensaje.from="Nombre_from"
mensaje.subject="Titulo"
mensaje.sendto="[email protected]"
mensaje.copyto=""
mensaje.BlindCopyTo=""
Set cuerpo=mensaje.createrichtextitem("Body")
Call cuerpo.appendtext("texto del correo "+(nuid.fieldgettext( "usuario") + " " +nuid.fieldgettext ("usuario")))
Call cuerpo.addnewline(2) 'Salta 2 lineas
Call cuerpo.appenddoclink(doc, "Link del documento")
Call cuerpo.addnewline(2)
Call mensaje.send(False)