0

我刚刚创建了一个分发列表:

$outlook = new-object -com Outlook.Application
$contacts = $outlook.Session.GetDefaultFolder(10)
$dl = $contacts.Items.Add("IPM.DistLIst")
$dl.Save()

然后创建了一个新联系人

$newcontact = $contacts.Items.Add()
$newcontact.FullName = "abc"
$newcontact.JobTitle = "abc manager"
$newcontact.Email1Address = "abc@abc.com"

如何将此新联系人添加到新创建的联系人列表中?

我努力了:

$dl.Members.Add($newcontact)
$dl.Action.Add($newcontact)

但他们俩都没有工作,

请帮助,任何帮助将不胜感激。

锐捷

4

1 回答 1

0

DistListItem 类的AddMember方法允许将新成员添加到指定的分发列表。请注意,通讯组列表包含代表有效电子邮件地址的收件人对象,而不是联系人。

 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("Eugene Astafiev") 
  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

有关详细信息,请参阅如何:在 Outlook 中创建新的通讯组列表项

于 2015-07-28T06:59:51.513 回答