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!

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!

On Oct 31, 9:12 am, "Ken Slovak - [MVP - Outlook]"
wrote:
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!

The problem is that I don't know what the intrinsic Application object
would be. I am trying to put this on a userform. All of the examples
in help seem to apply to Page 2 of existing outlook forms
(contactforms?). You can see I don't know much about what i'm
doing.

I am trying to create simple userforms to enter data about certain
contacts. For my two other user forms it is two step process where I
type in the last name and it presents a balloon with up to five
possible contacts. I can show you that code if you want . As you can
imagine it is cumbersome to write and ends up being a two step process
to enter data. I somewhat understand that correct object, but I only
have the help file to learn from.

Again, where is this code running? If it's in the Outlook VBA project
Application is always the Outlook.Application object.

Also again, 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
...
snip
The problem is that I don't know what the intrinsic Application object
would be. I am trying to put this on a userform. All of the examples
in help seem to apply to Page 2 of existing outlook forms
(contactforms?). You can see I don't know much about what i'm
doing.

I am trying to create simple userforms to enter data about certain
contacts. For my two other user forms it is two step process where I
type in the last name and it presents a balloon with up to five
possible contacts. I can show you that code if you want . As you can
imagine it is cumbersome to write and ends up being a two step process
to enter data. I somewhat understand that correct object, but I only
have the help file to learn from.

This is in Outlook VBA Project and nothing makes it into the
dropdown.

On Nov 7, 10:07 am, "Ken Slovak - [MVP - Outlook]"
wrote:
Again, where is this code running? If it's in the Outlook VBA project
Application is always the Outlook.Application object.

Also again, 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

...
snip

The problem is that I don't know what the intrinsic Application object
would be. I am trying to put this on a userform. All of the examples
in help seem to apply to Page 2 of existing outlook forms
(contactforms?). You can see I don't know much about what i'm
doing.

I am trying to create simple userforms to enter data about certain
contacts. For my two other user forms it is two step process where I
type in the last name and it presents a balloon with up to five
possible contacts. I can show you that code if you want . As you can
imagine it is cumbersome to write and ends up being a two step process
to enter data. I somewhat understand that correct object, but I only
have the help file to learn from.

Do you get the messages about the count and about each item in the Immediate
window? Assuming the code is actually running it doesn't look bad. You do
use AddItem to add each item to the list as you are doing. However, if you
don't click on the arrow in the drop-down you won't see the list that's been
created, even with the DropDown() method call. If you want to show an item
from the list as you start use the ComboBox.ListIndex property and set it to
an integer value based on your list.

--
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
...
This is in Outlook VBA Project and nothing makes it into the
dropdown.

when i click on the dropdown arrow, the list is empty.

On Nov 7, 2:49 pm, "Ken Slovak - [MVP - Outlook]"
wrote:
Do you get the messages about the count and about each item in the Immediate
window? Assuming the code is actually running it doesn't look bad. You do
use AddItem to add each item to the list as you are doing. However, if you
don't click on the arrow in the drop-down you won't see the list that's been
created, even with the DropDown() method call. If you want to show an item
from the list as you start use the ComboBox.ListIndex property and set it to
an integer value based on your list.

--
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

...

This is in Outlook VBA Project and nothing makes it into the
dropdown.

Did you set the ComboBox.ListIndex property to a valid index value?

--
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
...
when i click on the dropdown arrow, the list is empty.