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
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
MVP (Excel 2008-2010)
Post a workbook with sample data and layout if you want a quicker solution.
To help indent your macros try Smart Indent
Please remember to mark threads 'Solved'
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
Thanks Charlize
MVP (Excel 2008-2010)
Post a workbook with sample data and layout if you want a quicker solution.
To help indent your macros try Smart Indent
Please remember to mark threads 'Solved'
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.[VBA]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 Sub[/VBA]Charlize
I can certainly do something with this.
Thanks Charlize
MVP (Excel 2008-2010)
Post a workbook with sample data and layout if you want a quicker solution.
To help indent your macros try Smart Indent
Please remember to mark threads 'Solved'