Add, méthode

Web Discussions Client Objects

Afficher tout

Add, méthode

       

Méthode Add telle qu'elle s'applique à l'objet Discussions.

Ajoute un nouvel objet Discussion à la collection Discussions spécifiée.

expression.Add(Subject, Text, Bookmark)

expression    Obligatoire. Expression qui renvoie l'un des objets ci-dessus.

Subject  Argument de type String facultatif. Sujet de la discussion spécifiée.

Text  Argument de type String facultatif. Texte du corps de la discussion spécifiée.

Bookmark  Argument de type String facultatif. Unique identificateur représentant l'emplacement de la discussion spécifiée dans le document.

Note

La propriété Author de la nouvelle discussion est automatiquement définie pour le nom d'utilisateur en cours déterminé par l'application hôte Microsoft Office.

 

 

Méthode Add telle qu'elle s'applique à l'objet DiscussionServers.

Ajoute un nouvel objet DiscussionServer à la collection DiscussionServers.

expression.Add(FriendlyName, ServerAddress)

expression    Obligatoire. Expression qui renvoie l'un des objets ci-dessus.

FriendlyName  Argument de type String obligatoire. Nom convivial du serveur de discussion spécifié.

ServerAddress  Argument de type String obligatoire. URL (Uniform Resource Locator) du serveur de discussion spécifié.

Note

L'URL spécifiée dans l'argument ServerAddress doit contenir un caractère représentant une barre oblique, comme dans l'exemple suivant qui utilise l'URL http://samples.microsoft.com.

dscServers.Add "Samples Folder", _
    http://samples.microsoft.com/

 

Exemples

Telle qu'elle s'applique à l'objet Discussions.

Cet exemple montre comment ajouter une nouvelle réponse de discussion à l'objet Discussion spécifié.

Set strResponse = dscDiscussions(1).Discussions.Add _
    ("Supply information", "Staples are here!", "Staples")

Telle qu'elle s'applique à l'objet DiscussionServers.

Cet exemple montre comment ajouter un nouveau serveur de discussion ayant comme nom convivial « Corporate Information Server » et comme URL http://samples.microsoft.com.

Dim dscServers As DiscussionServers
Set dscServers = DiscussionServers
dscServers.Add "Corporate Information Server", _
    "http://samples.microsoft.com/"