How do I write a script to Backup Outlook Express Groups
-
Hi, Is there a way to extract 'Address Book Groups' into a serialized format, such as :
Dim oApp as Object, oAddressBook as Object ,_ oGroup as Object, oContact as Object oApp = CreateObject("OutlookExpress.Application") oAddressBook = oApp.AddressBook oGroup = oAddressBook.Group oContact = oAddressBook.Contact Open "AddressBook_Backup.csv" for Output as #1 For each oGroup In oAddressBook Output #1, oGroup.Name For Each oContact In oGroup Output #1, oContact.Name Output #1, oContact.Email Next oContact Next oGroup Close #1
Another useful script could read that in and perform the necessary function of adding the groups and putting the correct contacts in the groups. I shall be posing this question in the Lounge as well but excluding the code. Any help would be great Thanks in advance :) Tom