LOTUSSCRIPT/COM/OLE CLASSES
Private Sub NewsParent_Click() Dim s As New NotesSession s.Initialize Dim news As NotesNewsletter Dim dir As NotesDbDirectory Dim db As NotesDatabase Dim dc As NotesDocumentCollection Set dir = s.GetDbDirectory("") Set db = dir.OpenDatabase("Web test") Set dc = db.AllDocuments Set news = s.CreateNewsletter(dc) MsgBox news.Parent.UserName, , "Parent user name" End Sub
See Also