Re: customPropertyChange issue
- From: "Sue Mosher [MVP-Outlook]" <suemvp@xxxxxxxxxxxxxxx>
- Date: Mon, 14 May 2007 11:15:57 -0400
I'm confused. You've posted in a VBA forum, but this looks like custom form code. Code runs only on published forms. You would need to publish this form to the Organizational Forms library or to each user's Personal Forms library -- and the code would need to include an Item_Open event handler to make the desired UI changes when the recipient displays it.
FYI, there is a newsgroup specifically for Outlook forms issues "down the hall" at microsoft.public.outlook.program_forms or, via web interface, at http://www.microsoft.com/office/community/en-us/default.mspx?dg=microsoft.public.outlook.program_forms
--
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
"prog" <prog@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message news:A13D060B-C62C-4AB8-8227-BF14D6FF2117@xxxxxxxxxxxxxxxx
When I send a form I have some frames show up that in my code had disabledor.
hidden. My code is below. Basically there are some frames listed below that
I have set to hidden and they all show up when the user sends the form to
recipient. Not sure what I'm doing wrong in my code. Based on the code
below only Frame3 should be seen by the recipient.
Select case.....
Case "field1"
strMyProp2 = Item.UserProperties("field1")
If strMyProp2 = True Then
Set myinspector = Item.GetInspector
Set myPage1 = myInspector.ModifiedFormPages("P.2")
Set frmCheckData = myPage1.Controls("Frame3")
Set chkNeedCheck = myPage1.Controls("CheckBox34")
frmCheckData.Visible = true
Set frmCheckData2 = myPage1.Controls("Frame4")
Set frmCheckData3 = myPage1.Controls("Frame5")
frmCheckData2.visible = false
frmCheckData3.visible = false
Set chkNeedCheck2 = myPage1.Controls("CheckBox35")
Set chkNeedCheck3 = myPage1.Controls("CheckBox36")
chkNeedCheck2.enabled = false
chkNeedCheck3.enabled = false
else
Set myinspector = Item.GetInspector
Set myPage1 = myInspector.ModifiedFormPages("P.2")
Set frmCheckData = myPage1.Controls("Frame3")
Set chkNeedCheck = myPage1.Controls("CheckBox34")
frmCheckData.Visible = false
end if
- Prev by Date: Re: ConversationTopic question
- Next by Date: Re: ConversationTopic question
- Previous by thread: List Emails in a listbox in VB
- Next by thread: Re: Initialising the root folders to display
- Index(es):
Relevant Pages
|
