OSE: How to List the Subject of a Discussion in an Office Document

Article translations Article translations
Article ID: 247573 - View products that this article applies to.
This article was previously published under Q247573
Expand all | Collapse all

SUMMARY

In Microsoft Office, the Microsoft Office Server Extensions (OSE) library allows you to programmatically control objects in Discussions and DiscussionServers collections. You can use the Subject property of the Discussion object to return the title of discussions in a document that is hosted on a Web server extended with Microsoft Office 2000 Server Extensions.

MORE INFORMATION

Microsoft provides programming examples for illustration only, without warranty either expressed or implied. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. This article assumes that you are familiar with the programming language that is being demonstrated and with the tools that are used to create and to debug procedures. Microsoft support engineers can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific requirements.
NOTE: You must add a reference to the OSE Object model. To do this, follow these steps:
  1. Start the Visual Basic Editor (VBE) by pressing ALT+F11 from within one of the Office programs.
  2. On the Tools menu, click References.
  3. In the Available References list box, select the Microsoft Office Server Extensions 1.0 Object Library check box.
  4. Click OK.

Sub ListSubjects()

'setup variables
Dim dscDiscussions As Discussions
Dim dscDiscussionItem As Discussion
Dim strURLPath As String, strFileName As String, strThreads As String
Dim intCurT As Integer

'initialize counter and strings to identify server and document on server
intCurT = 1
'<OSEWebServerName> is the name of the Discussion Server _  
   where the document is stored.
strURLPath = "http://<OSEWebServerName>/"
'<DocumentName> is the name of the document.
strFileName = "<DocumentName>"

'open the discussions on the server
Set dscDiscussions = OpenDiscussions(strURLPath & strFileName)

'loop through each discussion thread on server
For Each dscDiscussionItem In dscDiscussions
    strThreads = strThreads & "Discussion " & intCurT & " : " & _
        dscDiscussionItem.Subject & Chr(10)
    intCurT = intCurT + 1
Next dscDiscussionItem

'display a message box with count of discussions and their _
respective titles
MsgBox "Number of Discussions on " & strFileName & ": " & _
    dscDiscussions.Count & Chr(10) & Chr(10) & strThreads
End Sub
				

Properties

Article ID: 247573 - Last Review: February 21, 2007 - Revision: 4.3
APPLIES TO
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Office 2000 Server Extensions
  • Microsoft Word 2000 Standard Edition
  • Microsoft PowerPoint 2000 Standard Edition
Keywords: 
kbdtacode kbhowto KB247573

Give Feedback

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com