共用方式為

Outlook () 的 DistListItem.GetMember 方法

  • 發行項

會傳回 Recipient 物件，代表通訊群組清單中的成員。

語法

expression。 GetMember (索引)

表達 代表 DistListItem 物件的 變數。

參數

名稱 必要/選用 資料類型 描述
Index 必要 Long 所要擷取之成員的索引編號。

傳回值

代表指定之成員的 Recipient 物件。

範例

此 Microsoft Visual Basic for Applications (VBA) 範例會尋找預設 [連絡人] 資料夾中的每個通訊群組清單，並判定清單是否包含目前的使用者。

Sub DisplayYourDLNames() 
 
 Dim myNameSpace As Outlook.NameSpace 
 
 Dim myFolder As Outlook.Folder 
 
 Dim myDistList As Outlook.DistListItem 
 
 Dim myFolderItems As Outlook.Items 
 
 Dim x As Integer 
 
 Dim y As Integer 
 
 Dim iCount As Integer 
 
 
 
 Set myNameSpace = Application.GetNamespace("MAPI") 
 
 Set myFolder = myNameSpace.GetDefaultFolder(olFolderContacts) 
 
 Set myFolderItems = myFolder.Items 
 
 iCount = myFolderItems.Count 
 
 For x = 1 To iCount 
 
 If TypeName(myFolderItems.Item(x)) = "DistListItem" Then 
 
 Set myDistList = myFolderItems.Item(x) 
 
 For y = 1 To myDistList.MemberCount 
 
 If myDistList.GetMember(y).Name = myNameSpace.CurrentUser.Name Then 
 
 MsgBox "Your are a member of " & myDistList.DLName 
 
 End If 
 
 Next y 
 
 End If 
 
 Next x 
 
End Sub

另請參閱

DistListItem 物件

支援和意見反應

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