OFF2000: Error Message When Adding a Discussion Server Through Visual Basic for Applications Code (217495)
The information in this article 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.
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. 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
STATUSMicrosoft 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.
| Modification Type: | Major | Last Reviewed: | 6/18/2005 |
|---|
| Keywords: | kbbug kbdtacode kbpending KB217495 |
|---|
|