Reply To: Delete AddressBook

[Support 1]

Thank you for your enquiry.

Can you provide more information about how the code does not work? For example, does it fail on the line:

  set AdressBuch = AdressBuecher.Item("TTT")

or on the line:

  AdressBuch.Delete()

Is an error message displayed? What is your installed version of GroupWise?

You could try something like the following to confirm the name of the address book you wish to delete:

'-------------------------------------------------------------------------------
Sub Main(Client, GWEvent)

  dim iText
  dim oBooks
  dim oBook

  iText = ""

  set oBooks = GroupWise.AddressBooks
  for each oBook in oBooks
    iText = iText & oBook.Name & vbNewLine
  next
  set oBooks = nothing

  MsgBox iText, , "Address Book Names"

End Sub
'-------------------------------------------------------------------------------

I hope this helps.

Regards,
Advansys Support

[This message was edited by Support 1 on June 27, 2006 at 10:04 PM.]