Принимать почту с Exchange сервера

    HRESULT res;
    LPMAPISESSION pSvcSess;
    IMAPITable * lppTable;
    SRowSet * lppRows;
    ULONG FAR * lpulCount;
 
    res = MAPIInitialize(NULL);
    if(res != S_OK) { MessageBox(NULL, L"MAPIInitialize", L"Error!", MB_ICONERROR); return; }
 
    res = MAPILogonEx ( 0L, L"Outlook", NULL,
                     MAPI_NO_MAIL | MAPI_NEW_SESSION |
                     MAPI_EXPLICIT_PROFILE | MAPI_NT_SERVICE,
                     &pSvcSess);
 
    pSvcSess->GetMsgStoresTable(MAPI_UNICODE, &lppTable);

    
LHANDLE lhSession;
ULONG err;
LPSTR lpszSeedMessageID;
LPSTR lpszMessageID;
MapiMessage *lpMessage;
char szSeedMessageID[512];
char szMessageID[512];
 
lpszSeedMessageID=&szSeedMessageID[0];
lpszMessageID=&szMessageID[0];
*lpszSeedMessageID = '\0';
 
HINSTANCE__ *hMAPILib;
LPMAPILOGON lpfnMAPILogon;
LPMAPIFINDNEXT lpfnMAPIFindNext;
LPMAPILOGOFF lpfnMAPILogoff;
LPMAPIREADMAIL lpfnMAPIReadMail;
LPMAPIFREEBUFFER lpfnMAPIFreeBuffer;
 
hMAPILib = LoadLibrary(L"MAPI32.DLL");
lpfnMAPILogon = (LPMAPILOGON) GetProcAddress(hMAPILib, "MAPILogon");
lpfnMAPILogoff = (LPMAPILOGOFF) GetProcAddress(hMAPILib, "MAPILogoff");
lpfnMAPIFindNext = (LPMAPIFINDNEXT) GetProcAddress(hMAPILib, "MAPIFindNext");
lpfnMAPIReadMail = (LPMAPIREADMAIL) GetProcAddress(hMAPILib, "MAPIReadMail");
lpfnMAPIFreeBuffer = (LPMAPIFREEBUFFER) GetProcAddress(hMAPILib, "MAPIFreeBuffer");
 
err = (*lpfnMAPILogon)(0L, NULL, NULL, 0L, 0L, &lhSession);
if(err != SUCCESS_SUCCESS) return;
err = (*lpfnMAPIFindNext)(lhSession, 0L, NULL, lpszSeedMessageID, MAPI_GUARANTEE_FIFO, 0L, lpszMessageID);
if(err != SUCCESS_SUCCESS) return;
 
int i = 0;
while(err == SUCCESS_SUCCESS)
 {
   err = (*lpfnMAPIReadMail)(lhSession, 0L, lpszMessageID, MAPI_SUPPRESS_ATTACH, 0L, &lpMessage);
   if(err == SUCCESS_SUCCESS)
    {
      if((lpMessage->lpOriginator->lpszName != NULL) && lpMessage->lpOriginator->lpszName[0] != '\0')
       ListBox1->Items->Add("От: " + AnsiString(lpMessage->lpOriginator->lpszName));
       else
       ListBox1->Items->Add("От: " + AnsiString(lpMessage->lpOriginator->lpszAddress));
      
      ListBox1->Items->Add("Тема: " + AnsiString(lpMessage->lpszSubject));
 
      ListBox1->Items->Add("");
     }
 
   (*lpfnMAPIFreeBuffer)(lpMessage);
   lstrcpy((wchar_t *)lpszSeedMessageID, (wchar_t *)lpszMessageID);
   err = (*lpfnMAPIFindNext)(lhSession, 0L, NULL, lpszSeedMessageID, MAPI_GUARANTEE_FIFO, 0L, lpszMessageID);
 
   i++;
  }

 pOutlook = new TOutlookApplication(this);
 Explorer *mySel = pOutlook->Explorers->Item(Variant(1));
 pOutlook->Connect();
 
 ns = pOutlook->GetNamespace(WideString("MAPI").c_bstr());
 
 OlDefaultFolders odf = 6;
 MAPIFolderPtr gdf = ns->GetDefaultFolder(odf);
 Caption = AnsiString(gdf->Name);
 
 MailItemPtr msg;
 for(int i=0; i<gdf->Items->Count; i++)
  {
   msg = gdf->Items->Item(Variant(i));
   Memo1->Lines->Add(AnsiString(msg->SenderName));
  }
(для работы нужно прикрепить к проекту bcbofficexp.lib и приписать #include <Outlook_XP_srvr.h>)