通过

DistListItem.AddMembers 方法 (Outlook)

  • 项目

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

语法

expression。 AddMembers( _Recipients_ )

表达 一个代表 DistListItem 对象的变量。

参数

名称 必需/可选 数据类型 说明
收件人 必需 Recipients 要添加到通讯组列表中的成员。

示例

此 Microsoft Visual Basic for Applications (VBA) 示例创建新的通讯组列表，并向列表中的当前用户和 Dan Wilson。 如果指定的收件人无效， AddMember 方法将会失败。 因此，若要运行此示例，将使用有效的收件人姓名替换 Dan Wilson。

Sub AddNewMembers() 
 
 Dim myNameSpace As Outlook.NameSpace 
 
 Dim myDistList As Outlook.DistListItem 
 
 Dim myTempItem As Outlook.MailItem 
 
 Dim myRecipients As Outlook.Recipients 
 
 
 
 Set myNameSpace = Application.GetNamespace("MAPI 
 
 Set myDistList = Application.CreateItem(olDistributionListItem 
 
 Set myTempItem = Application.CreateItem(olMailItem 
 
 Set myRecipients = myTempItem.Recipients 
 
 myDistList.DLName = _ 
 
 InputBox("Enter the name of the new distribution list 
 
 myRecipients.Add myNameSpace.CurrentUser.Name 
 
 myRecipients.Add "Dan Wilson 
 
 myRecipients.ResolveAll 
 
 myDistList.AddMembers myRecipients 
 
 myDistList.Save 
 
 myDistList.Display 
 
End Sub

另请参阅

DistListItem 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。