Microsoft KB Archive/217495

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

Article ID: 217495

Article Last Modified on 2/19/2007

-

APPLIES TO


 * Microsoft Office 2000 Server Extensions

-



This article was previously published under Q217495



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 :

A connection with the server could not be established.

where  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. 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. 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 that this is 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: kbbug kbdtacode kbpending KB217495

-

[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]

© Microsoft Corporation. All rights reserved.