dispatch olApp = "Outlook.Application"
dispatch olContact

#define   olContactItem 2
#define olSave   0

baseKH kh

olContact = olApp.CreateItem(olContactItem)

long lPos = SetTaggedPos( FS )

while lPos != 0
                kh.GetRecById(GetLineId(lPos))
   olContact.FirstName = kh.GetField("imie")
   olContact.LastName = kh.GetField("nazwisko")
   olContact.Email1Address = kh.GetField("email")
   olContact.CompanyName = kh.GetField("nazwa")
   olContact.BusinessTelephoneNumber = kh.GetField("tel1")


olContact.Close(olSave)

lPos = SetTaggedPos( NX )

wend