p2p.wrox.com: Archives - asp

asp_cdo thread: Editing address lists

Message #1 by cairol2@y... on Tue, 25 Jun 2002 17:31:08

Hello

What I need is a public exchange address list, which can be edit through 
CDO in Visual Basic.
I create an address list in the 
directory ?Recipients\AllAddresslists\Mylist?.
Everyone has full authorization but if I try to add
a new Address, it raises the error

[Colaboration Data Objects - [E_AccessDenied(80070005)]]

My plattform: Windows 2000 Server SP2, Exchange
Server 2000 SP2, Office 2000, Visual Basic 6.0, 
Using Microsoft CDO 1.21 Library 


Here?s my code:

Public Sub AddAddressEntry()

  Dim objAddressList As MAPI.AddressList
  Dim objAddressEntry As MAPI.AddressEntry
  Dim colAddressentries As MAPI.AddressEntries

  On Error GoTo ErrHandler

  For Each objAddressList In

    gobjSession.AddressLists
    If objAddressList.Name = "Mylist" Then

      Set objAddressEntry = 
          objAddressList.AddressEntries.Add
          ("Test@T...",  "Daniel Kliche", "Test1")

      objaddressEntry.Update
    End If

  Next

  ExitFunc:
    Exit Sub

  ErrHandler:
    Call ReportError(Err)
    Resume ExitFunc

End Sub

The error raised in the line adding an addressentry 

Set objAddressEntry = objAddressList.AddressEntries.Add
("Test@T...",  "Daniel Kliche", "Test1")

[Colaboration Data Objects - [E_AccessDenied(80070005)]]

Someone knows what is the fault?


Thanks for your help

Daniel

Message #2 by "Siegfried Weber" <sweber@c...> on Tue, 25 Jun 2002 18:54:54 +0200

CDO 1.21 cannot add or delete entries on the Exchange 5.5 & 2000 address
lists. Since the address lists Exchange 2000 uses are actually just
filtered LDAP views of the Windows 2000 Active Directory you need to use
ADSI. For more info check http://msdn.microsoft.com/activedirectory

<Cheers:Siegfried runat=3D"server" />

> -----Original Message-----
> From: cairol2@y... [mailto:cairol2@y...]
> Sent: Tuesday, June 25, 2002 7:31 PM
> To: ASP CDO
> Subject: [asp_cdo] Editing address lists
>
> Hello
>
> What I need is a public exchange address list, which can be edit
through
> CDO in Visual Basic.
> I create an address list in the
> directory "Recipients\AllAddresslists\Mylist".
> Everyone has full authorization but if I try to add
> a new Address, it raises the error
>
> [Colaboration Data Objects - [E_AccessDenied(80070005)]]
>
> My plattform: Windows 2000 Server SP2, Exchange
> Server 2000 SP2, Office 2000, Visual Basic 6.0,
> Using Microsoft CDO 1.21 Library
>
>
> Here's my code:
>
> Public Sub AddAddressEntry()
>
>   Dim objAddressList As MAPI.AddressList
>   Dim objAddressEntry As MAPI.AddressEntry
>   Dim colAddressentries As MAPI.AddressEntries
>
>   On Error GoTo ErrHandler
>
>   For Each objAddressList In
>
>     gobjSession.AddressLists
>     If objAddressList.Name =3D "Mylist" Then
>
>       Set objAddressEntry =3D
>           objAddressList.AddressEntries.Add
>           ("Test@T...",  "Daniel Kliche", "Test1")
>
>       objaddressEntry.Update
>     End If
>
>   Next
>
>   ExitFunc:
>     Exit Sub
>
>   ErrHandler:
>     Call ReportError(Err)
>     Resume ExitFunc
>
> End Sub
>
> The error raised in the line adding an addressentry
>
> Set objAddressEntry =3D objAddressList.AddressEntries.Add
> ("Test@T...",  "Daniel Kliche", "Test1")
>
> [Colaboration Data Objects - [E_AccessDenied(80070005)]]
>
> Someone knows what is the fault?
>
>
> Thanks for your help
>
> Daniel
>
>
>

