I have a little code to send a msg to a group but I want to cc the author / creator of the document. I can’t figure out how to send it to “myself” though. Can you help???
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim mailDoc As NotesDocument
Dim mailRT As NotesRichTextItem
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim saveDoc As NotesDocument
Set db = session.CurrentDatabase
Set mailDoc = db.CreateDocument
Set mailRT = New NotesRichTextItem(mailDoc, "Body")
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
Set saveDoc = New NotesDocument( db )
doc.Form = "Forms\Architecture and Standards Council Request"
flag = doc.RenderToRTItem(mailRT)
mailDoc.Subject = "New Architecture & Standards Request"
Call mailDoc.Send(False, "MY GROUP")
Call uidoc.close
Call doc.save(True,True)
End Sub