TMGR: Can't Use RTFtext to Add Plain Text to Note Objects

ID: Q149807

The information in this article applies to:

Microsoft Team Manager 97

SUMMARY

Microsoft Team Manager provides Notes which you can format with various fonts, colors, and so on. Microsoft Team manager provides a mechanism to directly edit a note's text, but not the note's Rich Text Formatting (RTF). This mechanism is exposed through Visual Basic OLE Automation built into Microsoft Team Manager

MORE INFORMATION

The following properties are exposed to edit Notes contained within the Microsoft Team Manager Notebook:

     Notes Object          Example
     ----------------      -------------------

     RTFText property      Notebook(1).RTFText

     Text property         Notebook(1).Text

The RTFText property accepts only fully qualified Rich Text Format (RTF) information. Setting the RTFText property to a regular string value produces the following message:

   Run-time error '-2147418113 (8000ffff)':
   There was an OLE automation error.

NOTE: This run-time error is from Microsoft Visual Basic version 4.0. The run-time error number may differ from application to application.

RESOLUTION

When you add information to Note objects within the Microsoft Team Manager Notebook, use the Text property for plain text, and the RTFText property for Rich Text information.

The following example, using Microsoft Visual Basic version 4.0, shows how to use the RTFText property.

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 the Microsoft fee-based consulting line at (800) 936-5200. 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/refguide/default.asp

Sub Main()

   ' This code assumes you have a form with a Rich TextBox with its text
   ' property set to "test", and the font set the Arial 20pt.

   Set Tmgr = GetObject(,"TeamManager.Application")

   ' Place the contents of the RichTextBox1 RTF text into the Team Manager
   ' Meeting agenda notebook subject.

   Tmgr.Notebook("Meeting Agenda").RTFText = Form1.RichTextBox1.TextRTF

End Sub

Additional query words:1.00 97

Keywords          : kberrmsg kbole kbprg kbdta kbdtacode 
Version           : WINDOWS:97
Platform          : WINDOWS

Last Reviewed: May 18, 1999