To select a Business Project object, use the Collection.Find method to select an item from the MAPI Folder. The Find method accepts as input a String query and filters items based on the query. If there are more than one items matching the query, only the first match is returned.
The following C# and Visual Basic for Applications (VBA) examples show how to select an existing Business Project object.
Dim olApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim bcmRootFolder As Outlook.Folder
Dim olFolders As Outlook.Folders
Dim bcmProjectsFolder As Outlook.Folder
Dim existingProject As Outlook.TaskItem
Set olApp = CreateObject("Outlook.Application")
Set objNS = olApp.GetNamespace("MAPI")
Set olFolders = objNS.Session.Folders
Set bcmRootFolder = olFolders("Business Contact Manager")
Set bcmProjectsFolder = bcmRootFolder.Folders("Business Projects")
Set existingProject = bcmProjectsFolder.Items.Find("[Subject] = 'Project For Wide World Importers to enter into Retail Field'")
If Not TypeName(existingProject) = "Nothing" Then
MsgBox ("Project selected successfully")
Else
MsgBox ("No Project found with the name of Wide World Importers")
End If
Set existingProject = Nothing
Set bcmProjectsFolder = Nothing
Set bcmRootFolder = Nothing
Set olFolders = Nothing
Set objNS = Nothing
Set olApp = Nothing