
The Recipients property returns a single Recipient object or a Recipients collection object. Read-only.
Set collRecips = objMessage.Recipients 
Set objRecip = objMessage.Recipients(index) 
 Object (Recipient or Recipients collection)
You can change individual Recipient objects within the Recipients collection, Add them to the collection, and Delete them from the collection.
The CDO for NTS Library does not permit any modifications to messages in the Inbox, other than deleting the entire message. Prohibited modifications include adding, deleting, or modifying any attachment; adding, deleting, or modifying any recipient; and modifying any message property, even one with read/write access.
This code fragment uses a loop to create a copy of every valid recipient of the original message objMessage in the copy message objCopyItem. For each copied recipient, it also copies important properties from the original.
For i = 1 To objMessage.Recipients.Count Step 1 
   Set objRecip = objMessage.Recipients.Item(i) 
   If Not objRecip Is Nothing Then 
      Set objCopyRecip = objCopyItem.Recipients.Add 
      If objCopyRecip Is Nothing Then 
         MsgBox "Unable to create recipient in message copy" 
         Exit Function 
      End If 
      ' Now copy the most important properties 
      objCopyRecip.Address = objRecip.Address 
      objCopyRecip.Name = objRecip.Name 
      objCopyRecip.Type = objRecip.Type 
   End If 
Next i