我刚创建了一个分发列表:
$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)
但他们都没有用,
请帮助,我们将不胜感激。
锐捷网络
答案 0 :(得分: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
有关详细信息,请参阅How To: Create a new distribution list item in Outlook。
答案 1 :(得分:0)
设置新联系人的属性后,您是否尝试过以下操作?
$newcontact | Set-Item