Programmatic plain-text insert

I would like to create a macro, and put it on a toolbar button, that invoked
the behavior of Edit>Paste Special...>plain text.

How do I insert in an email that is open?

Can macros be assigned to buttons on a toolbar?

--
There are exactly 10 kinds of people: Those who do- and those who don’t
understand binary.

You can only go so far to automate selecting the Paste Special menu item.
You can execute it as below, but you cannot control what happens with the
subsequent dialog that provides the paste options.

Dim objCBs As CommandBars
Dim objCBC As CommandBarControl
Dim objCB As CommandBar


Set objCBs = Application.ActiveInspector.CommandBars
Set objCB = objCBs("Menu Bar")
Set objCBC = objCB.FindControl(, 30003) 'Edit menu

For Each objCBC In objCBC.Controls
If objCBC.ID = 755 Then 'Paste Special
objCBC.Execute
Exit Sub
End If
Next

--
Eric Legault - Outlook MVP, MCDBA, MCTS (SharePoint programming, etc.)
Try Picture Attachments Wizard for Outlook:
http://www.collaborativeinnovations.ca
Blog: http://blogs.officezealot.com/legault/


"BrianWren" wrote:

> I would like to create a macro, and put it on a toolbar button, that invoked
> the behavior of Edit>Paste Special...>plain text.
>
> How do I insert in an email that is open?
>
> Can macros be assigned to buttons on a toolbar?
>
> --
> There are exactly 10 kinds of people: Those who do- and those who don’t
> understand binary.