Parent Directory
| 
Revision Log
+ initial check-in
| 1 | joko | 1.1 | |
| 2 | ... accessing Ldap-servers from Outlook 2000 via VBA | ||
| 3 | |||
| 4 | - check dependencies? | ||
| 5 | - you'll need the ADSI library (Active Directory Service Interfaces) | ||
| 6 | - incorporated in "Active DS Type Library" activeds.dll and activeds.tlb | ||
| 7 | see: http://www.techgalaxy.net/Docs/Dev/Determining%20which%20version%20of%20ADSI%20is%20installed.htm | ||
| 8 | - download from http://www.microsoft.com/ntserver/nts/downloads/other/ADSI25/default.asp | ||
| 9 | - set it up | ||
| 10 | - open Outlook 2000 | ||
| 11 | - change to Visual Basic Mode (ALT + F11) | ||
| 12 | - open Tools/References | ||
| 13 | - look up "Active DS Type Library" | ||
| 14 | - if you can't find it, | ||
| 15 | try to copy .\prerequisites\activeds.dll and .\prerequisites\activeds.tlb to c:\winnt\system32 | ||
| 16 | - regsvr32 c:\winnt\system32\activeds.dll ??? | ||
| 17 | |||
| 18 | |||
| 19 | |||
| 20 | Dim x As IADs | ||
| 21 | Set x = GetObject("LDAP://192.168.10.1/cn=max,o=Tunemedia,c=de") | ||
| 22 | Debug.Print x.Name | ||
| 23 | Debug.Print x.Get("mail") | ||
| 24 |
| MailToCvsAdmin">MailToCvsAdmin | ViewVC Help |
| Powered by ViewVC 1.1.26 |  |