Try

  .RecipIndex=.RecipCount
  .RecipDisplayName = "<  CC email address >"
  .RecipType=2

>I use the email function(Mapi) to send the email in the to: category i put the email address.
>
>Can you please tell me i also want to make a copy of the email to the another recipient. by putting the email address in the CC:
>
>I use this for sending the email where it puts the name which is appearing on the form in the To:
>******************************Start****************************
>.oleMessage.Compose
>.oleMessage.RecipIndex = 0
>.oleMessage.AddressResolveUI = .T.
>.oleMessage.RecipDisplayName = ALLTRIM(cn_revw.reviewer)
>.oleMessage.ResolveName
>
>******************************End*******************************
>
>Thank you very much.