Ti stai complicando la vita!
Apriti l\'help del designer e cerca nella classe NotesRichTextItem il metodo AppendDocLink. In sostanza puoi creare un\'icona all\'interno di un\'e-mail con un collegamento ad un record/database/quello che ti pare. Mai notato che facendo click col tasto dx su un record/db hai l\'opzione "Copia come collegamento"? In LSS va usato cosė:
Dim s as new notessession
Dim ws as new notesuiworkspace
Dim udoc as notesuidocument
Dim db as notesdatabase
dim doc as notesdocument
dim rtitem as notesrichtextitem
Set udoc = ws.currentdocument
Set db = s.currentdatabase
Set doc = db.createdocument
doc.form = "Memo"
doc.SendTo = s.commonusername
doc.Subject = "test"
Set rtitem = New NotesRichTextItem(doc, "Body")
Call rtitem.AppendDocLink(udoc.document, "Collegamento al documento")
Call doc.send(True)
Massimo Nadalin | Devangarde
|