View Single Post
  #3  
Old November 6th 08, 07:41 PM posted to microsoft.public.outlook.program_vba
cinnamngrl
external usenet poster
 
Posts: 28
Default What is wrong with drop-down box?

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