Message #3 by cairol2@y... on Wed, 26 Jun 2002 08:14:18

Will CDO for Exchange 2000 or another library work?


> CDO 1.21 cannot add or delete entries on the Exchange 5.5 & 2000 address
lists. Since the address lists Exchange 2000 uses are actually just
filtered LDAP views of the Windows 2000 Active Directory you need to use
ADSI. For more info check http://msdn.microsoft.com/activedirectory

<Cheers:Siegfried runat=3D"server" />

> -----Original Message-----
> From: cairol2@y... [mailto:cairol2@y...]
> Sent: Tuesday, June 25, 2002 7:31 PM
> To: ASP CDO
> Subject: [asp_cdo] Editing address lists
>
> Hello
>
> What I need is a public exchange address list, which can be edit
through
> CDO in Visual Basic.
> I create an address list in the
> directory "Recipients\AllAddresslists\Mylist".
> Everyone has full authorization but if I try to add
> a new Address, it raises the error
>
> [Colaboration Data Objects - [E_AccessDenied(80070005)]]
>
> My plattform: Windows 2000 Server SP2, Exchange
> Server 2000 SP2, Office 2000, Visual Basic 6.0,
> Using Microsoft CDO 1.21 Library
>
>
> Here's my code:
>
> Public Sub AddAddressEntry()
>
>   Dim objAddressList As MAPI.AddressList
>   Dim objAddressEntry As MAPI.AddressEntry
>   Dim colAddressentries As MAPI.AddressEntries
>
>   On Error GoTo ErrHandler
>
>   For Each objAddressList In
>
>     gobjSession.AddressLists
>     If objAddressList.Name =3D "Mylist" Then
>
>       Set objAddressEntry =3D
>           objAddressList.AddressEntries.Add
>           ("Test@T...",  "Daniel Kliche", "Test1")
>
>       objaddressEntry.Update
>     End If
>
>   Next
>
>   ExitFunc:
>     Exit Sub
>
>   ErrHandler:
>     Call ReportError(Err)
>     Resume ExitFunc
>
> End Sub
>
> The error raised in the line adding an addressentry
>
> Set objAddressEntry =3D objAddressList.AddressEntries.Add
> ("Test@T...",  "Daniel Kliche", "Test1")
>
> [Colaboration Data Objects - [E_AccessDenied(80070005)]]
>
> Someone knows what is the fault?
>
>
> Thanks for your help
>
> Daniel
>
>
>

Message #4 by "Siegfried Weber" <sweber@c...> on Wed, 26 Jun 2002 11:07:50 +0200

No because CDO for Exchange 2000 is for messaging and calendaring only.
As I mentioned in my previous reply, use the ADSI component which is
included in any Windows 2000, Windows.NET Server and Windows XP install.

<Cheers:Siegfried runat=3D"server" />

