DistListItem.RemoveMembers 方法 (Outlook)
將成員從通訊群組清單中移除。
語法
expression。 RemoveMembers( _Recipients_ )
表達 代表 DistListItem 物件的 變數。
參數
| 名稱 | 必要/選用 | 資料類型 | 描述 |
|---|---|---|---|
| 收件者 | 必要 | 收件者 | 要從通訊群組清單中移除的成員。 |
範例
下列 Microsoft Visual Basic for Applications (VBA) 範例會將兩個成員從名為 Group List 的通訊群組清單中移除。 如果指定的收件者無效，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 支援與意見反應。