Outlook VBA教程:RemoveMembers方法

将成员从通讯组列表中删除。

expression.RemoveMembers(Recipients)

expression  必选。该表达式返回DistListItem对象。

Recipients  必选,Recipients对象。要从通讯组列表中删除的成员。

VBA示例

本 Microsoft Visual Basic/Visual Basic for Applications 示例在默认的“联系人”文件夹中查找每个通讯组列表项目,然后确定当前用户是否是列表的成员。如果是列表的成员,那么将当前用户从通讯组列表中删除。


Dim myOlApp As New Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myFolder As Outlook.MAPIFolder
Dim myDistList As Outlook.DistListItem
Dim tmpRecips As Outlook.Recipients
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set tmpRecips = myOlApp.CreateItem(olMailItem).Recipients
tmpRecips.Add myNameSpace.CurrentUser.Name
Set myFolder = myNameSpace.GetDefaultFolder(olFolderContacts)
For x = 1 To myFolder.Items.Count
    If TypeName(myFolder.Items.Item(x)) = _
            "DistListItem" Then
        Set myDistList = myFolder.Items.Item(x)
        For y = 1 To myDistList.MemberCount
            If myDistList.GetMember(y).Name = _
                    myNameSpace.CurrentUser.Name Then
                myDistList.RemoveMembers tmpRecips
                myDistList.Save
                Exit For
            End If
        Next y
    End If
Next x

如果使用 VBScript,则不创建Application对象,而且也不能使用命名常量。本示例说明如何使用 VBScript 执行相同任务。


Set myNameSpace = Application.GetNamespace("MAPI")
Set tmpRecips = Application.CreateItem(olMailItem).Recipients
tmpRecips.Add myNameSpace.CurrentUser.Name
Set myFolder = myNameSpace.GetDefaultFolder(10)
For x = 1 To myFolder.Items.Count
    If TypeName(myFolder.Items.Item(x)) = _
            "DistListItem" Then
        Set myDistList = myFolder.Items.Item(x)
        For y = 1 To myDistList.MemberCount
            If myDistList.GetMember(y).Name = _
                    myNameSpace.CurrentUser.Name Then
                myDistList.RemoveMembers tmpRecips
                myDistList.Save
                Exit For
            End If
        Next
    End If
Next

上页:Outlook VBA教程:RemoveMember方法 下页:Outlook VBA教程:RemoveStore方法

Outlook VBA教程:RemoveMembers方法:相关链接

Outlook VBA教程:RemoveStore方法 Outlook VBA教程:Reply方法
Outlook VBA教程:ReplyAll方法 Outlook VBA教程:Reset方法
Outlook VBA教程:ResetColumns方法 Outlook VBA教程:Resolve方法
Outlook VBA教程:ResolveAll方法 Outlook VBA教程:Respond方法
Outlook VBA教程:Restrict方法 Outlook VBA教程:Save方法
Outlook VBA教程:SaveAs方法 Outlook VBA教程:SaveAsFile方法
Outlook VBA教程:Send方法 Outlook VBA教程:SetColumns方法
Outlook VBA教程:SetCurrentFormPage方法 Outlook VBA教程:SetIcon方法
Outlook VBA教程:ShowCategoriesDialog方法 Outlook VBA教程:ShowFormPage方法
Outlook VBA教程:ShowPane方法 Outlook VBA教程:SkipRecurrence方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号