Lotuscript Compose mail

Hi

I must create a button in a form. This button create a new memo and append doclink (current document). Is it possible to do this ?

Subject: Lotuscript Compose mail

why dont u try this using

@MailSend( sendTo ; copyTo ; blindCopyTo ; subject ; remark ; bodyFields(keep one of thefield name of ur current document) ; [ includedoclink ] )

Subject: Lotuscript Compose mail

Dim s As New notessession Dim db As notesdatabase

Set db = s.CurrentDatabase

Dim ws As New notesuiworkspace

Dim uidoc As NotesUIDocument

Dim doc As notesdocument

Dim message As New NotesDocument(db)

message.SendTo = "Your recipients here"

message.Subject = "Your Subject here"	

message.Form = "Memo"



Dim rti As NotesRichTextitem



Set uidoc = ws.currentdocument

Set doc = uidoc.Document

Set rti = New NotesRichTextItem( message, "Body" )

Call rti.AppendDocLink( doc, "Comment" )

Call message.send(False)