LOTUSSCRIPT/COM/OLE CLASSES

Examples: Aliases property
This script displays all the aliases for a specified form.

Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
formNameIn = Lcase(Inputbox("Name of form?"))
Forall form In db.Forms
 If Lcase(form.Name) = formNameIn Then
   If Isempty(form.Aliases) Then
     Messagebox form.Name & " has no aliases"
   Else
     aliazCount = 0
     msgString = ""
     Forall aliaz In form.Aliases
       aliazCount = aliazCount + 1
       msgString = msgString & Chr(10) & _
       "     " & aliaz
     End Forall
     Messagebox form.Name & " has " & _
     aliazCount & _
     " alias(es):" & Chr(10) & msgString
   End If
   Exit Sub
 End If
End Forall
Messagebox "The form """ & formNameIn & """ does not exist"

See Also