DiscussionServers 集合

Global DiscussionServers (DiscussionServer) Discussions (Discussion)

由 DiscussionServer 对象组成的集合，代表 Microsoft Office 主应用程序中的讨论服务器。

使用 DiscussionServers 集合

用 Global 对象的 DiscussionServers 方法可返回所用计算机上注册的全部讨论服务器的 DiscussionServers 集合。以下示例返回 DiscussionServers 集合并用消息框显示集合中的服务器数。

Dim dscDiscussionServersCollection As DiscussionServers
Set dscDiscussionServersCollection = DiscussionServers
MsgBox dscDiscussionServersCollection.Count

用 Add 方法可向集合中添加新的讨论服务器。以下示例实现的功能是：添加一个友好名为“Sample Server”的新讨论服务器，其统一资源定位符 (URL) 为 http://samples.microsoft.com。

Dim dscServers As DiscussionServers
Set dscServers = DiscussionServers
dscServers.Add FriendlyName:="Sample Server", _
    ServerAddress:="http://samples.microsoft.com/"

用 DiscussionServers(Index) 可返回单个的 DiscussionServer 对象，其中 Index 是指定讨论服务器的索引号。以下示例将变量 dscAccounting 设置为 DiscussionServers 集合中的第三个服务器。

Set dscAccounting = dscServers(3)