Antes era añadir ahora eliminar
jeje
Sub Initialize
Dim session As New notessession
Dim db As notesdatabase
Dim outline As notesOutline
Dim entryA As NotesOutlineEntry
Set db = session.currentdatabase
Set outline = db.Getoutline("miesquema")
Set entryA = outline.GetFirst()
Call outline.RemoveEntry(entryA)
Call outline.save()
End Sub
|
Otros documentos de LotusScript
|