Count Property (CDONTS Attachments Collection)
Count Property (CDONTS Attachments Collection)
The Count property returns the number of Attachment objects in the collection. Read-only.
Syntax
collAttachments.Count
Data Type
Long
Example
This code fragment stores in an array the names of all Attachment objects in the collection. It shows the Count and Item properties working together.
' from the sample function, TstDrv_Util_SmallCollectionCount
' collAttachments is an Attachments collection
x = Util_SmallCollectionCount(collAttachments)
Function Util_SmallCollectionCount(objColl As Object)
Dim strItemName(100) As String ' Names of objects in collection
Dim i As Integer ' loop counter
On Error GoTo error_amsmtp
If objColl Is Nothing Then
MsgBox "Must supply a valid collection object as a parameter"
Exit Function
End If
If 0 = objColl.Count Then
MsgBox "No messages in the collection"
Exit Function
End If
For i = 1 To objColl.Count Step 1
strItemName(i) = objColl.Item(i).Name
If 100 = i Then ' max size of string array
Exit Function
End If
Next i
' error handling here...
End Function