ID: Q173598
The information in this article applies to:
This article describes additional properties that can be used with Microsoft Outlook 97 controls on customized forms.
Microsoft provides programming examples for illustration only, without warranty either expressed or implied, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This article assumes that you are familiar with the programming language being demonstrated and the tools used to create and debug procedures. Microsoft Support professionals can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific needs. If you have limited programming experience, you may want to contact the Microsoft fee-based consulting line at (800) 936-5200. For more information about the support options available from Microsoft, please see the following page on the World Wide Web:
http://www.microsoft.com/support/supportnet/refguide/default.asp
If you customize Outlook forms, you can set properties for the controls on
the form by right-clicking the control and clicking Properties or Advanced
Properties on the shortcut menu. The properties described in this article
are not standard properties for the controls, and therefore, it may not be
intuitive that these properties can actually be changed using Microsoft
Visual Basic Scripting Edition (VBScript) or Visual Basic for Applications
Automation code.
NOTE: The ItemProperty and LayoutFlags properties are documented in the Outlook Forms Help file. Use the Find tab of the Help file to search for the property names.
For more information about obtaining the Outlook Forms Help file, please see the following article in the Microsoft Knowledge Base:
Article-ID: Q161082
Title : OL97: Microsoft Outlook Forms Help Available on MSL
You can use the PossibleValues property to programmatically set multiple values in a control, typically a list box or combo box control. The following VBScript example fills a list box with the values Test1, Test2, and Test3 when you open the form:
Sub Item_Open()
' Sets the name of page on the form, in this case, the
' Message page on a MailItem form.
Set FormPage = Item.GetInspector.ModifiedFormPages("Message")
' Sets Control to a list box called ListBox1.
Set Control = FormPage.Controls("ListBox1")
' Assign the values to the control.
Control.PossibleValues = "Test1;Test2;Test3"
End Sub
NOTE: You can also use the AddItem method of the control to populate list
boxes and combo boxes one line at a time. This is a typical approach used
in Visual Basic solutions.
The ItemProperty property can be used in VBScript to bind a control to a MAPI field in the Outlook item. The following VBScript example binds a list box control to the Mileage property:
Sub Item_Open()
' Sets the name of page on the form, in this case, the
' Message page on a MailItem form.
Set FormPage = Item.GetInspector.ModifiedFormPages("Message")
' Sets Control to a list box called ListBox1.
Set Control = FormPage.Controls("ListBox1")
' Bind the control to the Mileage field in the item.
Control.ItemProperty = "Mileage"
End Sub
When working with a control in design mode, you can view the properties of a control by right-clicking on a control and choosing Properties on the shortcut menu. The Display tab of the Properties dialog box contains an option for Resize with Form, which may be on or off by default depending on the type of control. If this property is turned on, then the control will horizontally resize when the form itself is being horizontally resized.
In the Properties dialog box, you cannot set the control to vertically resize, but you can write VBScript code to change both the vertical and horizontal Resize with Form setting.
Sub Item_Open()
' Sets the name of page on the form, in this case, the
' Message page on a MailItem form.
Set FormPage = Item.GetInspector.ModifiedFormPages("Message")
' Sets Control to a text box called TextBox1.
Set Control = FormPage.Controls("Textbox1")
' Use one of the following lines to achieve the noted effect.
Control.LayoutFlags = 1 ' Do not resize.
Control.LayoutFlags = 4 ' Resize horizontally.
Control.LayoutFlags = 65 ' Resize vertically.
Control.LayoutFlags = 68 ' Resize horizontally and vertically.
End Sub
For more information about using fields and controls with Microsoft Outlook 97, please see the following article in the Microsoft Knowledge Base:
Article-ID: Q168975
Title : OL97: How to Use Fields and Controls with VBScript
For more information about creating solutions with Microsoft Outlook 97,
please see the following articles in the Microsoft Knowledge Base:
Article-ID: Q166368
Title : OL97: How to Get Help Programming with Outlook
Article-ID: Q170783
Title : OL97: Q&A: Questions about Customizing or
Programming Outlook
Additional query words: OutSol OutSol97 kbcode kbmacro vba
Keywords :
Version : WINDOWS:97
Platform : WINDOWS
Issue type : kbhowto
Last Reviewed: May 17, 1999