How to print email without the default fields

Email message when printed from Outlook always contain fields:

•    From
•    Sent
•    To
•    CC
•    Subject
•    Attachments

Additionally the attachment icons resembling the type of the file are also on the printout. MS Outlook unfortunately does not have a setting allowing choosing which of those fields are printed or not.

The macro below prints the email without chosen fields and the attachment information. Unfortunately fields From and Sent are always printed.

To remove fields of your choice simply delete the corresponding part of the code below.

Sub PrintWithoutHeaders()   
    Dim oMail
    For Each oMail In Application.ActiveExplorer.Selection
        oMail.Copy()
        ' Remove TO
        oMail.To = ""
        ' Remove CC
        oMail.CC = ""
        ' Remove SUBJECT
        oMail.Subject = ""
        ' Remove ATTACHMENTS
        For nIndex = oMail.Attachments.Count To 1
            oMail.Attachments.Remove(nIndex)
        Next
        oMail.PrintOut()
        oMail.Delete()
    Next
End Sub