Este codigo te permite añadir una entrada en un esquema
Sub Initialize
Dim session As New notessession
Dim db As notesdatabase
Dim outline As notesOutline
Dim entryA As NotesOutlineEntry
Dim entryB As NotesOutlineEntry
Set db = session.currentdatabase
Set outline = db.Getoutline("miesquema")
Set entryA = outline.GetFirst()
Set entryB = outline.CreateEntry("Entrada hijo",entryA,1,1)
Call outline.save()
End Sub
|
Otros documentos de LotusScript
|