DiscussionServers, collectie

Global DiscussionServers (DiscussionServer) Discussions (Discussion)

Dit is een collectie DiscussionServer-objecten die de discussieservers in de Microsoft Office-hosttoepassing vertegenwoordigen.

Werken met de DiscussionServers-collectie

Gebruik de methode OpenDiscussions van het Global-object als u voor alle discussieservers die zijn geregistreerd op de computer die wordt gebruikt, de DiscussionServers-collectie als resultaat wilt geven. In het volgende voorbeeld wordt de DiscussionServers-collectie als resultaat gegeven en wordt een berichtvenster weergegeven waarin wordt gemeld hoeveel servers de collectie bevat.

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

Met de methode Add kunt u een nieuwe discussieserver aan de collectie toevoegen. In het volgende voorbeeld wordt een nieuwe discussieserver met de aangepaste naam 'Sample Server' en de URL (Uniform Resource Locator) http://samples.microsoft.com toegevoegd.

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

Met DiscussionServers(Index), waarbij Index het indexnummer van de opgegeven discussieserver is, kunt u een enkel DiscussionServer-object als resultaat geven. In het volgende voorbeeld wordt de variabele dscAccounting ingesteld op de derde server in de DiscussionServers-collectie.

Set dscAccounting = dscServers(3)