查找共享文件夹的名称

Question

我正在通过vba创建一个程序，该程序允许经理选择一名员工，从其共享的Outlook日历中提取约会，并提供有关他们花费的时间，项目等信息以显示在excel文件中的统计信息。 Outlook连接和统计信息的工作方式是从列表框中选择一个名称，然后为该雇员提供信息。

但是，列表框具有每个名称的硬编码，并且不会通过Outlook提取员工的姓名。 我正在寻找一种从共享文件夹中提取每个名称并将其添加到列表框的方法。任何帮助表示赞赏。

Set data = Worksheets("DataSheet")
Set pSheet = Worksheets("PivotTable")
data.Cells.ClearContents

Set o = New Outlook.Application


Set ons = o.GetNamespace("MAPI")


If IsNull(frmNames.lstNames.Value) = False Then

    person = frmNames.lstNames.Value
    Set objOwner = ons.CreateRecipient(person)

End If


Set myAppointments = ons.GetSharedDefaultFolder(objOwner, olFolderCalendar).Items

这是我的连接代码，欢迎批评。