Share via


Count Property (Recipients Collection)

Count Property (Recipients Collection)

The Count property returns the number of Recipient objects in the collection. Read-only.

Syntax

objRecipColl.Count

Data Type

Long

Example

This code fragment uses the Count property as a loop terminator to copy all Recipient objects from one messages Recipients collection to another messages collection. It shows the Count and Item properties working together. Note how much more code this requires than copying the Message objects Recipients property from the original message to the copy.

' from the sample function Util_CopyMessage
' Copy all Recipient objects from one messages collection to another
Dim objOneMsg, objCopyMsg as Message
Dim objRecipColl as Recipients ' source message Recipients collection
Dim objOneRecip as Recipient ' individual recipient in target message
' ... verify valid messages ...
Set objRecipColl = objOneMsg.Recipients
For i = 1 To objRecipColl.Count Step 1
    strRecipName = objRecipColl.Item(i).Name
'   could be objRecipColl(i).Name since Item is default property
    If strRecipName <> "" Then
        Set objOneRecip = objCopyMsg.Recipients.Add
        If objOneRecip Is Nothing Then
            MsgBox "Unable to create recipient in message copy"
            Exit Function
        End If
        objOneRecip.Name = strRecipName
        objOneRecip.Address = objRecipColl.Item(i).Address
        objOneRecip.Type = objRecipColl.Item(i).Type
    End If
Next i
 

See Also

Concepts

Recipients Collection Object