Create a Business Project linked to a Primary Account

You can create a Business Project object and link it to one or more Account objects, but the business project can have only one primary Account. If linked to an Account, the History section of the Account form displays details of the business project and the Link To field on the Business Project form displays the Account name.

The following C# and Visual Basic for Applications (VBA) examples show how to create a new business project and link it with a new Account object.

C#

  private void CreateBusinessProjectWithAccount()
        {

            Outlook.ApplicationClass _app = new Outlook.ApplicationClass();
            Outlook.Application olApp = (Outlook.Application)_app;
            Outlook.NameSpace olNameSpace = _app.GetNamespace("MAPI");
            Outlook.Folders folders = olNameSpace.Session.Folders;
            Outlook.Folder bcmRootFolder = (Outlook.Folder)folders["Business Contact Manager"];

            Outlook.Folder accounts = (Outlook.Folder)bcmRootFolder.Folders["Accounts"];
            
            Outlook.ContactItem newAccount =
            (Outlook.ContactItem)accounts.Items.Add("IPM.Contact.BCM.Account");

            newAccount.FullName = "Wide World Importers";
            newAccount.FileAs = "WWImporters";
            newAccount.Save();

            string accountEntryID = newAccount.EntryID;

            Outlook.Folder projects = (Outlook.Folder)bcmRootFolder.Folders["Business Projects"];
            Outlook.TaskItem newProject =
            (Outlook.TaskItem)projects.Items.Add("IPM.Task.BCM.Project");
            newProject.Subject = "Sales Project with Wide World Importers";

            if (newProject.UserProperties["Parent Entity EntryID"] == null)
            {
                Outlook.UserProperty userProp = newProject.UserProperties.Add("Parent Entity EntryID", Microsoft.Office.Interop.Outlook.OlUserPropertyType.olText, false, false);
                userProp.Value = accountEntryID;
            }

            newProject.Save();

        }

VBA

  Sub CreateBusinessProjectWithAccount()

   Dim olApp As Outlook.Application
   Dim objNS As Outlook.NameSpace
   Dim olFolders As Outlook.Folders
   Dim bcmRootFolder As Outlook.Folder
   Dim bcmAccountsFldr As Outlook.Folder
   Dim existAcct As Outlook.ContactItem
   Dim newProject 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 bcmAccountsFldr = bcmRootFolder.Folders("Accounts")
   Set bcmProjFolder = bcmRootFolder.Folders("Business Projects")

   Set newAcct = bcmAccountsFldr.Items.Add("IPM.Contact.BCM.Account")
   newAcct.FullName = "Wide World Importers"
   newAcct.FileAs = "Wide World Importers"
   newAcct.Email1Address = "someone@example.com"
   newAcct.Save

   Set newProject = bcmProjFolder.Items.Add("IPM.Task.BCM.Project")
   newProject.Subject = "Project For Wide World Importers to enter into Retail Field"
   
   If (newProject.UserProperties("Parent Entity EntryID") Is Nothing) Then
        Set userProp = newProject.UserProperties.Add("Parent Entity EntryID", olText, False, False)
        userProp.Value = newAcct.EntryID
   End If

   newProject.Save

   Set newProject = Nothing
   Set existAcct = Nothing
   Set bcmAccountsFldr = Nothing
   Set bcmRootFolder = Nothing
   Set olFolders = Nothing
   Set objNS = Nothing
   Set olApp = Nothing

End Sub

See Also

Select a Business Project | Edit a Business Project | Delete a Business Project | Create an Opportunity linked to a Business Contact | 2007 Office System: Updated Developer Content