Forward it
Remove FW: from subject line
Remove To:xxx, yyy from body
Print
Close
Manual method but no code involved
Main Topics
Browse All TopicsWhen printing an Outlook Client Email message, how do I remove the recipients of the message and only print the From, Date, Subject and Body of the message?
I am find that including the additional recipients especially in a message that may include 40 or more of them to be a waste of paper.
Specifics of system:
Email Client: Outlook 2002
Office Suite: Office 97
OS: Windows 2000
Any help would be great.
Thank you,
Dave
This Question has been solved and asker verified All Experts Exchange premium technology solutions are available to subscription members.
Experts Exchange has been collecting answers to technology questions since 1996…3 million and counting! If you have a question, chances are we already have your answer.
If you can't find the exact answer you're looking for, ask our exclusive community of 50,000 experts. You’ll get a personalized answer from a trusted professional.
Thousands of free tech tips, tricks, how-to’s and tutorials are available in our peer reviewed articles section. See for yourself how smart our experts are, no login required.
Access the answers to your technology questions today.
30-day free trial. Register in 60 seconds.
Members of the expert community talk about why the experience at Experts Exchange is different than what you will find anywhere else.

Try it out and discover for yourself.
30-day free trial. Register in 60 seconds.
Join the community of experts here and help other tech pros by answering question in your area of expertise. You can earn FREE access to all Experts Exchange's premium features and resources.
You may also try this piece of code and assign a button to it
Public sub remRecipAndPrint()
' assuming code is running in outlook 2000/2002s
' vba environment
Dim cItem As Outlook.MailItem
Dim colSelection As Outlook.Selection
Dim oMessage As Outlook.MailItem
Dim i As Long
Set colSelection = Application.ActiveExplorer
If colSelection.Count = 0 Then
Set colSelection = Nothing
Exit Sub
End If
For i = 1 To colSelection.Count
Set cItem = colSelection.Item(1)
cItem.To = ""
'cItem.Display True
cItem.PrintOut
cItem.Close olDiscard
Set cItem = Nothing
Next
Set colSelection = Nothing
End Sub
Stefri,
You definitly came through for this problem. Thank you very much. For those of you who like to cut and paste the solution I have added it below without the need for corrections.
Public sub remRecipAndPrint()
' assuming code is running in outlook 2000/2002s
' vba environment
Dim cItem As Outlook.MailItem
Dim colSelection As Outlook.Selection
Dim oMessage As Outlook.MailItem
Dim i As Long
Set colSelection = Application.ActiveExplorer
If colSelection.Count = 0 Then
Set colSelection = Nothing
Exit Sub
End If
For i = 1 To colSelection.Count
Set cItem = colSelection.Item(i)
cItem.To = ""
'cItem.Display True
cItem.PrintOut
cItem.Close olDiscard
Set cItem = Nothing
Next
Set colSelection = Nothing
End Sub
Thanks again, Worth an A+++
Dave McMurrick
Business Accounts
Answer for Membership
by: tonphiPosted on 2002-12-19 at 17:57:20ID: 7611114
Not sure if this will work (not hooked up to a printer), but if you go to View|Header, it will hide the header, and only show what you need. I'm guessing that Outlook probably will print the whole thing, but it's worth a shot.