AddMember 方法

向指定的通讯组列表添加新成员。通讯组列表包含 Recipient 对象，该对象代表有效的电子邮件地址。

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

Recipient  必选。要添加到列表中的收件人。

说明

若要向指定的收件人列表添加多个成员，请使用 AddMembers 方法。

示例

以下示例创建新的 Recipient 对象，并将该收件人添加到通讯组列表。如果指定的收件人无效，AddMember 方法将执行失败。

Sub AddNewMember()
'Adds a new member to the distribution list

    Dim olApp As Outlook.Application
    Dim objItem As DistListItem
    Dim objMail As MailItem
    Dim objRcpnt As Recipient

    Set olApp = Outlook.Application
    Set objMail = olApp.CreateItem(olMailItem)
    'Create recipient for list
    Set objRcpnt = objMail.Recipients.Add("Jeff Smith")
    Set objItem = olApp.CreateItem(olDistributionListItem)
    objItem.AddMember Recipient:=objRcpnt
    'Add note to list and display
    objItem.Body = "Regional Sales Manager - NorthWest"
    objItem.Display

End Sub