Count 属性（CDONTS Messages 集合）

Count 属性返回集合中 Message 对象的个数，如果无法获得其准确的数目，则返回一个非常大的数值。只允许读。

语法

collMessages.Count 
 

数据类型

长整型

注释

下面的示例说明在一个大集合中 Item 属性与 Count 属性是如何在一起使用的。

示例

下面这段代码根据主题 "Bonus" 搜索 Message 对象：

Dim i As Integer ' loop index / object counter 
Dim collMessages As Messages ' assume collection already provided 
Dim objMessage As Message 
If collMessages Is Nothing Then 
    MsgBox "Messages collection object is invalid" 
    ' Exit 
ElseIf 0 = collMessages.Count Then ' collection is empty 
    MsgBox "No messages in collection" 
    ' Exit 
End If 
' look for message about "Bonus" in collection 
For i = 1 To collMessages.Count Step 1 
    Set objMessage = collMessages.Item(i) 
    ' or collMessages(i) since Item is default property 
    If objMessage Is Nothing Then ' end of collection 
        MsgBox "No such message found in collection" 
        Exit For 
    ElseIf 0 = StrComp(objMsg.Subject, "Bonus") Then 
    ' or objMessage since Subject is default property 
        MsgBox "Desired message is at index " & i 
        Exit For 
    End If 
Next i 
 

© 1997 by Microsoft Corporation. All rights reserved.