garbielesh ok sono risucito a prendere i campi TESTO, ma ho problemi a prendere
il contenuto di un RICHTEXT
ti riposto l\'agent vedi se gli puoi dare un okkiata:
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim docNewsletter As NotesDocument
Dim docMsg As NotesDocument
Dim docMemo As NotesDocument
Dim dcommenti As String
Dim indimail As String
Dim rtitem As NotesRichTextItem
Dim nnewsletter As NotesView
Set db = session.CurrentDatabase
Set docMsg = session.DocumentContext
Set docNewsletter = session.DocumentContext
Set docMemo = db.CreateDocument
Set item = docMsg.GetFirstItem("richnewsletter")
Set nnewsletter = db.GetView( "nnewsletter" )
Set docNewsletter = nnewsletter.GetFirstDocument
\' While Not docNewsletter Is Nothing
\'prendo i parametri dal form parametri e inoltro la mail
indimail = docNewsletter.emailreg(0)
oggetto = docMsg.titolonewsletter(0)
docMemo.Form = "Memo"
docMemo.SendTo = indimail
docMemo.Subject = oggetto
Set rtitem = New NotesRichTextItem( docMemo, "Body" )
Call rtitem.AppendText("Nome : "+docMsg.testonewsletter(0)) \'E il campo del
form docMsg che sarebbe il corpo della Newsletter
Call rtitem.AddNewline(2)
Call rtitem.AppendText("Camporichtext : "+item.text)
Call docMemo.Send(False)
\' Set docNewsletter = nnewsletter.GetNextDocument(docNewsletter)
\' Wend
End Sub
|