Hi, I have a requirement to senda mail to selected profiles from the view. The mail send should take values from the configuration document as well as another document. The issue is that both of them containing rich text fields and I just cant figure out how to go about it. Here a piece of code i managed to scrap…
Dim workspace As New NotesUIWorkspace
Dim session As New notessession
Dim db As notesdatabase
Dim attachview As NotesView
Dim configview As NotesView
Dim confDoc As NotesDocument
Dim doccoll As notesdocumentcollection
Dim doc As NotesDocument
Dim maildoc As NotesDocument
Dim attachdoc As NotesDocument
Dim rtitemA As Variant
Dim rtitemB As Variant
Dim rtAttach As Variant
Dim confiItem As Variant
Set db=session.currentdatabase
Set doccoll = db.unprocesseddocuments
Set doc=doccoll.GetFirstDocument
Set configview =db.GetView("Configuration")
Set attachview =db.GetView("By Article")
Set confDoc =configview.Getfirstdocument
Set attachdoc =attachview.Getfirstdocument ' for attachments from article view
If Not doc Is Nothing Then
Set maildoc=db.CreateDocument
maildoc.form="Memo"
' maildoc.Body_Text=cfgdoc.Body(0)
Set rtitemA = maildoc.CreateRichTextItem("Body_Text")
Set confItem = cfgdoc.GetFirstItem("Body")
Call rtitemA.AppendRtItem(confItem)
Call maildoc.Save( False, True )
mailDoc.SendTo=doc.Email(0)
Call mailDoc.Send(True,False)
Set doc=doccoll.GetnextDocument(doc)
End If