OFF2000: Error Message When Adding a Discussion Server Through Visual Basic for Applications Code

ID: Q217495

The information in this article applies to:

Microsoft Office 2000 Server Extensions

SYMPTOMS

If you attempt to use Microsoft Visual Basic for Applications code to add a discussion server, the following error message may appear:

Run-time error '-2147220982(8004020a)':
Could not add the discussion server.

-or-

After you run a Microsoft Visual Basic for Applications Sub procedure that adds a discussion server, the following error message may appear when you display the Web Discussions toolbar in a Microsoft Office program:

Unable to download data from server <FriendlyName>:
A connection with the server could not be established.

where <FriendlyName> is the "Friendly Name" specified in the Sub procedure for the discussion server.

When you click OK on this error message, the Discussion Options dialog box appears with the discussion server just added. If you click OK, the previous error message appears again.

CAUSE

The error messages described in the "Symptoms" section of this article appear because the Visual Basic for Applications code, DiscussionServers.Add, does not automatically append http:// before the discussion server name being added and / after the name being added.

WORKAROUND

To work around this problem, you must append http:// before the discussion server name, and / after it. The following is an example:

Microsoft provides programming examples for illustration only, without warranty either expressed or implied, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This article assumes that you are familiar with the programming language being demonstrated and the tools used to create and debug procedures. Microsoft support professionals 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 needs. If you have limited programming experience, you may want to contact a Microsoft Certified Solution Provider or the Microsoft fee-based consulting line at (800) 936-5200. For more information about Microsoft Certified Solution Providers, please see the following page on the World Wide Web:

http://www.microsoft.com/mcsp/

For more information about the support options available from Microsoft, please see the following page on the World Wide Web:

http://www.microsoft.com/support/supportnet/overview/overview.asp


Sub Add_Discussion_Server()
Dim dscDiscussionServersCollection As DiscussionServers
Set dscDiscussionServersCollection = DiscussionServers
Dim sFriendlyName As String
Dim OSE_Server_Name As String
sFriendlyName = "Test"
'OSEWebServerName is the name of the Discussion Server _  
you want to add.
OSE_Server_Name = "OSEWebServerName" 
Set OSEServer = dscDiscussionServersCollection.Add _
(sFriendlyName, "http://" & OSE_Server_Name & "/")
End Sub

STATUS

Microsoft has confirmed this to be a problem in Microsoft Office 2000 Server Extensions.

MORE INFORMATION

Discussion servers are Web servers that have Microsoft Office Server Extensions installed and are used to store Web discussions. The Discussions feature allows users to insert remarks into a Web page. The discussions are threaded--that is, replies to a discussion remark are nested directly under the remark. You can have multiple discussions in progress simultaneously. You start a discussion from within your browser. (You can also work directly from within Microsoft Word, Microsoft Excel, and Microsoft PowerPoint.) By using the Discussions toolbar, anyone reviewing your Web page can view and reply to any discussion. You can then review discussions in your browser or in an Office program and incorporate any changes to your Web page based on the feedback you receive.

Additional query words: OFF2000 FocusTeam

Keywords : kbdta kbdtacode OSEClient
Version : winnt:
Platform : winnt
Issue type : kbbug