次の方法で共有

DistListItem.GetMember メソッド (Outlook)

  • [アーティクル]

配布リストのメンバーを表す 宛先 オブジェクトを返します。

構文

式。 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

関連項目

配布リスト オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。