Outlook VBA教程:AddMembers方法

在通讯组列表中添加新成员。

expression.AddMembers(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 myDistList As Outlook.DistListItem
Dim myTempItem As Outlook.MailItem
Dim myRecipients As Outlook.Recipients
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myDistList = myOlApp.CreateItem(olDistributionListItem)
Set myTempItem = myOlApp.CreateItem(olMailItem)
Set myRecipients = myTempItem.Recipients
myDistList.DLName = _
    InputBox("Enter the name of the new distribution list")
myRecipients.Add myNameSpace.CurrentUser.Name
myDistList.AddMembers myRecipients
myDistList.Display

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


Set myNameSpace = Application.GetNamespace("MAPI")
Set myDistList = Application.CreateItem(7)
Set myTempItem = Application.CreateItem(0)
Set myRecipients = myTempItem.Recipients
myDistList.DLName = _
    InputBox("Enter the name of the new distribution list")
myRecipients.Add myNameSpace.CurrentUser.Name
myDistList.AddMembers myRecipients
myDistList.Display

上页:Outlook VBA教程:AddMember方法 下页:Outlook VBA教程:AddStore方法

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

Outlook VBA教程:AddStore方法 Outlook VBA教程:AddToFavorites方法
Outlook VBA教程:AddToPFFavorites方法 Outlook VBA教程:AdvancedSearch方法
Outlook VBA教程:Apply方法 Outlook VBA教程:Assign方法
Outlook VBA教程:CancelResponseState方法 Outlook VBA教程:ClearConversationIndex方法
Outlook VBA教程:ClearRecurrencePattern方法 Outlook VBA教程:Close方法
Outlook VBA教程:Copy方法 Outlook VBA教程:CopyFile方法
Outlook VBA教程:CopyTo方法 Outlook VBA教程:CreateItem方法
Outlook VBA教程:CreateItemFromTemplate方法 Outlook VBA教程:CreateObject方法
Outlook VBA教程:CreateRecipient方法 Outlook VBA教程:Delete方法
Outlook VBA教程:Details方法 Outlook VBA教程:Dial方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号