>* test001.prg
>*
>#define olContactItem 2
>#define olBusiness 2
>
>I am just beginning looking into automating Outlook. I have the GRANOR/MARTIN book which explains this. On page 340 there is a fairly simple example of adding a contact to outlook which I have attempted to mimic (see below).
>I runs smoothly but the contact does not show up in Outlook. Any ideas as to why ?
>
>
>Local oNameSpace, oContact
>if varType(oOutlook) <> "O"
> wait "Creating Outlook Object Variable ... " window timeout 2
> Release oOutlook
> public oOutlook
> oOutlook = createObject("Outlook.Application")
>endif
>cNameSpace = oOutlook.GetNameSpace("MAPI")
>oContact = oOutlook.CreateItem(olContactItem)
>with oContact
> .FullName = "Shaina Dascher"
> .PrimaryTelephoneNumber = "570-494-0664"
> .Save() && Note: I know it goes thru this spot by using the debugger.
>endwith
>oOutlook.quit()
>return

My procedure goes:

ooutlook = CreateObject("Outlook.Application")
onamespace = ooutlook.GetNameSpace("MAPI")
ofldrcontacts = onamespace.Folders("Personal Folders").Folders("Contacts").Folders("402 WWW Access")

* Set the contact reference to the new contact
oitem = ofldrcontacts.Items.Add


  * Set properties of the contact
  WITH oitem
      .FirstName = txtContactFirstName
      .LastName = txtContactLastName
      .FileAs = .LastName + ", " + .FirstName
      .Email1Address = txtEmailAddress
      .Email1AddressType = 'SMTP'
      .JobTitle = txtContactTitle
      .CompanyName = txtCompanyName
      .BusinessAddressStreet = txtAddress
      .BusinessAddressCity = txtCity
      .BusinessAddressState = txtRegion
      .BusinessAddressPostalCode = txtPostalCode
      .BusinessAddressCountry = txtCountry
      .BusinessTelephoneNumber = txtPhone
      .BusinessFaxNumber = txtFax
      .GovernmentIDNumber = LOWER(txtgovernid)
      .CustomerID = LOWER(txtcustid)
      .JobTitle = memoreason
      .User1 = txtUserField1
      * Save the contact
      .Save
    ENDWITH