Вход на сайт
как добраться до папок \Andere Kontakte\Kunden v Outlook ?
187
16.08.13 10:15
кто работал с MS Outlook?
надо вытащить всех клиентов с папки \Andere Kontakte\Kunden
в нете везде примеры как адресоватьсиа в папку \Meine Kontakte\Kontakte:
olFolderContacts = $0000000A;
outlook := CreateOleObject('Outlook.Application');
NameSpace := outlook.GetNameSpace('MAPI');
Contacts := NameSpace.getDefaultFolder(olFolderContacts)
и все, можно тянуть инфо. (верхняя папка на рисунке)
но как добраться до папок \Andere Kontakte\Alle Kontakte; \Andere Kontakte\Kunden v Outlook ?
(нижние папки)
надо вытащить всех клиентов с папки \Andere Kontakte\Kunden
в нете везде примеры как адресоватьсиа в папку \Meine Kontakte\Kontakte:
olFolderContacts = $0000000A;
outlook := CreateOleObject('Outlook.Application');
NameSpace := outlook.GetNameSpace('MAPI');
Contacts := NameSpace.getDefaultFolder(olFolderContacts)
и все, можно тянуть инфо. (верхняя папка на рисунке)
но как добраться до папок \Andere Kontakte\Alle Kontakte; \Andere Kontakte\Kunden v Outlook ?
(нижние папки)
NEW 16.08.13 23:54
в ответ Alex__SG 16.08.13 10:15
http://msdn.microsoft.com/en-us/library/office/aa210948%28v=office.11%29.aspx
вообщето не работал, но мелкомягкие говорят что можно и субфолдер вытащить
http://msdn.microsoft.com/en-us/library/office/aa210918%28v=office.11%29.aspx
еще вот что нашел
вообщето не работал, но мелкомягкие говорят что можно и субфолдер вытащить
http://msdn.microsoft.com/en-us/library/office/aa210918%28v=office.11%29.aspx
еще вот что нашел
В ответ на:
Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objFolder = objNamespace.GetDefaultFolder(olFolderContacts)
Set objList = objFolder.Items("Approved Vendors")
Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objFolder = objNamespace.GetDefaultFolder(olFolderContacts)
Set objList = objFolder.Items("Approved Vendors")