I have the following code:
Sub Exiting(Source As Field)
Dim W As New NotesUIWorkspace
Dim UIDoc As NotesUIDocument
Set UIDoc = W.CurrentDocument
If (UIDoc.FieldGetText ("Stock") = "Yes") Then
Call W.ComposeDocument( "", "", "Replacement Sheet" )
Messagebox "You can now click the Save & Close Button.", 0, "Continue"
This code is executed in the main doc when exiting the Stock field. It is SUPPOSE to compose a response doc (which it doesn't do). The code works if I create a normal doc with the code instead of a response. Does anyone know what is wrong and how to fix?