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 のサポートおよびフィードバックを参照してください。