PC Review


Reply
Thread Tools Rate Thread

Autoformat Plain Text email macro

 
 
Sriram N A
Guest
Posts: n/a
 
      18th Jan 2005
I have found it useful to use the WordMail AutoFormat option to read plain
text emails (typically newsletters). Using Outlook 2003.

I am attempting to setup a button which will carry out the equivalent of the
following steps in the UI for me:

1. Edit | Edit Message
2. Format | Rich Text
3. Format | AutoFormat -> Autoformat Now -> General Document

There does not appear to be a means of doing this in VBA - or is there?

Sriram




 
Reply With Quote
 
 
 
 
Sue Mosher [MVP-Outlook]
Guest
Posts: n/a
 
      18th Jan 2005
The first two steps can only be done with CommandBars techniques. See
http://www.outlookcode.com/d/tips/commandbarfun.htm

For Step 3, you can use Inspector.WordEditor to return a Word Document
object and then use the Document.AutoFormat method.

--
Sue Mosher, Outlook MVP
Author of
Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx


"Sriram N A" <(E-Mail Removed)> wrote in message
news:csiniu$sa3$(E-Mail Removed)...
>I have found it useful to use the WordMail AutoFormat option to read plain
> text emails (typically newsletters). Using Outlook 2003.
>
> I am attempting to setup a button which will carry out the equivalent of
> the
> following steps in the UI for me:
>
> 1. Edit | Edit Message
> 2. Format | Rich Text
> 3. Format | AutoFormat -> Autoformat Now -> General Document
>
> There does not appear to be a means of doing this in VBA - or is there?
>
> Sriram
>
>
>
>



 
Reply With Quote
 
Sriram N A
Guest
Posts: n/a
 
      19th Jan 2005
Thanks for the tip; works great!:

Sub FormatPlainTextMail()
Dim colCB As CommandBars
Dim objCBB As CommandBarButton
Dim objDoc

Set colCB = ActiveInspector.CommandBars
Set objCBB = colCB.FindControl(, 5604)
If Not objCBB Is Nothing Then
objCBB.Execute
End If
Set objCBB = colCB.FindControl(, 5565)
If Not objCBB Is Nothing Then
objCBB.Execute
End If
Set objDoc = ActiveInspector.WordEditor
objDoc.Kind = wdDocumentNotSpecified
objDoc.Content.AutoFormat
End Sub

"Sue Mosher [MVP-Outlook]" <(E-Mail Removed)> wrote in message
news:evxH5dW$(E-Mail Removed)...
> The first two steps can only be done with CommandBars techniques. See
> http://www.outlookcode.com/d/tips/commandbarfun.htm
>
> For Step 3, you can use Inspector.WordEditor to return a Word Document
> object and then use the Document.AutoFormat method.
>
> "Sriram N A" <(E-Mail Removed)> wrote in message
> news:csiniu$sa3$(E-Mail Removed)...
> >I have found it useful to use the WordMail AutoFormat option to read

plain
> > text emails (typically newsletters). Using Outlook 2003.
> >
> > I am attempting to setup a button which will carry out the equivalent of
> > the
> > following steps in the UI for me:
> >
> > 1. Edit | Edit Message
> > 2. Format | Rich Text
> > 3. Format | AutoFormat -> Autoformat Now -> General Document
> >
> > There does not appear to be a means of doing this in VBA - or is there?



 
Reply With Quote
 
 
 
Reply

Thread Tools
Rate This Thread
Rate This Thread:

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are Off


Similar Threads
Thread Thread Starter Forum Replies Last Post
Outlook stripping plain text from mixed RTF/plain email james@microsec.co.uk Microsoft Outlook Discussion 1 28th Mar 2008 01:10 PM
Macro for TEXT Box to Plain Text Conversion? =?Utf-8?B?YmluYXI=?= Microsoft Word Document Management 1 30th Jul 2007 10:36 PM
autoformat replies from plain text to html incl signature =?Utf-8?B?Q2FtZXJvbg==?= Microsoft Outlook Discussion 2 14th Jun 2006 01:06 PM
View plain text part of an email containing both html and plain te =?Utf-8?B?Sm9leTY2Ng==?= Microsoft Outlook Discussion 4 15th Nov 2005 10:24 AM
Autoformat Plain Text email macro Sriram N A Microsoft Outlook Discussion 2 19th Jan 2005 09:37 AM


Features
 

Advertising
 

Newsgroups
 


All times are GMT +1. The time now is 12:49 AM.