I now have a problem with the option buttons as well. I have each group in
there own frames. They interact with each other fine. I have the form
published in my personal library. When I send the form to myself using the
form from the personal library. I cannot get the option buttons to retain
there value when I open up the email. I do have some VBScript in the
background that looks like this and this may cause some problems. Please help:
Sub Item_CustomPropertyChange(ByVal Name)
if item.userproperties.find("OPTD") = true then
item.getinspector.modifiedformpages("Message").controls("TextBox1").visible
= true
item.getinspector.modifiedformpages("Message").controls("TextBox2").visible
= true
item.getinspector.modifiedformpages("Message").controls("Frame1").visible =
true
elseif item.userproperties.find("OPTD") = False then
item.getinspector.modifiedformpages("Message").controls("TextBox1").visible
= false
item.getinspector.modifiedformpages("Message").controls("TextBox2").visible
= false
item.getinspector.modifiedformpages("Message").controls("Frame1").visible =
false
end if
if item.userproperties.find("OPTD1") = true then
item.getinspector.modifiedformpages("Message").controls("TextBox3").visible
= true
item.getinspector.modifiedformpages("Message").controls("TextBox4").visible
= true
item.getinspector.modifiedformpages("Message").controls("Frame2").visible =
true
elseif item.userproperties.find("OPTD1") = False then
item.getinspector.modifiedformpages("Message").controls("TextBox3").visible
= false
item.getinspector.modifiedformpages("Message").controls("TextBox4").visible
= false
item.getinspector.modifiedformpages("Message").controls("Frame2").visible =
false
end if
if item.userproperties.find("OPTD2") = true then
item.getinspector.modifiedformpages("Message").controls("TextBox5").visible
= true
item.getinspector.modifiedformpages("Message").controls("TextBox6").visible
= true
item.getinspector.modifiedformpages("Message").controls("Frame3").visible =
true
elseif item.userproperties.find("OPTD2") = False then
item.getinspector.modifiedformpages("Message").controls("TextBox5").visible
= false
item.getinspector.modifiedformpages("Message").controls("TextBox6").visible
= false
item.getinspector.modifiedformpages("Message").controls("Frame3").visible =
false
end if
End Su
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function Item_Open()
if item.userproperties.find("OPTD") = true then
item.getinspector.modifiedformpages("Message").controls("TextBox1").visible
= true
item.getinspector.modifiedformpages("Message").controls("TextBox2").visible
= true
item.getinspector.modifiedformpages("Message").controls("Frame1").visible =
true
End if
if item.userproperties.find("OPTD1")= true then
item.getinspector.modifiedformpages("Message").controls("TextBox3").visible
= true
item.getinspector.modifiedformpages("Message").controls("TextBox4").visible
= true
item.getinspector.modifiedformpages("Message").controls("Frame2").visible =
true
End if
if item.userproperties.find("OPTD2")= true then
item.getinspector.modifiedformpages("Message").controls("TextBox5").visible
= true
item.getinspector.modifiedformpages("Message").controls("TextBox6").visible
= true
item.getinspector.modifiedformpages("Message").controls("Frame3").visible =
true
End if
If item.userproperties.find("OPTD") = false then
item.getinspector.modifiedformpages("Message").controls("TextBox1").visible
= false
item.getinspector.modifiedformpages("Message").controls("TextBox2").visible
= false
item.getinspector.modifiedformpages("Message").controls("Frame1").visible =
false
end if
if item.userproperties.find("OPTD1") = false then
item.getinspector.modifiedformpages("Message").controls("TextBox3").visible
= false
item.getinspector.modifiedformpages("Message").controls("TextBox4").visible
= false
item.getinspector.modifiedformpages("Message").controls("Frame2").visible =
false
end if
if item.userproperties.find("OPTD2") = false then
item.getinspector.modifiedformpages("Message").controls("TextBox5").visible
= false
item.getinspector.modifiedformpages("Message").controls("TextBox6").visible
= false
item.getinspector.modifiedformpages("Message").controls("Frame3").visible =
false
end if
End Function
> The second and third groups of options buttons each need to be inside their own frame.
>
[quoted text clipped - 9 lines]
> >
> > How do I change this behavior it is getting very very frustrating.
In design mode, did you click the Edit Read Page button and create a layout similar to that on the compose page, specifically, binding the option buttons on the read page to the same field that the correspoinding buttons use on the compose page?

Signature
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx
>I now have a problem with the option buttons as well. I have each group in
> there own frames. They interact with each other fine. I have the form
> published in my personal library. When I send the form to myself using the
> form from the personal library. I cannot get the option buttons to retain
> there value when I open up the email. I do have some VBScript in the
> background that looks like this and this may cause some problems. Please help:
Kryer - 26 Oct 2005 18:51 GMT
I have the option set for non seperate pages.... i went to Form menu and
unchecked 'SEPERATE READ LAYOUT'. This i thought would have the fields look
and feel the same on both the edit and read pages.
> In design mode, did you click the Edit Read Page button and create a layout similar to that on the compose page, specifically, binding the option buttons on the read page to the same field that the correspoinding buttons use on the compose page?
>
[quoted text clipped - 4 lines]
> > there value when I open up the email. I do have some VBScript in the
> > background that looks like this and this may cause some problems. Please help:
Sue Mosher [MVP-Outlook] - 26 Oct 2005 19:19 GMT
That is what it should do, but I'd suggest that you check the properties of the controls for yourself.

Signature
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx
>I have the option set for non seperate pages.... i went to Form menu and
> unchecked 'SEPERATE READ LAYOUT'. This i thought would have the fields look
[quoted text clipped - 8 lines]
>> > there value when I open up the email. I do have some VBScript in the
>> > background that looks like this and this may cause some problems. Please help: