WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

OLE and Outlook
plus

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Creating Address Book XML File

 Keywords:  Creating Contacts Address Book XML File

outfile = "c:\temp\Contacts.xml"
cConn = "Provider=Microsoft.JET.OLEDB.4.0;Exchange 4.0;MAPILEVEL=Outlook Address Book\;PROFILE=Outlook;TABLETYPE=1;DATABASE=C:\Temp"
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( outfile,1)
RS.Close()
ObjectClose(RS)
DB.Close()
ObjectClose(DB)
BoxShut()
Run(outfile,"")
Exit

Article ID:   W15613
File Created: 2003:05:13:11:29:14
Last Updated: 2003:05:13:11:29:14