Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1995
  • Last Modified:

How do I remove the header of memo style email print outs?

Hi Experts,


How do I remove the header of memo style email print outs?

I do not want the Senders name, From:, Sent: To: and Subject: to show up when printed. Can I turn this off? Thanks
0
indyng
Asked:
indyng
  • 4
  • 3
  • 2
  • +2
1 Solution
 
sunray_2003Commented:
0
 
indyngAuthor Commented:
Don't I have to change every email to remove the header? I want to remove it from all emails. Thanks
0
 
slink9Commented:
What version of Outlook?
I just printed an email from OL2003 and it printed all of the header info even though I had the header hidden on the email.  Then I asked my Office Assistant (the robot) and the indication that I am getting from teh help file is that you can't.
I haven't looked at the article Sunray posted.  I will look into that and see if it indicates otherwise.
0
Configuration Guide and Best Practices

Read the guide to learn how to orchestrate Data ONTAP, create application-consistent backups and enable fast recovery from NetApp storage snapshots. Version 9.5 also contains performance and scalability enhancements to meet the needs of the largest enterprise environments.

 
slink9Commented:
That does appear to be possible but it only applies to OL2000 and only an individual message as you noticed.
0
 
indyngAuthor Commented:
Thanks
0
 
stefriCommented:
Hummm.... try this
Open VBA (AtlF11)
Expand Project1/MS Outlook Project/ThisOutlookSession; doble click ThisOutlookSession
Cut and Paste the code below
'------Cut and Paste

Public Sub remSMTPInfoAndPrint()
' assuming code is running in outlook 2000/2002s
' Macro security set to Medium
' vba environment
Dim cItem As Outlook.MailItem

Dim colSelection As Outlook.Selection
Dim oMessage As Outlook.MailItem

Dim colObj As Object
Set colSelection = Application.ActiveExplorer.Selection

If colSelection.Count = 0 Then
   Set colSelection = Nothing
   Exit Sub
End If
For Each colObj In colSelection
    Set oMessage = Application.CreateItem(olMailItem)

   oMessage.HTMLBody = colObj.HTMLBody
   oMessage.PrintOut
   oMessage.Close olDiscard
   Set oMessage= Nothing
Next
Set colSelection = Nothing
Set colObj = nothing
End Sub
'----Cut and Paste
Assign a button to this Macro (Tools/Customize/Commands/Macros select Project1.ThsiOutlookSession.remSMTPInfoAndPrint

Select the Mails (only mails...., not tasks, no MeetingRequest...) and click the button you created.

Hope you will enjoy
Stefri
0
 
ApomanCommented:
I will try this and get back to you. Thanks
0
 
stefriCommented:
Is Apoman related to  indyng?
Stefri
0
 
stefriCommented:
indyng, Apoman
Was testing successfull ?

Stefri
0
 
indyngAuthor Commented:
It worked. Thanks
0
 
stefriCommented:
happy it helped you
stefri
0

Featured Post

 [eBook] Windows Nano Server

Download this FREE eBook and learn all you need to get started with Windows Nano Server, including deployment options, remote management
and troubleshooting tips and tricks

  • 4
  • 3
  • 2
  • +2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now