Is there a way to add new names and other details to outlook from within FoxPro ?#DEFINE olFolderContacts 10
loOutlook = CREATEOBJECT( 'Outlook.Application' )
loNameSpace = loOutlook.GetNameSpace( 'MAPI' )
loAddressBook = This.oNameSpace.GetDefaultFolder( olFolderContacts )
loContact = loAddressBook.Items.Add()
WITH loContact
.BusinessAddressStreet = 'Yada Yada Yada'
.BusinessAddressPostOfficeBox = 'P.O. Box 666'
.BusinessAddressCity = 'Akorn'
.BusinessAddressState = 'OHIO'
.BusinessAddressPostalCode = '44319'
.BusinessAddressCountry = 'USA'
.BusinessTelephoneNUmber = '330-555-1212'
.BusinessFaxNumber = '330-555-1212'
.CompanyName = 'Tightline Computers, Inc.'
.Email1Address = 'info@tightlinecomputers.com'
.Email2Address = 'admin@tightlinecomputers.com'
.FirstName = 'Marcia')
.HomeAddressStreet = '555 Anystreet'
.HomeAddressPostOfficeBox = ''
.HomeAddressCity = 'Akorn'
.HomeAddressState = 'OHIO'
.HomeAddressPostalCode = '44319'
.HomeAddressCountry = 'USA'
.LastName = 'Akins'
.MiddleName = 'G.'
.MobileTelephoneNumber = '330-555-1212'
.Save()
ENDWITH
