View Single Post
  #2  
Old January 12th 06, 02:25 AM posted to microsoft.public.outlook.program_vba
Michael Bednarek
external usenet poster
 
Posts: 15
Default Mini macro needed

On Thu, 12 Jan 2006 00:38:34 +0100, Marcus O. M. Grabe wrote in
microsoft.public.outlook.program_vba:

I need a very small macro but don't know how to do it. I did a lot of
VBA in othe Office applications but I do not know the Outlook Objects.

It should just do the following:
- Start
- A mail is th active window or
a single mail is highlighted: Proceed
Otherwise: Abort
- Reply
- in the Reply window:
Change format to text only
- Exit

How can this be done in VBA.


Try this (quick & dirty):

If Not TypeName(ActiveInspector) = "Nothing" Then
ActiveInspector.CommandBars("Standard").Controls(" Reply").Execute
Else
ActiveExplorer.CommandBars("Standard").Controls("R eply").Execute
End If
ActiveInspector.CommandBars("Menu Bar").Controls("Format").Controls("Plain Text").Execute

This will of course present the warning dialogue. There are probably
more elegant and less language-dependent solutions.

--
Michael Bednarek http://mbednarek.com/ "POST NO BILLS"
Ads