Michael -
Well, I've gotten it to work, but have a couple of questions.

1. Here's the *working* code:

Sub PleasePlot()
Set SInspector = CreateObject("Redemption.SafeInspector")
SInspector.item = Application.ActiveInspector
SInspector.SelText = "Blah blah blah" & vbCr
End Sub

However, if I use:

SInspector.item = Application.ActiveInspector.CurrentItem

the text doesn't get inserted. Am I missing something in
your original reply?

2. Now, I'd like to grab the Recipient's and CC's names.
I've gone back and looked at dimastr.com, but can't
quite pull it together. Any suggestions?

Once again, thanks for your help.
____________________________________________
The impossible just takes a little longer...



Michael Bauer [MVP - Outlook] wrote:
The opened e-mail is: Application.ActiveInspector.CurrentItem

If you want to add text at the current cursor position then you have
to use Word as e-mail editor or the Redemption (wwww.dimastr.com).

[snip]