Salve, sto facendo una form email, dove ho un campo Body che è richtext. Per
mandare quest\'email uso la funzione@MailSend, dove l\'argomento [i]bodyfields
[/i] non può essere richtext. Come potrei fare? ho provato a scrivere una
funzione in LotusScript ma non funziona perchè dice
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Dim workspace As New NotesUIWorkspace
Dim doc As NotesDocument
Dim doclink As NotesDocument
Set Source = workspace.CurrentDocument
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.Body(0)
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) \'[u]aggiunge al Body dell\'email il
contenuto del campo Body del mio documento corrente??[/u]
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
..ma di ma da l\'errore,Variant does not contain a container
:yellow_doubt.gif:
|