Code that worked in 5 but is not working in 7

We are in the process of going from 5 to 7 and are testing all of our apps to make sure everything still works. There is code, which is so simple, but it is not working and it’s driving me crazy! Any ideas or help would be appreciated.

Dim workspace As New NotesUIWorkspace

Dim uidoc As NotesUIDocument

Set uidoc = workspace.ComposeDocument(“”, “”, “Subscribe” )

Call uidoc.FieldSetText(“Sub_Type”,“Paper” )

Call uidoc.GoToField( “FirstName” )

This code is in an agent, not sure if that makes any difference. When I click on the button to run this code, I get the following error:

“This feature is not yet implemented” and then another error pops up that says “User-defined error”.

Thanks again,

Tracy

Subject: Code that worked in 5 but is not working in 7

Why is this in an agent? First step, move it to an action or shared action to simplify things. One thing you may want to check in the agent is the target. If I remember correctly, the target values have changed between r5 and r6 and later. For something like this, the targe should be None. However, it should still be a shared action and not an agent, from what it appears you are trying to do.