共用方式為

Outlook) (DistListItem.MemberCount 屬性

  • 發行項

會傳回指出通訊群組清單中成員數目的 Long。 唯讀。

語法

expression。 MemberCount

表達 代表 DistListItem 物件的 變數。

註解

該傳回值代表此通訊群組清單中的所有成員，包括成員通訊群組清單。 每個成員通訊群組清單將做為單個成員計算。 也就是說，MemberCount 並非通訊群組清單中與成員通訊群組清單中的收件者之和。 例如，如果通訊群組清單包括 10 個收件者，還有一個包括 15 個收件者的通訊群組清單，那麼 MemberCount 將傳回 11。

範例

這個 Microsoft Visual Basic for Applications 範例會逐步檢查預設的 [連絡人] 資料夾，如果發現成員數多於 20 的通訊群組清單，就會顯示該項目。

Sub CheckDLs() 
 
 Dim myOlFolder As Outlook.Folder 
 
 Dim myOlItems As Outlook.Items 
 
 Dim myOlDistList As Outlook.DistListItem 
 
 Dim x as Integer 
 
 
 
 Set myOlFolder = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts) 
 
 Set myOlItems = myOlFolder.Items 
 
 For x = 1 To myOlItems.Count 
 
 If TypeName(myOlItems.Item(x)) = "DistListItem" Then 
 
 Set myOlDistList = myOlItems.Item(x) 
 
 If myOlDistList.MemberCount > 20 Then 
 
 MsgBox myOlDistList.DLName & " has more than 20 members." 
 
 myOlDistList.Display 
 
 End If 
 
 End If 
 
 Next x 
 
End Sub

另請參閱

DistListItem 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。