Disabling a Field in Outlook

[TalosBlack]

I use the following code to disable/enable a field in Outlook. The problem is the field starts as enabled no matter what i do. I would like for the field to start disabled and only enable when the checkbox is marked.

Sub CheckBox1_Click()
Set CheckBox1 = Item.GetInspector.ModifiedFormPages("Data&quot.Controls("CheckBox1&quot
Set TextBox2 = Item.GetInspector.ModifiedFormPages("Data&quot.Controls("TextBox2&quot
Set TextBox14 = Item.GetInspector.ModifiedFormPages("Data&quot.Controls("TextBox14&quot

If CheckBox1=False Then
TextBox2.Enabled=False
TextBox14.Enabled=False

Else
TextBox2.Enabled=True
TextBox14.Enabled=True
End If
End Sub

Thanks

John

 

[TalosBlack]

Sub Item_Open 'runs when form opens
'Declarations
Set ComboBox1 = Item.GetInspector.ModifiedFormPages("Data&quot.Controls("ComboBox1&quot

'Drop down menu assignment
ComboBox1.PossibleValues = "Red;Green;Blue;Other"

'Declarations
Set TextBox15 = Item.GetInspector.ModifiedFormPages("Data&quot.Controls("TextBox15&quot

'Intializing Invisibility
'Text box invisible
TextBox15.Visible = False

End Sub

Sub ComboBox1_Click() 'does only on a mouse click

'Intialization
Set ComboBox1 = Item.GetInspector.ModifiedFormPages("Data&quot.Controls("ComboBox1&quot
Set TextBox15 = Item.GetInspector.ModifiedFormPages("Data&quot.Controls("TextBox15&quot
If ComboBox1.Text = "Other" Then
TextBox15.Visible=True
Else
TextBox15.Visible=False
End If
End Sub

 

[TalosBlack]

That should do it