Solved: Print email without date footer

[mdmackillop]

I'm using Outlook 2003. I want to print off emails (using memo style or similar) without showing the date printed in the footer but can't find where to change this.
Regards
MD

[Charlize]

I tend to use a template in word that I use to fill in the items that I want from the selected mail. I think I've got this idea from Helen Feddema regarding a custom telephone message ... There were some things that needed special attention (fields can hold only a certain number of characters, instead use a placeholder).

Charlize

[mdmackillop]

Thanks Charlize

[Charlize]

This one is from an earlier attempt to get rid of all the bloated text that appears when you print out e-mails. The idea is to save the message as a txt or rtf file and open it in the correct application.Sub printing_mails()
Dim iItem As Long
Dim i As Long
Dim mypath As String
mypath = "c:\tempmail\"
If ActiveExplorer.Selection.Count > 1 Then
MsgBox "Please select just one e-mail to be printed.", vbInformation
ElseIf ActiveExplorer.Selection.Count < 1 Then
MsgBox "No e-mail selected to be printed.", vbInformation
Else
With ActiveExplorer.Selection
For iItem = 1 To .Count
If .Item(iItem).BodyFormat = olFormatPlain Then
.Item(iItem).SaveAs mypath & "tempmail.txt", olTXT
shell "C:\Windows\system32\notepad.exe " & mypath & "tempmail.txt", _
vbNormalFocus
ElseIf .Item(iItem).BodyFormat = olFormatHTML Then
.Item(iItem).SaveAs mypath & "tempmail.txt", olTXT
shell "C:\Windows\system32\notepad.exe " & mypath & "tempmail.txt", _
vbNormalFocus
ElseIf .Item(iItem).BodyFormat = olFormatRichText Then
.Item(iItem).SaveAs mypath & "tempmail.rtf", olRTF
shell "C:\Program Files\Microsoft Office\OFFICE11\Winword.exe " & _
mypath & "tempmail.rtf", vbNormalFocus
End If
Next iItem
End With
End If
End SubCharlize

[mdmackillop]

I can certainly do something with this.
Thanks Charlize