次の方法で共有


DistListItem.RemoveMembers メソッド (Outlook)

配布リストからメンバーを削除します。

構文

RemoveMembers( _Recipients_ )

DistListItem オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
受信者 必須 Recipients 配布リストから削除するメンバーを指定します。

次の Microsoft Visual Basic for Applications (VBA) の例では、グループのリストと呼ばれる配布リストから 2 つのメンバーを削除します。 RemoveMembers メソッドは、指定された受信者が無効な場合に失敗します。 例を実行する前に作成するか、既定の連絡先フォルダーに"Group List"と呼ばれる配布リストが存在するかどうかを確認します。

Sub RemoveRecs() 
 
 'Remove a recipient from the list and displays new list. 
 
 Dim objDstList As Outlook.DistListItem 
 
 Dim objName As Outlook.NameSpace 
 
 Dim objRcpnt As Outlook.Recipient 
 
 Dim objRcpnt2 As Outlook.Recipient 
 
 Dim objMail As Outlook.MailItem 
 
 Dim objRcpnts As Outlook.Recipients 
 
 
 
 Set objName = Application.GetNamespace("MAPI") 
 
 Set objDstList = objName.GetDefaultFolder(olFolderContacts).Items("Group List") 
 
 Set objMail = Application.CreateItem(olMailItem) 
 
 Set objRcpnts = objMail.Recipients 
 
 Set objRcpnt = objRcpnts.Add(Name:="someone@example.com") 
 
 Set objRcpnt2 = objRcpnts.Add(Name:="someone@example.org") 
 
 objRcpnts.ResolveAll 
 
 objDstList.RemoveMembers objRcpnts 
 
 objDstList.Display 
 
 objDstList.Body = "Last Modified: " & Now 
 
End Sub

関連項目

配布リスト オブジェクト

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

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