AddTotal 方法应用于 Discussions 对象的情形。
向指定的 Discussions 集合中新添一个 Discussion 对象。
expression.Add(Subject, Text, Bookmark)
expression 必需。该表达式返回上述对象之一。
Subject String 类型,可选。特定讨论的主题。
Text String 类型,可选。特定讨论的正文。
Bookmark String 类型,可选。文档中特定讨论的位置的唯一标识符。
新讨论的 Author 属性会自动设置为由 Microsoft Office 主应用程序所决定的当前用户名。
AddTotal 方法应用于 DiscussionServers 对象的情形。
向 DiscussionServers 集合中添加 DiscussionServer 对象。
expression.Add(FriendlyName, ServerAddress)
expression 必需。该表达式返回上述对象之一。
FriendlyName String 类型,必需。指定的讨论服务器的友好名称。
ServerAddress String 类型,必需。指定的讨论服务器的统一资源定位符 (URL)。
在 ServerAddress 参数中指定的 URL 必须包含斜杠字符,如下例中使用 URL http://samples.microsoft.com。
dscServers.Add "Samples Folder", _
http://samples.microsoft.com/
本示例实现的功能是:添加响应指定的 Discussion 对象的新讨论。
Set strResponse = dscDiscussions(1).Discussions.Add _
("Supply information", "Staples are here!", "Staples")
本示例实现的功能是:添加一个新的讨论服务器,该服务器的友好名称为“Corporate Information Server”,URL 为 http://samples.microsoft.com。
Dim dscServers As DiscussionServers
Set dscServers = DiscussionServers
dscServers.Add "Corporate Information Server", _
"http://samples.microsoft.com/"