CB6中读取OUTLOOK中的地址簿

CB6中读取OUTLOOK中的地址簿(2)                 //emailname.SetLength(128);

                for(int i = 1;i <= count;i++)
                {
                        pList = pAddr->Item(TVariant(i));
                        pAddrEntries = pList->get_AddressEntries();
                        count1 = pAddrEntries->Count;
                        for(int j = 1;j <= count1;j++)
                        {
                                pEntry = pAddrEntries->Item(TVariant(j));
                                //pEntry->get_Name(&emailname);
                                pEntry->get_Address(&email);
                                //this->Memo1->Lines->Add(AnsiString(emailname.c_bstr()) + "\t" + AnsiString(email.c_bstr()));