AddMember只允许将收件人对象传递为一个参数：调用 Application.Session.CreateRecipient（manager@abc.com） / Recipient.Resolve / DistListItem.AddMember（收件人）。

AddMember only allows to pass a Recipient object as a parameter: call Application.Session.CreateRecipient("manager@abc.com") / Recipient.Resolve / DistListItem.AddMember(Recipient).

如果您需要直接添加联系人，您可以使用兑换及其 RDODistListItem .AddContact方法。

If you need to add a contact directly, you can use Redemption and its RDODistListItem.AddContact method.

更新：在兑换中，以下代码将一个开关成员添加到一个新的DL列表：

UPDATE: In Redemption, the following code adds a on-off member to a new DL list:

  set Session = CreateObject("Redemption.RDOSession")
  Session.MAPIOBJECT = Application.Session.MAPIOBJECT
  set Contacts = Session.GetDefaultFolder(olFolderContacts)
  set DL = Contacts.Items.Add("IPM.DistList")
  DL.DLName = "test dl"
  DL.AddMember("test@dimastr.com")
  DL.Save