COM: 如何用IMessage去解析eml文件...

Question

#import "c:\\program files\\common files\\system\\ado\\msado15.dll" no_namespace rename("EOF", "ADOEOF") 
#import "c:\\program files\\common files\\microsoft shared\\\cdo\\cdoex.dll" 
...............
CoInitialize(NULL);
_bstr_t url;
   _bstr_t bstrEmpty("");
   CDO::IDataSourcePtr pDsrc(__uuidof(CDO::Item));
   _variant_t varOpt(DISP_E_PARAMNOTFOUND,VT_ERROR);
   _ConnectionPtr pConn(__uuidof(Connection));
   pConn->Provider = "ExOLEDB.DataSource";
url=......;//set url
   try 
   {
      pConn->Open(url, bstrEmpty,bstrEmpty,-1);
      pDsrc->Open(url,variant_t( (IDispatch*)pConn, true),
         adModeRead, adFailIfNotExists,adOpenSource,
         bstr_t(),bstr_t());
   }
   catch(_com_error e) 
   {
   ShowErr(e.Description());
      throw e;
   }
   CDO::IMessage* pMsg;
   HRESULT hr=pDsrc->QueryInterface(&pMsg);
   if(SUCCEEDED(hr)&&pMsg!=NULL)
   {
   BSTR bstto;
pMsg->get_To(&bstto);
ShowErr(CString(bstto));
SysFreeString(bstto);
   pMsg->Release();
   }
   CoUninitialize();