Outlook VBA：将通讯组列表项添加到通讯组列表

我试图通过Outlook中的VBA将多个子通讯组列表添加为父通讯组列表的成员。我使用Outlook 2010中Outlook VBA：将通讯组列表项添加到通讯组列表

基本代码Sue Mosher网上公布（其中objItem是孩子DL，如通过对/ Next循环发现）为：

Set objRecipient = Application.Session.CreateRecipient(objItem.Subject) 
objRecipient.Resolve 
objDistributionList.AddMember objRecipient

这个完成的任务，但是，将子DL添加为“联系人”而不是链接到原始子DL的成员（即，当我在父DL中打开该成员（其应该是子DL）时，它显示为具有“ UNKNOWN“电子邮件地址）。

任何想法？

来源

2013-01-24 variant

你不能在Outlook对象模型中做到这一点。
您可以尝试使用Redemption，其中公开RDODistListItem .AddContact方法 - 它可让您传递ContactItem以及DistListItem对象作为参数。

来源

2013-01-28 18:11:34

谢谢，德米特里。我希望避免使用Redemption，因为要求这样做需要我的参与，因为这个东西被其他用户使用。 – variant

是否担心使用Redemption并可能导致冲突的其他应用程序？您可以使用RedemptionLoader（http://www.dimastr.com/redemption/security.htm#redemptionloader） - 这种方式甚至不需要在注册表中注册，您可以通过在应用程序旁复制它来部署它。 –

关注更多的是关于工作簿的传播 - 我不知道谁可能会在工作中使用它，我们只是说它不会掌握在公司最技术精湛的人手中。 – variant

Outlook VBA：将通讯组列表项添加到通讯组列表

回答

相关问题