Redeption object and Outllok

void __stdcall CMyComAddIN::GetAdresses_Redemption()
{
   
    CoInitializeEx(NULL,COINIT_APARTMENTTHREADED);


    hr_pro_id = CLSIDFromProgID(L"Outlook.Application",&findCLSID);
    hr = olApp.CreateInstance(findCLSID);
   
   
    pFolder_ = olApp->GetNamespace(L"MAPI",&spNS);
    COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
    HRESULT log = spNS->Logon(covOptional, covOptional, covOptional, covOptional);
    spNS->GetDefaultFolder(Outlook::olFolderContacts,&spContacts);


   
   
     spContacts->get_Items(&spItms);
     spItms->GetFirst(&spFirstItem);


    CLSID clsid;
    CComPtr<Redemption::ISafeContactItem> pSafeContactItem(NULL);

     hr_form_prog_id =  CLSIDFromProgID(L"Redemption.SafeContactItem", &clsid);
     hr_ = pSafeContactItem.CoCreateInstance(clsid);

       
    BSTR emailAddress;
    pSafeContactItem->put_Item(pContact_);
    pSafeContactItem->get_Email1Address(&emailAddress);
   

   
    while(spFirstItem)
    {
        pContact_ = spFirstItem;
        CComBSTR emailAddress;
       
        pSafeContactItem->get_Email1Address(&emailAddress);
        spFirstItem.Release();
        spItms->GetNext(&spFirstItem);
    }

   
     spNS->Logoff();
     CoUninitialize();

     
}