| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

grigory ©   (2004-12-01 15:43:00) 

Здравсвуйте!Не могу никак првильно выйти на св-во 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-05 20:20:00) [1]

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

---

grigory   (2004-12-03 00:41:00) [2]

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

---

grigory   (2004-12-02 23:50:00) [3]

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

---

Chlavik   (2004-12-02 12:59:00) [4]

Ты читал какие парметры метода 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;


---

Наверх