Эксперты VB, VBA, VBS и т.д. вопрос по формам Outlook

[alexey_ma]

Есть некая форма Outlook-а (template - oft). Каким образом можно добраться до какого нибудь поля в этой форме и изменить в нем значение.

[msustudent]

Попробуй набрать в поисковике "объектная модель Outlook". Скорее всего ты получишь список объектов аутлука с их методами и свойствами(в терминах объектно-ориентированного программирования ). Сам я ни разу с аутлуком не работал поэтому не хочу придумывать.

[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
        
}

[BC Scout]

Какой интересный VB, VBA у тебя

Если у тебя есть корректный референс на этот объект - template, то ничто не должно тебе помешать просто присваивать значения свойствам этого объекта (если только не read only) или, скажем, элементам коллекций.

Что нибудь в таком стиле:

MyForm As New <reference to template object>

MyForm.Sender="Vasya Pupkin"
MyForm.Fields("Sender")="Vasya Pupkin"

[alexey_ma]

Не, я не создаю объект. Я пытаюсь изменить свойства уже запущенного.
Не могу получить указатель на форму(Page) хотя имею указатель на коллекцию Pages

        spPtr = spPages->Item(var); //OK 
        hr = spPtr->QueryInterface(&spPage); //E_NOINTERFACE

А про VB написал потому что такие вещи обычно делаются наVB, VBA.
Буду благодорен за работющий пример на любом языке.

Если бы не оганичения : Office 97 и Win NT , все можно было-бы сделать достаточно просто через IAccessible ,который позволяет до любого объекта добраться

[BC Scout]

Поройся в этом ресурсе, может быть поможет
http://www.outlookcode.com/threads.a...messageid=7530

ну и здесь, конечно,
http://msdn.microsoft.com/library/de..._C11612730.asp

[alexey_ma]

Спасибо.
Первый ресурс очень интерсный. Может чего нибудь найду.
А у MS смотрел. То что я делаю соответствует примерам(конечно в переводе с VB на VC), да только к сожалению не работает.