Hi all, and sorry for my english

I'm looking how to remove a addresslist in outlook using VB

I want to remove all entry or one entry without using the folder object and
set the ShowAsOutlookAB=False because some time when the folder contact is
corrupt the entry stay in the adresslists

Thanks All for your help


Here my code

Sub Main()
' Create an Outlook application.
Dim oApp As Outlook.Application
Set oApp = New Outlook.Application

' Get the MAPI namespace.
Dim oNS As Outlook.NameSpace
Set oNS = oApp.Session

' Get the AddressLists collection.
Dim oALs As Outlook.AddressLists
Set oALs = oNS.AddressLists
MsgBox (oALs.Count)

' Loop through the AddressLists collection.
Dim i As Integer
Dim oAL As Outlook.AddressList
For i = 1 To oALs.Count
Set oAL = oALs.Item(i)
'
'! Here : how to do oAl.remove ?
'
Next i
End Sub

There are no Remove() or Delete() methods either in the AddressLists or
AddressList collection or object. You can get the AddressEntry of the
corrupted object from the AddressList.AddressEntries collection and delete
that if you want.

The only way to set or change ShowAsOutlookAB is to get the folder you want
and clear that Boolean flag property, so at some point to do that you will
need to access the folder.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm


"Anthony_fr" wrote in message
...
Hi all, and sorry for my english

I'm looking how to remove a addresslist in outlook using VB

I want to remove all entry or one entry without using the folder object
and
set the ShowAsOutlookAB=False because some time when the folder contact is
corrupt the entry stay in the adresslists

Thanks All for your help


Here my code

Sub Main()
' Create an Outlook application.
Dim oApp As Outlook.Application
Set oApp = New Outlook.Application

' Get the MAPI namespace.
Dim oNS As Outlook.NameSpace
Set oNS = oApp.Session

' Get the AddressLists collection.
Dim oALs As Outlook.AddressLists
Set oALs = oNS.AddressLists
MsgBox (oALs.Count)

' Loop through the AddressLists collection.
Dim i As Integer
Dim oAL As Outlook.AddressList
For i = 1 To oALs.Count
Set oAL = oALs.Item(i)
'
'! Here : how to do oAl.remove ?
'
Next i
End Sub

OK thanks for your reply.

but I need a way to do this...

So do you know if I can delete the adress book from my profil and recreate
it whit vb ?
It would reset my adresslist as I want.


Others Ideas are welcome


"Ken Slovak - [MVP - Outlook]" wrote:
There are no Remove() or Delete() methods either in the AddressLists or
AddressList collection or object. You can get the AddressEntry of the
corrupted object from the AddressList.AddressEntries collection and delete
that if you want.

The only way to set or change ShowAsOutlookAB is to get the folder you want
and clear that Boolean flag property, so at some point to do that you will
need to access the folder.

--

No, there's nothing like that which can be done using code. Just delete the
corrupted contact.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm


"Anthony_fr" wrote in message
...
OK thanks for your reply.

but I need a way to do this...

So do you know if I can delete the adress book from my profil and recreate
it whit vb ?
It would reset my adresslist as I want.


Others Ideas are welcome