LOTUSSCRIPT/COM/OLE CLASSES
Sub Click(Source As Button) Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Dim location As String Set uidoc = workspace.CurrentDocument location = Inputbox$ _ ( "Please enter your location", "Location" ) Call uidoc.GotoTop Call uidoc.InsertText( location ) End Subf
See Also