Provide more information.
Where is this code running, is it in the Outlook VBA project? If so don't
use New Outlook.Application, use the intrinsic Application object.
What's not working? What fails, what gets put into the drop-down. What
problem are you seeing?
--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm
"cinnamngrl" wrote in message
...
I have been trying to create a userform with a simple dropdown combo
box. I have tried to follow the examples I have found and I just
plain pasted the example for combobox2 from the help file.
Below is the code for userform dropkids with two combo boxs and
matching command buttons.
Sub CommandButton1_Click()
ComboBox1.DropDown
End Sub
Sub Item_Open()
Set olApp = New Outlook.Application
Set olns = olApp.GetNamespace("MAPI")
Set contactsFolder = olns.GetDefaultFolder(olFolderContacts)
Set allcontactitems = contactsFolder.Items
Set kids = allcontactitems.Restrict("[Categories]= ""caseload""")
kids.Sort "[LastName]"
Debug.Print kids.Count
For Each itm In kids
Debug.Print itm
ComboBox1.AddItem itm.FileAs
Next
End Sub
Sub CommandButton2_Click()
ComboBox2.DropDown
End Sub
Sub Item_OpenA()
ComboBox2.AddItem "Turkey"
ComboBox2.AddItem "Chicken"
ComboBox2.AddItem "Duck"
ComboBox2.AddItem "Goose"
ComboBox2.AddItem "Grouse"
End Sub
Private Sub UserForm_Click()
End Sub
If someone just pointed me to some no-fail sample code that would be
great!