Sub InvioMemo(sendto As Variant,copyto As Variant, subject As String, body As
String, doc As notesdocument)
Dim session As New notessession
Set db = session.currentdatabase
Set memo = New notesdocument(db )
memo.form = "Memo"
memo.sendto = sendto
memo.copyto = copyto
memo.subject = subject
Set item = New NotesrichtextItem (memo,"Body")
If body <> "" Then
Call item.AppendText ( body )
Call item.AddNewLine( 2 )
End If
Call item.Appendtext (subject )
Call item.AddNewLine( 2 )
Call item.Appendtext ("Cliccare per aprire il documento ---->" )
Call item.AddNewLine( 2 )
Call item.AppendDocLink( doc, "Doppio click per aprire il documento" )
Call memo.Send(False)
End Sub
|