Outlook Adress book

[eliop]

Hy,

I know that's it is possible to move into the contact folder with this
command:

Dim ns As Outlook.NameSpace
Dim mf As Outlook.MAPIFolder
Set ns = appOutlook.GetNamespace("MAPI")
Set mf = ns.GetDefaultFolder(olFolderContacts)

Somebody know if it's possible to move into an Exchange folder (public
folder) in Outlook??

 

[Arvin Meyer]

You probably will do much better in an Outlook group, but here's the code I
use:

Dim olApp As Object
Dim nsMAPI As NameSpace
Dim ContractorFolder As MAPIFolder
Dim Contractors As Items

Set olApp = GetObject("", "Outlook.Application")
Set nsMAPI = olApp.GetNamespace("MAPI")
Set ContractorFolder = nsMAPI.Folders("Public Folders").Folders("All
Public Folders").Folders("Contractors")
Set Contractors = ContractorFolder.Items.Restrict("[MessageClass] =
'IPM.Contact.Contractor'")
--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads:
http://www.datastrat.com
http://www.mvps.org/access