A
Anthony_fr
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
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