Outlook Business Contact Manager Folders

[Guy]

I'm trying to "walk the folders" to get to the Opportunities folder in BCM. I get a type mismatch which leaves me to believe that they can't be retrieved using MAPI?

Dim objOutlook As Outlook.Application
Dim objNS As Outlook.Namespace
Dim objFolder As MAPI.Folder

Set objOutlook = CreateObject("Outlook.Application")
Set objNS = objOutlook.GetNamespace("MAPI")
Set objFolder = objNS.Folders.Item("Business Contact Manager"). _
Folders.Item("Opportunities")

Will this not work? If I look at the Locals window they show as MAPI folders so I'm confused.

 

[Guy]

I figured it out.....

Should have been Dim objFolder As Outlook.MAPIFolder

Sometimes I just don't pay attention.....

--
Guy
Forefront Business Solutions
www.forefrontbusinesssolutions.com
www.forefrontbusiness.com


I'm trying to "walk the folders" to get to the Opportunities folder in BCM. I get a type mismatch which leaves me to believe that they can't be retrieved using MAPI?

Dim objOutlook As Outlook.Application
Dim objNS As Outlook.Namespace
Dim objFolder As MAPI.Folder

Set objOutlook = CreateObject("Outlook.Application")
Set objNS = objOutlook.GetNamespace("MAPI")
Set objFolder = objNS.Folders.Item("Business Contact Manager"). _
Folders.Item("Opportunities")

Will this not work? If I look at the Locals window they show as MAPI folders so I'm confused.