> -----Original Message-----
> From: cairol2@y... [mailto:cairol2@y...]
> Sent: Wednesday, June 26, 2002 10:14 AM
> To: ASP CDO
> Subject: [asp_cdo] RE: Editing address lists
>
> Will CDO for Exchange 2000 or another library work?
>
>
> > CDO 1.21 cannot add or delete entries on the Exchange 5.5 & 2000
address
> lists. Since the address lists Exchange 2000 uses are actually just
> filtered LDAP views of the Windows 2000 Active Directory you need to
use
> ADSI. For more info check http://msdn.microsoft.com/activedirectory
>
> <Cheers:Siegfried runat=3D3D"server" />
>
> > -----Original Message-----
> > From: cairol2@y... [mailto:cairol2@y...]
> > Sent: Tuesday, June 25, 2002 7:31 PM
> > To: ASP CDO
> > Subject: [asp_cdo] Editing address lists
> >=3D20
> > Hello
> >=3D20
> > What I need is a public exchange address list, which can be edit
> through
> > CDO in Visual Basic.
> > I create an address list in the
> > directory "Recipients\AllAddresslists\Mylist".
> > Everyone has full authorization but if I try to add
> > a new Address, it raises the error
> >=3D20
> > [Colaboration Data Objects - [E_AccessDenied(80070005)]]
> >=3D20
> > My plattform: Windows 2000 Server SP2, Exchange
> > Server 2000 SP2, Office 2000, Visual Basic 6.0,
> > Using Microsoft CDO 1.21 Library
> >=3D20
> >=3D20
> > Here's my code:
> >=3D20
> > Public Sub AddAddressEntry()
> >=3D20
> >   Dim objAddressList As MAPI.AddressList
> >   Dim objAddressEntry As MAPI.AddressEntry
> >   Dim colAddressentries As MAPI.AddressEntries
> >=3D20
> >   On Error GoTo ErrHandler
> >=3D20
> >   For Each objAddressList In
> >=3D20
> >     gobjSession.AddressLists
> >     If objAddressList.Name =3D3D "Mylist" Then
> >=3D20
> >       Set objAddressEntry =3D3D
> >           objAddressList.AddressEntries.Add
> >           ("Test@T...",  "Daniel Kliche", "Test1")
> >=3D20
> >       objaddressEntry.Update
> >     End If
> >=3D20
> >   Next
> >=3D20
> >   ExitFunc:
> >     Exit Sub
> >=3D20
> >   ErrHandler:
> >     Call ReportError(Err)
> >     Resume ExitFunc
> >=3D20
> > End Sub
> >=3D20
> > The error raised in the line adding an addressentry
> >=3D20
> > Set objAddressEntry =3D3D objAddressList.AddressEntries.Add
> > ("Test@T...",  "Daniel Kliche", "Test1")
> >=3D20
> > [Colaboration Data Objects - [E_AccessDenied(80070005)]]
> >=3D20
> > Someone knows what is the fault?
> >=3D20
> >=3D20
> > Thanks for your help
> >=3D20
> > Daniel
> >=3D20
> >=3D20
> >=3D20

Message #5 by "Daniel Kliche" <DanielKliche@g...> on Thu, 27 Jun 2002 12:09:50

I found ADSI examples, editing the GAL, but nothing for another public 
address list.
Someone know anything about?

Thanks



> No because CDO for Exchange 2000 is for messaging and calendaring only.
As I mentioned in my previous reply, use the ADSI component which is
included in any Windows 2000, Windows.NET Server and Windows XP install.

<Cheers:Siegfried runat=3D"server" />

Message #6 by "Siegfried Weber" <sweber@c...> on Thu, 27 Jun 2002 15:57:22 +0200

Although this is slightly off topic of this list, the basic steps are:

- Locate the address list you want to display in Active Directory (AD)
- Read the LDAP search filter applied to this address list
- Create an ADO query against AD with the LDAP search filter
- Loop through all results and output them in HTML

The following MSKB might help to point you into the right direction:

http://support.microsoft.com/default.aspx?scid=3Dkb;EN-US;q252459
http://support.microsoft.com/default.aspx?scid=3Dkb;EN-US;q310854
http://support.microsoft.com/default.aspx?scid=3Dkb;EN-US;q312299
http://support.microsoft.com/default.aspx?scid=3Dkb;EN-US;q253568


<Cheers:Siegfried runat=3D"server" />

> -----Original Message-----
> From: Daniel Kliche [mailto:DanielKliche@g...]
> Sent: Thursday, June 27, 2002 2:10 PM
> To: ASP CDO
> Subject: [asp_cdo] RE: Editing address lists
>
> I found ADSI examples, editing the GAL, but nothing for another public
> address list.
> Someone know anything about?
>
> Thanks
>
>
>
> > No because CDO for Exchange 2000 is for messaging and calendaring
only.
> As I mentioned in my previous reply, use the ADSI component which is
> included in any Windows 2000, Windows.NET Server and Windows XP
install.
>
> <Cheers:Siegfried runat=3D3D"server" />
>

Return to Index

P2P Archives