Create Address Book XML File

 Keywords:  ADO ADODB

---

AddrBk = C:\Documents and Settings\User\Application Data\Microsoft\Address Book
cConn = StrCat("Provider=Microsoft.JET.OLEDB.4.0;Exchange 4.0;MAPILEVEL=Outlook Address Book\;PROFILE=Outlook;TABLETYPE=1;DATABASE=",AddrBk)
DB    = ObjectOpen("ADODB.Connection")
RS    = ObjectOpen("ADODB.Recordset")

BoxOpen( "Creating Address Book XML File","Please Wait...")
DB.Open( cConn )
cSQL  = "SELECT * from [Contacts]"

RS.Open( cSQL,cConn,3,1 )
RS.Save( "Contacts.xml",1)
RS.Close()
ObjectClose(RS)
DB.Close()
ObjectClose(DB)
BoxShut()
Message("Finished", "XML file created")
Exit