I am well versed in a number of scripting technologies, but I'm having
difficulty with my first custom form. I have an HTA which gathers data, and
populates a custom form. I cannot via code change any control properties and
make them stick. The code for my buttons does not run at all unless I select
"run this form" which works beautifully. Code for the form is...
Function Item_Open()
Item.Recipients.Add("")
End Function

Function CommandButton1_Click()

End Function

Function CommandButton2_Click()
Set objPage = Item.GetInspector.ModifiedFormPages("PACMAN")
Set objControl = objPage.Controls("txtReject")
objControl.Visible = True
Set objControl = objPage.Controls("Label14")
objControl.Visible = True
End Function

Function CommandButton3_Click()
Set objPage = Item.GetInspector.ModifiedFormPages("PACMAN")
objPage.Controls("cmbOrg").ReadOnly = False
objPage.Controls("cmbContact").ReadOnly = False
objPage.Controls("cmbPlatform").ReadOnly = False
objPage.Controls("cmbPltfrmTp").ReadOnly = False
objPage.Controls("cmbComponent").ReadOnly = False
objPage.Controls("cmbComponentTp").ReadOnly = False
objPage.Controls("cmbPriority").ReadOnly = False
objPage.Controls("cmbCaseTp").ReadOnly = False
End Function
--
Thanks in advance for your help...

Rich

I figured out the problem. No need to reply.
--
Thanks in advance for your help...

Rich


"Richard Korinek" wrote:

I am well versed in a number of scripting technologies, but I'm having
difficulty with my first custom form. I have an HTA which gathers data, and
populates a custom form. I cannot via code change any control properties and
make them stick. The code for my buttons does not run at all unless I select
"run this form" which works beautifully. Code for the form is...
Function Item_Open()
Item.Recipients.Add("")
End Function

Function CommandButton1_Click()

End Function

Function CommandButton2_Click()
Set objPage = Item.GetInspector.ModifiedFormPages("PACMAN")
Set objControl = objPage.Controls("txtReject")
objControl.Visible = True
Set objControl = objPage.Controls("Label14")
objControl.Visible = True
End Function

Function CommandButton3_Click()
Set objPage = Item.GetInspector.ModifiedFormPages("PACMAN")
objPage.Controls("cmbOrg").ReadOnly = False
objPage.Controls("cmbContact").ReadOnly = False
objPage.Controls("cmbPlatform").ReadOnly = False
objPage.Controls("cmbPltfrmTp").ReadOnly = False
objPage.Controls("cmbComponent").ReadOnly = False
objPage.Controls("cmbComponentTp").ReadOnly = False
objPage.Controls("cmbPriority").ReadOnly = False
objPage.Controls("cmbCaseTp").ReadOnly = False
End Function
--
Thanks in advance for your help...

Rich

Publish the form to be able to run it correctly. If you publish it in a
folder it will be available only in that folder (never publish in more than
one place). In that folder view you can then select the form from the
Actions menu. If published in Personal Forms you select it from the Tools,
Forms menu.

Controls only retain a value if you bind them to Outlook properties, either
intrinsic or user defined.

See www.outlookcode.com for a lot more forms information.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm


"Richard Korinek" wrote in
message ...
I am well versed in a number of scripting technologies, but I'm having
difficulty with my first custom form. I have an HTA which gathers data,
and
populates a custom form. I cannot via code change any control properties
and
make them stick. The code for my buttons does not run at all unless I
select
"run this form" which works beautifully. Code for the form is...
Function Item_Open()
Item.Recipients.Add("")
End Function

Function CommandButton1_Click()

End Function

Function CommandButton2_Click()
Set objPage = Item.GetInspector.ModifiedFormPages("PACMAN")
Set objControl = objPage.Controls("txtReject")
objControl.Visible = True
Set objControl = objPage.Controls("Label14")
objControl.Visible = True
End Function

Function CommandButton3_Click()
Set objPage = Item.GetInspector.ModifiedFormPages("PACMAN")
objPage.Controls("cmbOrg").ReadOnly = False
objPage.Controls("cmbContact").ReadOnly = False
objPage.Controls("cmbPlatform").ReadOnly = False
objPage.Controls("cmbPltfrmTp").ReadOnly = False
objPage.Controls("cmbComponent").ReadOnly = False
objPage.Controls("cmbComponentTp").ReadOnly = False
objPage.Controls("cmbPriority").ReadOnly = False
objPage.Controls("cmbCaseTp").ReadOnly = False
End Function
--
Thanks in advance for your help...

Rich