[求助]如何在指定文件夹中创建“通讯组列表”？

loong460

如何在Outlook的“联系人”指定文件夹中创建“通讯组列表”？比如说我在“联系人”中新建了两个文件夹“friends”、“family”，如何在“friends”中创建“新通讯组列表”？要求是用VBA编程控制。下图是我手动添加的效果，但要求使用VBA实现，不会了

使用

Set myOlApp = CreateObject("Outlook.Application")

Set myStrDist = myOlApp.CreateItem(OlDistributionListItem)

创建的“新通讯组列表”是在“联系人”默认的文件夹中，无法控制在其他文件夹中新建，求助！！！！

 

Long_III

以下代码取得在默认联系人下增加的文件夹，如由其他PST文件增加的，目前我也不知道如何访问（可以更改默认的PST文件来实现，但感觉此方法不好）

Sub get_otherfolder()
    Dim MyNewFolder As MAPIFolder

    Set myOlApp = CreateObject("Outlook.Application")
    Set myNameSpace = myOlApp.GetNamespace("MAPI")
    Set Myfolder = _
    myNameSpace.GetDefaultFolder(olFolderContacts) 'GetDefaultFolder对应默认的联系人
   
    Set MyNewFolder = Myfolder.Folders("111")
    Debug.Print MyNewFolder.Name
   
    For i = 1 To Myfolder.Folders.Count
    Set MyNewFolder = Myfolder.Folders(i)
    Debug.Print MyNewFolder.Name
    Next
End Sub