Отправлено: 05.11.13 15:57. Заголовок: Адреса Outlook как получить имя из этой книжки ?

Прошу подсказки - пытаюсь дернуть адресную книгу OutLook из harbour, и не все гладко идет


задачка простая - просто считать книгу, делаю это так :

==============================================

FUNC GetAddress()
LOCAL objOutlook
LOCAL objAddressList
LOCAL objAddressEntry
LOCAL objGAL

LOCAL nCount

HB_SETCODEPAGE( "RU1251" )

objOutlook := CreateObject("Outlook.Application")
objNameSpace := objOutlook:Session
objAddressList := objNameSpace:AddressLists

objGAL := objAddressList:Item(1)

objAddressEntry := objGAL:AddressEntries
nCount := objAddressEntry:Count

oEntry := objAddressEntry:GetFirst()

? oEntry:Name
? oEntry:Address

FOR i := 2 TO nCount
oEntry := objAddressEntry:GetNext()
? 'Address -> ', oEntry:Address
? 'Name -> ', oEntry:Name
END

objOutlook:Quit()

RETURN NIL

=============================================

ВОПРОСЫ
1. Приходиться использовать objGAL := objAddressList:Item(1) , а не как в примерах из VB objNameSpace:AddressLists('Contact') - иначе ругается не пойму почему (((
2. при выводе,
? oEntry:Name
? oEntry:Address
вместо :Name почему-то тоже выдает :Address , хотя в аутлуке я имена пользователей вижу нормально

Может есть у кого пример , буду благодарен за помощь )

 Отправлено: 05.11.13 16:07. Заголовок: Haz пишет: Может ес..

Haz пишет:

цитата:

Может есть у кого пример

Нашел у себя в архиве такой пример:

#define olFolderContacts 10 
  
  
 FUNCTION MAIN() 
  
     LOCAL oOutlook := CREATEOBJECT( "Outlook.Application" ) 
     LOCAL oNameSpace := oOutlook:GetNameSpace("MAPI") 
     LOCAL oContacts := oNameSpace:GetDefaultFolder( olFolderContacts ) 
  
     LOCAL i 
  
     FOR i = 1 TO oContacts:Items:Count 
         ? oContacts:Items[ i ]:FullName 
         ? oContacts:Items[ i ]:BusinessAddressStreet 
         ? oContacts:Items[ i ]:BusinessAddressPostalCode 
         ? oContacts:Items[ i ]:BusinessAddressCity 
         ? oContacts:Items[ i ]:BusinessAddressState 
         ? oContacts:Items[ i ]:BusinessAddressCountry 
         ? oContacts:Items[ i ]:BusinessTelephoneNumber 
         ? oContacts:Items[ i ]:Email1Address 
         ? oContacts:Items[ i ]:LastModificationTime 
         ? 
     NEXT 
  
     oOutlook:Quit() 
  
     INKEY( 0 ) 
  
     RETURN NIL 
  
 

Может, поможет

 Отправлено: 05.11.13 16:15. Заголовок: Спасибо Григорий , то что надо!!

Спасибо

PS. этот бы пример еще добавить в SAMPLES\OLE ...