Welcome to Outlook Exchange


	Become a Columnist \| Microsoft Exchange Site \| Microsoft Support Site \| MSDN Exchange Site

How did you like this article? Please vote and let us know.

Subscribe to OutlookExchange

What's New

Columnist

Development

More Resources

Software

Other Links

Sorting a ComboBox

This code will load a ComboBox with sorted data from a Contacts folder.

The Code

Function Item_Open()
Set Mypage = Item.GetInspector.ModifiedFormPages("Message")
Set MyFolder = Application.GetNameSpace("MAPI").GetDefaultFolder(10)
Set MyContacts = MyFolder.Items
Set MyItem = MyContacts.Item(1)
Set ComboBox1 = GetInspector.ModifiedFormPages("Message").Controls("ComboBox1")
ComboBox1.Clear
MyContacts.Sort"[LastName]",False
ReDim MyArray(MyContacts.Count - 1,3)
Dim I
I=0

For Each MyItem In MyContacts
Debug.WriteLine(MyItem.LastName & " " & MyItem.CompanyName & " " & MyItem.FileAs)
' ComboBox1.AddITem MyItem.FirstName & " " & MyItem.LastName, 0
MyArray(I, 0) = MyItem.FirstName & " " & MyItem.LastName & " " &
MyItem.CompanyName
MyArray(I, 1) = MyItem.CompanyName
MyArray(I, 2) = MyItem.FileAS
I=I+1
Next

'Set Combobox equal to the array to populate list
ComboBox1.List() = MyArray
End Function

Disclaimer: Your use of the information contained in these pages is at your sole risk. All information on these pages is provided "as is", without any warranty, whether express or implied, of its accuracy, completeness, fitness for a particular purpose, title or non-infringement, and none of the third-party products or information mentioned in the work are authored, recommended, supported or guaranteed by Pro Exchange. OutlookExchange.Com and Pro Exchange shall not be liable for any damages you may sustain by using this information, whether direct, indirect, special, incidental or consequential, even if it has been advised of the possibility of such damages.