How to add button to Outlook toolbar?

CComPtr < Office::_CommandBars> spCmdBars; 
  CComPtr < Office::CommandBar> spCmdBar;

  // QI() for _Application
  CComQIPtr <Outlook::_Application> spApp(Application); 
  ATLASSERT(spApp);
  // get the CommandBars interface that represents Outlook's
   //toolbars & menu items  

  CComPtr<Outlook::_Explorer> spExplorer; 
  spApp->ActiveExplorer(&spExplorer);

  HRESULT hr = spExplorer->get_CommandBars(&spCmdBars);
  if(FAILED(hr))
    return hr;
  ATLASSERT(spCmdBars);

  // now we add a new toolband to Outlook
  // to which we'll add 2 buttons
  CComVariant vName("OutlookAddin");
  CComPtr <Office::CommandBar> spNewCmdBar;
  
  // position it below all toolbands
  //MsoBarPosition::msoBarTop = 1
  CComVariant vPos(1); 

  CComVariant vTemp(VARIANT_TRUE); // menu is temporary    
  CComVariant vEmpty(DISP_E_PARAMNOTFOUND, VT_ERROR);      
  //Add a new toolband through Add method
  // vMenuTemp holds an unspecified parameter
  //spNewCmdBar points to the newly created toolband
  spNewCmdBar = spCmdBars->Add(vName, vPos, vEmpty, vTemp);

  //now get the toolband's CommandBarControls
  CComPtr < Office::CommandBarControls> spBarControls;
  spBarControls = spNewCmdBar->GetControls();
  ATLASSERT(spBarControls);
  
  //MsoControlType::msoControlButton = 1
  CComVariant vToolBarType(1);
  //show the toolbar 
  CComVariant vShow(VARIANT_TRUE);
  
  CComPtr < Office::CommandBarControl> spNewBar; 
  CComPtr < Office::CommandBarControl> spNewBar2; 
      
  // add first button
  spNewBar = spBarControls->Add(vToolBarType,vEmpty,vEmpty,vEmpty,vShow); 
  ATLASSERT(spNewBar);