Outlook to Exchange

[Arlene]

Can anyone tell me how to reference a public folder.

I would like to import data from a custom form in an
Outlook Public Folder to an Access table so that I can run
reports on the data. I have found an example that will
import Contact data from the user's contacts, but nothing
that connects to a public folder.

Arlene

 

[Paul Overway]

Public Folders are not much different than other folders. You just need to
get the folder object and iterate through the Items. The snippet below will
allow you to pick the public folder.

'Get a folder
Dim olApp As Object
Dim olNamespace As Object
Dim olFolder As Variant

On Error Resume Next

Set olApp = CreateObject("Outlook.Application")
Set olNamespace = olApp.GetNamespace("MAPI")
Set olFolder = olNamespace.PickFolder

 

[Arlene]

-----Original Message-----
Public Folders are not much different than other folders. You just need to
get the folder object and iterate through the Items. The snippet below will
allow you to pick the public folder.

'Get a folder
Dim olApp As Object
Dim olNamespace As Object
Dim olFolder As Variant

On Error Resume Next

Set olApp = CreateObject("Outlook.Application")
Set olNamespace = olApp.GetNamespace("MAPI")
Set olFolder = olNamespace.PickFolder



--
Paul Overway
Logico Solutions, LLC
www.logico-solutions.com





.
Thanks for your help!