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.

Awesome. Thanks Eric. I have been hitting "ALT + E + S" to trigger Paste
special as with Word and it sends my incomplete email. Thanks.

"Eric Legault [MVP - Outlook]" wrote:

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