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

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

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. 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.

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