MSHTML::IHTMLDocument2Ptr pDoc(GetHtmlDocument());
MSHTML::IHTMLElementPtr e(pDoc->Getall()->item
                         (_T("")));
BSTR l;
e = pDoc->Getbody();
e->get_innerHTML(&l);

FILE *stm;
if( !(stm = fopen( "c:\\ann.xml", "w+" )) == NULL ) 
{
    fwrite(l,sizeof(BSTR),SysStringLen(l),stm);
    fclose(stm);
}