Print Total Opportunities

Article
06/14/2014

Outlook Developer Reference

Print Total Opportunities

The following C# and Visual Basic for Applications (VBA) examples show how to use the Referred Entry Id property of Opportunities to calculate the total Opportunities that result from a Marketing Campaign.

  private void PrintTotalOpportunitiesInMarketingCampaign()
        {
            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 mktgCampFolder = (Outlook.Folder)bcmRootFolder.Folders["Marketing Campaigns"];
            Outlook.UserProperty userProp;
        Outlook.TaskItem taskItem = (Outlook.TaskItem)mktgCampFolder.Items.Add("IPM.Task.BCM.Campaign");
        taskItem.Subject = "New Marketing Campaign";
        if (taskItem.UserProperties["Campaign Code"] == null)
        {
            userProp = taskItem.UserProperties.Add("Campaign Code", Microsoft.Office.Interop.Outlook.OlUserPropertyType.olText, false, false);
            userProp.Value = "SP2";
        }

        if (taskItem.UserProperties["Campaign Type"] == null)
        {
            userProp = taskItem.UserProperties.Add("Campaign Type", Microsoft.Office.Interop.Outlook.OlUserPropertyType.olText, false, false);
            userProp.Value = "Direct Mail Print";
        }

        if (taskItem.UserProperties["Budgeted Cost"] == null)
        {
            userProp = taskItem.UserProperties.Add("Budgeted Cost", Microsoft.Office.Interop.Outlook.OlUserPropertyType.olCurrency, false, false);
            userProp.Value = 243456;
        }

        if (taskItem.UserProperties["Delivery Method"] == null)
        {
            userProp = taskItem.UserProperties.Add("Delivery Method", Microsoft.Office.Interop.Outlook.OlUserPropertyType.olText, false, false);
            userProp.Value = "Word Mail Merge";
        }

        taskItem.StartDate = System.DateTime.Parse("4/20/2006");
        taskItem.DueDate = System.DateTime.Parse("5/20/2006");
        taskItem.Save();

        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 opportunities = (Outlook.Folder)bcmRootFolder.Folders["Opportunities"];

        Outlook.TaskItem newOpportunity1 = (Outlook.TaskItem)opportunities.Items.Add("IPM.Task.BCM.Opportunity");
        newOpportunity1.Subject = "Sales Opp with Wide World Importers";

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

        if (newOpportunity1.UserProperties["Referred Entry Id"] == null)
        {
            userProp = newOpportunity1.UserProperties.Add("Referred Entry Id", Microsoft.Office.Interop.Outlook.OlUserPropertyType.olText, false, false);
            userProp.Value = taskItem.EntryID;
        }

        newOpportunity1.Save();

        Outlook.TaskItem newOpportunity2 = (Outlook.TaskItem)opportunities.Items.Add("IPM.Task.BCM.Opportunity");
        newOpportunity2.Subject = "New Sales Opportunity with Sara";

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

        if (newOpportunity2.UserProperties["Referred Entry Id"] == null)
        {
            userProp = newOpportunity2.UserProperties.Add("Referred Entry Id", Microsoft.Office.Interop.Outlook.OlUserPropertyType.olText, false, false);
            userProp.Value = taskItem.EntryID;
        }

        newOpportunity2.Save();

        int totalOpportunities = 0;
        Outlook.TaskItem existOpportunity;

        IEnumerator en = opportunities.Items.GetEnumerator();
        en.MoveNext();
        for (int index = 0; index &lt; opportunities.Items.Count; index++)
        {
            if (index &gt; 0)
            {
                en.MoveNext();
            }
            existOpportunity = (Outlook.TaskItem)en.Current;

            if (existOpportunity.ItemProperties["Referred Entry Id"].Value.Equals(taskItem.EntryID))
            {
                totalOpportunities++;
            }
        }
        Console.WriteLine("TotalOpportunities is: {0}", totalOpportunities);
        Console.ReadLine();

    }

  Sub PrintTotalOpportunitiesInMarketingCampaign()
