Messagebox based on field value

Will prompt the user if the current doc's field "Field1" value equals "value"

Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim fval As String
Set uidoc = workspace.CurrentDocument
fval = uidoc.FieldGetText( "field1" )
If fval = "value" Then
     Messagebox"The field is set to " & Chr$(13) & Chr$(10) & Chr$(13) & Chr$(10) & "Please make note of it.",0+64,"Note"
End If      

Posted by fbrefere001 on Wednesday March 7, 2001