通过

DistListItem.AddMember 方法 (Outlook)

  • 项目

将新成员添加到指定的通讯组列表。 通讯组列表包含表示有效电子邮件地址的 Recipient 对象。

语法

表达式。AddMember (Recipient)

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

参数

名称 必需/可选 数据类型 说明
收件人 必需 Recipient 要添加到列表中的收件人。

备注

使用 AddMembers 方法可将多个成员添加到给定的通讯组列表中。

示例

下面的 Microsoft Visual Basic for Applications (VBA) 示例创建一个新的 DistributionList 对象，并添加一位收件人。 如果指定的收件人无效， AddMember 方法将会失败。 若要运行此示例，请使用有效的收件人姓名替换 Dan Wilson。

Sub AddNewMember() 
 
 'Adds a member to a new distribution list 
 
 
 
 Dim objItem As Outlook.DistListItem 
 
 Dim objMail As Outlook.MailItem 
 
 Dim objRcpnt As Outlook.Recipient 
 
 
 
 Set objMail = Application.CreateItem(olMailItem) 
 
 
 
 Set objItem = Application.CreateItem(olDistributionListItem) 
 
 'Create recipient for distlist 
 
 Set objRcpnt = Application.Session.CreateRecipient("Dan Wilson") 
 
 objRcpnt.Resolve 
 
 objItem.AddMember objRcpnt 
 
 'Add note to list and display 
 
 objItem.DLName = "Northwest Sales Manager" 
 
 objItem.Body = "Regional Sales Manager - NorthWest" 
 
 objItem.Save 
 
 objItem.Display 
 
End Sub

另请参阅

DistListItem 对象

支持和反馈

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