Dim olApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim bcmRootFolder As Outlook.Folder
Dim olFolders As Outlook.Folders
Dim bcmAccountsFldr As Outlook.Folder
Dim bcmOppFldr As Outlook.Folder
Dim bcmCampaignsFldr As Outlook.Folder

Dim newMarketingCampaign As Outlook.TaskItem
Dim newAcct As Outlook.ContactItem
Dim newOpp1 As Outlook.TaskItem
Dim newOpp2 As Outlook.TaskItem
Dim existOpp As Outlook.TaskItem
Dim index As Integer

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 bcmOppFldr = bcmRootFolder.Folders("Opportunities")
Set bcmCampaignsFldr = bcmRootFolder.Folders("Marketing Campaigns")

Set newMarketingCampaign = bcmCampaignsFldr.Items.Add("IPM.Task.BCM.Campaign")
newMarketingCampaign.Subject = "Sales Project with Wide World Importers"

If (newMarketingCampaign.UserProperties("Campaign Code") Is Nothing) Then
    Set userProp = newMarketingCampaign.UserProperties.Add("Campaign Code", olText, False, False)
    userProp.Value = "SP2"
End If

If (newMarketingCampaign.UserProperties("Campaign Type") Is Nothing) Then
    Set userProp = newMarketingCampaign.UserProperties.Add("Campaign Type", olText, False, False)
    userProp.Value = "Mass Advertisement"
End If

If (newMarketingCampaign.UserProperties("Budgeted Cost") Is Nothing) Then
    Set userProp = newMarketingCampaign.UserProperties.Add("Budgeted Cost", olCurrency, False, False)
    userProp.Value = 243456
End If

newMarketingCampaign.Save

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 newOpp1 = bcmOppFldr.Items.Add("IPM.Task.BCM.Opportunity")
 newOpp1.Subject = "OpportunityX"
 
 If (newOpp1.UserProperties("Parent Entity EntryID") Is Nothing) Then
    Set userProp = newOpp1.UserProperties.Add("Parent Entity EntryID", olText, False, False)
    userProp.Value = newAcct.EntryID
 End If
 
 If (newOpp1.UserProperties("Referred Entry Id") Is Nothing) Then
    Set userProp = newOpp1.UserProperties.Add("Referred Entry Id", olText, False, False)
    userProp.Value = newMarketingCampaign.EntryID
 End If
 
 newOpp1.Save

 Set newOpp2 = bcmOppFldr.Items.Add("IPM.Task.BCM.Opportunity")
 newOpp2.Subject = "OpportunityY"
 
 If (newOpp2.UserProperties("Parent Entity EntryID") Is Nothing) Then
    Set userProp = newOpp2.UserProperties.Add("Parent Entity EntryID", olText, False, False)
    userProp.Value = newAcct.EntryID
 End If
 
 If (newOpp2.UserProperties("Referred Entry Id") Is Nothing) Then
    Set userProp = newOpp2.UserProperties.Add("Referred Entry Id", olText, False, False)
    userProp.Value = newMarketingCampaign.EntryID
 End If
 
 newOpp2.Save

Dim TotalOpportunity As Integer

For index = 1 To (bcmOppFldr.Items.count) Step 1
    
    Set existOpp = bcmOppFldr.Items(index)
    
    If existOpp.ItemProperties("Referred Entry Id").Value = newMarketingCampaign.EntryID Then
        TotalOpportunity = TotalOpportunity + 1
    End If
Next

Debug.Print "Total Opportunity: " &amp; TotalOpportunity

Set newOpp1 = Nothing
Set newOpp2 = Nothing
Set newAcct = Nothing
Set newMarketingCampaign = Nothing
Set bcmCampaignsFldr = Nothing
Set bcmOppFldr = Nothing
Set olFolders = Nothing
Set bcmRootFolder = Nothing
Set objNS = Nothing
Set olApp = Nothing

End Sub

Share via

Print Total Opportunities

See Also

Additional resources