Abilita il debug vedi qual\'č la variabile che genera quell\'errore. Comunque prova con questo codice:
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Dim doc As NotesDocument
Set doc = Source.Document
īThe following variables are better declared globally
Dim session As New NotesSession
Dim db As NotesDatabase
Dim docMemo As NotesDocument īThe mail memo
Dim rtitemBody As NotesRichTextItem īRich-text field to hold the Body
Dim rtitem As Variant
Set rtiem = doc.GetFirstItem("Body")
Set db = session.CurrentDatabase
Set docMemo = db.CreateDocument
docMemo.Form = "Memo"
docMemo.SendTo = doc.sendTo(0)
docMemo.CopyTo = doc.sendCC(0)
docMemo.BlindCopyTo = ""
docMemo.Subject = doc.Subject(0)
Set rtitemBody = docMemo.CreateRichTextItem("Body")
Call rtitemBody.AppendRTItem(rtitem)
Call rtitemBody.AddNewLine(2)
Call rtitemBody.AppendText({"Click to open the change request =>"})
Call rtitemBody.AppendDocLink(doc , "Click to open the change request")
docMemo.Send( True )
End Sub
|