[alexey_ma]

Смотрел. В том то и дело что неработает.
Код такой:

{
    HRESULT hr;
    IUnknownPtr spUnk;
    CLSID clsid;
    CLSIDFromProgID(L"Outlook.Application", &clsid); 
    hr = GetActiveObject(clsid, NULL, (IUnknown**)&spUnk); //OK
    IDispatchPtr spDisp;
    hr = spUnk->QueryInterface(IID_IDispatch, (void **)&spDisp); //OK
    if(FAILED(hr))
        return ;
    _ApplicationPtr spApp; 
    hr = spDisp->QueryInterface(&spApp);//OK
    if(hr==S_OK)
    {
        IDispatchPtr spPtr = spApp->ActiveInspector()->GetCurrentItem();
        _DMailItemPtr spDMailItem;
        PagesPtr spPages;
        FMPagesPtr spFmp;
        hr = spPtr->QueryInterface(&spDMailItem); //OK
        _bstr_t bstr = spDMailItem->GetBody(); //OK
        bstr = spDMailItem->GetTo(); //OK 
        spPtr = spApp->ActiveInspector()->GetModifiedFormPages();
        hr = spPtr->QueryInterface(&spPages); //OK
        IPagePtr spPage;
        long count = spPages->GetCount(); //OK

        _variant_t var;
        var.vt = VT_I2;
        var.iVal = 1;
        spPtr = spPages->Item(var); //OK 
        hr = spPtr->QueryInterface(&spPage); //E_NOINTERFACE
        
}