ok un grazie anticipato:
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 item As NotesItem
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 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)
docMemo.Form = "Memo"
docMemo.SendTo = indimail
docMemo.Subject = oggetto
Set rtitem = New NotesRichTextItem( docMemo, "Body" )
Call rtitem.AppendText("Titolo : "+docMsg.titolonewsletter(0)) \'E il campo
del form docMsg che sarebbe il corpo della Newsletter
Call rtitem.AddNewline(2)
Call docMemo.Send(False)
Set docNewsletter = nnewsletter.GetNextDocument(docNewsletter)
Wend
End Sub
|