Как правильно получить доступ к св-ву GetProp?

← →
grigory © (2004-12-01 15:43) [0]

Здравсвуйте!Не могу никак првильно выйти на св-во GetProp!
Пишу так:
var
contactfolder:mapifolder;
contactit: _ContactItem;
mapimessage:Imessage;
begin
ContactIt:= _ContactItem(ContactFolder.Items.Item(1));
MapiMessage:=ContactIt.MAPIOBJECT as Imessage;
MapiMessage.GetProps(Props,0,CValues,PropV);
.............

или второй вариант:
begin
contactfolder:=_Application.GetNamespace("mapi").GetDefaultfolder (olfoldercontact);
ContactIt:=contactfolder.Items.Item(1);
MapiMessage:=ContactIt.MAPIOBJECT as Imessage;
MapiMessage.GetProps(Props,0,CValues,PropV);
но ничего не получается...
помогите пожалуйста!

← →
Chlavik © (2004-12-02 12:59) [1]

Ты читал какие парметры метода getprops и как их использовать ??? Всё правильно, только вот я думал что ты разберёшся с вызвовом GetProps еще раз говорю GetProps + F1 (WInApi)

Вот моя функция для получения Mapi свойства

uses MapiX, MapiTags, MapiDefs... type PPropValue = ^T__UPV; function MapiGetProp(Item:IMAPIProp; Prop:DWORD; var Value:PPropValue):DWORD; var PropV:PSPropValue; Props:TSPropTagArray; CValues:DWORD; begin Props.aulPropTag[0]:=Prop; Props.cValues:=1; // Result:=Item.GetProps(@Props,0,CValues,PropV); if (Result = S_OK) then Value:=@PropV^.Value else begin Value:=nil; if Result = MAPI_W_ERRORS_RETURNED then MapiFreeBuffer(PropV); end; end;

← →
grigory © (2004-12-02 23:50) [2]

да у меня не в getprop проблема..
contactfolder:=_Application.GetNamespace("mapi").GetDefaultfolder (olfoldercontact) - почему это НЕ РАБОТАЕТ?? Я больше не знаю что делать!

← →
grigory © (2004-12-03 00:41) [3]

а если не трудно, можешь мне дать исходники своей программы? Хочется на примере посмотреть..пожалуйста!

Я опечатался olFolderContactS (Uses OutlookXP) - в Outlook Alt + F11 + там Help (и там в VB Help)

Как правильно получить доступ к св-ву GetProp? Найти похожие ветки