Share via


Select an Opportunity

Outlook Developer Reference
Select an Opportunity

To select an Opportunity 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 Opportunity object.

  private void SelectOpportunity()
        {
        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 oppFolder = (Outlook.Folder)bcmRootFolder.Folders["Opportunities"];

        string strQuery = "[Subject] = 'Sales Opp with Wide World Importers'";

        Outlook.TaskItem taskItem = (Outlook.TaskItem)oppFolder.Items.Find(strQuery);
        if (taskItem != null)
        {
            Console.WriteLine("Opportunity Found");
        }

        else
        {
            Console.WriteLine("Opportunity Not Found");
        }

        Console.ReadLine();

    } 
  Sub SelectOpportunity() 

Dim olApp As Outlook.Application Dim objNS As Outlook.NameSpace Dim bcmRootFolder As Outlook.Folder Dim olFolders As Outlook.Folders Dim bcmOppFolder As Outlook.Folder Dim existOpportunity 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 bcmOppFolder = bcmRootFolder.Folders("Opportunities")

Set existOpportunity = bcmOppFolder.Items.Find("[Subject] = 'Opportunity for Wide World Importers to enter into Retail Field'")

If Not TypeName(existOpportunity) = "Nothing" Then

  MsgBox ("Opportunity Found") 

Else

  MsgBox ("Failed to find the Opportunity with Subject Opportunity for Wide World Importers to take over the Spring Sales") 

End If

Set existOpportunity = Nothing Set bcmOppFolder = Nothing Set bcmRootFolder = Nothing Set olFolders = Nothing Set bcmRootFolder = Nothing Set objNS = Nothing Set olApp = Nothing

End Sub

See Also

Create an Opportunity linked to an Account | Create an Opportunity linked to a Business Contact | Edit an Opportunity | Delete an Opportunity | Office Developer Center: Outlook 2007