DiscussionServers, collection

Collection d'objets DiscussionServer qui représentent les serveurs de discussion dans l'application hôte Microsoft Office.

Utiliser la collection DiscussionServers

Spécifiez la méthode OpenDiscussions de l'objet Global pour renvoyer la collection DiscussionServers pour tous les serveurs de discussion enregistrés sur l'ordinateur en cours d'utilisation. L'exemple suivant montre comment renvoyer la collection DiscussionServers et afficher un message contenant le nombre de serveurs de la collection.

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

Spécifiez la méthode Add pour ajouter un nouveau serveur de discussion à la collection. L'exemple suivant montre comment ajouter un nouveau serveur de discussion avec le nom convivial « Sample Server » et l'URL (Uniform Resource Locator) http://samples.microsoft.com.

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

Spécifiez DiscussionServers(Index), Index étant le numéro d'index du serveur de discussion spécifié, pour renvoyer un simple objet DiscussionServer. L'exemple suivant montre comment affecter à la variable dscAccounting le troisième serveur de la collection DiscussionServers.

Set dscAccounting = dscServers(3)