关于outlook2003通讯簿和联系人编程的问题。(50分)

用编程的方式从个人文件夹中提取联系人。
addstore('...pst') 载入个人文件
GetDefaultFolder(olFolderContacts) 获取载入文件的联系人文件夹。
Copyto() 把获得的联系人文件夹复制到个人的配置联系人中。
RemoveStore()删除载入的pst个人文件夹。

好了，现在outlook联系人中有了 联系人,部门1,部门2等几个分组，但是现在在outlook2003通讯簿中(显示来源名称)是看不见的，在outlook2003上手工操作如下：右键单击联系人组 部门1->属性->Outlook通讯簿 选项卡->将此文件夹作为电子邮件通讯录(名称自写或默)->确定。
现在再打开通讯簿或在发邮件选择收件人时，在显示来源名称中有了刚才定义的名称，并且可以选用其名称下的联系人了。关键是，刚才手工的操作，谁能帮我编程实现？
300分。完成后给.