🚀 go-pugleaf

If you have BCB6.0

1. Drop a TOutlookApplication component on a form.
2. Place a Button and a String Grid
3. Try this in the Button handler.

    NameSpacePtr pNameSpace ;
    FoldersPtr pFolders ;
    MAPIFolderPtr pFolder ;
    ItemsPtr pItems ;
    ContactItemPtr pContact;

    OutlookApplication1->Connect();
    pNameSpace = OutlookApplication1->GetNamespace (WideString("MAPI"));
    pFolders = pNameSpace->Folders;
    pFolder = 
pNameSpace->GetDefaultFolder(Outlook_2k::OlDefaultFolders(olFolderContacts));
    pItems = pFolder->Items;

    int NumberOfContacts = pFolder->Items->Count ;

    StringGrid1->Cells[0][0] = "Name";
    StringGrid1->Cells[1][0] = "Email";
    StringGrid1->RowCount = NumberOfContacts + 1;

    for (int i=0; i<NumberOfContacts; i++)
    {
      if (i==0) pContact = pFolder->Items->GetFirst() ;
      else pContact = pFolder->Items->GetNext() ;
      StringGrid1->Cells[0][i+1] = pContact->FullName;
      StringGrid1->Cells[1][i+1] = pContact->Email1Address;
    }
    OutlookApplication1->Disconnect();

4. The stuff like Email1Address an so on can be go by opening outlook, 
and running the Visual Basic Editor, then looking at the object 
inspector (and online help).


Ellis wrote:
> hi everybody :)
> 
> i want to read and write to Outlook's address book from my application,
> how can i do this ?
> 
> Ellis
> 
>