Outlook VBA: Reply to All as Text

I am a messaging old-timer, going back to the days of PINE and ELM and RBBSMail.  I like to reply to message like this:

>You said
I reply.

Actually the old days the mail client did it by initials so it looked like this:

YS>You said
AK>I reply.

I get a lot of HTML mail, which I see a a waste of storage. I reply as text with the the following code:

Sub ReplyAsText()
    Dim rply As Outlook.MailItem
    Dim item As Outlook.MailItem
    Dim retval As Integer
    Set item = GetCurrentItem()
    item.BodyFormat = olFormatPlain
    retval = MsgBox("Reply to all as text? No is just sender.", _
    vbYesNoCancel + vbQuestion + vbSystemModal, _
    "Reply to All?")
    If retval = vbCancel Then Exit Sub
    If retval = vbYes Then
        Set rply = item.ReplyAll
        Set rply = item.Reply
    End If

    item.Close olDiscard

    Set rply = Nothing
    Set item = Nothing
End Sub

About Alan

See http://www.akaplan.com/blog/about/
This entry was posted in Computing and tagged , . Bookmark the permalink.

Leave a Reply