Here is the beginning of some code I'm using:
' Set up DAO objects (uses existing "Contacts" table)
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("Outlook Contacts")

' Set up Outlook objects.
Dim ol As New Outlook.Application
Dim olns As Outlook.Namespace
Dim cf As Outlook.MAPIFolder
Dim c As Outlook.ContactItem
Dim objItems As Outlook.Items
Dim Prop As Outlook.UserProperty

Set olns = ol.GetNamespace("MAPI")
Set cf = olns.GetDefaultFolder(olFolderContacts)
Set objItems = cf.Items
iNumContacts = objItems.Count
If iNumContacts <> 0 Then
For I = 1 To iNumContacts
If TypeName(objItems(I)) = "ContactItem" Then
Set c = objItems(I)
If c.Categories = strCategory Then 'It's one of the right category


My question is which part of this do I need to change if I want to access
contacts in a different folder? In Outlook, I have a folder called Work
Contacts, it's not a sub folder to "Contacts" it's just another folder in the
list where it says Contacts, Inbox, Outbox, etc... I'd like to access these
contact items directly, rather than having to always move them to my regular
Contact folder to access them.
thanks,
ck

Hi Charlie,

This is an Outlook question rather than an Access one. A good place to
look is www.outlookcode.com


On Sat, 29 Apr 2006 14:57:01 -0700, Charlie
<(E-Mail Removed)> wrote:

>Here is the beginning of some code I'm using:
> ' Set up DAO objects (uses existing "Contacts" table)
> Dim rst As DAO.Recordset
> Set rst = CurrentDb.OpenRecordset("Outlook Contacts")
>
> ' Set up Outlook objects.
> Dim ol As New Outlook.Application
> Dim olns As Outlook.Namespace
> Dim cf As Outlook.MAPIFolder
> Dim c As Outlook.ContactItem
> Dim objItems As Outlook.Items
> Dim Prop As Outlook.UserProperty
>
> Set olns = ol.GetNamespace("MAPI")
> Set cf = olns.GetDefaultFolder(olFolderContacts)
> Set objItems = cf.Items
> iNumContacts = objItems.Count
> If iNumContacts <> 0 Then
> For I = 1 To iNumContacts
> If TypeName(objItems(I)) = "ContactItem" Then
> Set c = objItems(I)
> If c.Categories = strCategory Then 'It's one of the right category
>
>
>My question is which part of this do I need to change if I want to access
>contacts in a different folder? In Outlook, I have a folder called Work
>Contacts, it's not a sub folder to "Contacts" it's just another folder in the
>list where it says Contacts, Inbox, Outbox, etc... I'd like to access these
>contact items directly, rather than having to always move them to my regular
>Contact folder to access them.
>thanks,
>ck

--
John Nurick [Microsoft Access MVP]

Please respond in the newgroup and not by email.