Thru online Outlook Exchange, they say that the following code will load a ComboBox with sorted data from a Contacts folder.....
So, can you look at this, and see what if we can updgrade relative to both Comboboxes per my code, and where do I add it to the Code so it does it??
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