Can I add a column to my inbox to show printed items?

K

Kate

Hello,

I would like to see at a glance which email messages I've printed off in my
inbox (or any other mailbox for that matter!). I found a way to insert a
'printed' column but can't seem to get it to do anything - it doesn't
automatically insert a date when I print.

Any pointers would be gratefully received.

Thanks :)
 
S

Sue Mosher [MVP-Outlook]

A view only shows available data. Since Outlook doesn't keep a record of
when the user prints items, there's nothing to show.
 
P

Peter Ritchie

If you're not concerned with the print dialog and want your message to go
right to the default printer, you could try the following macro:
Sub PrintActiveItem()
If Not Application.ActiveInspector Is Nothing Then
Dim item As MailItem
Set item = Application.ActiveInspector.CurrentItem
item.PrintOut

Dim prop As ItemProperty
On Error Resume Next
Set prop = item.ItemProperties.Add("Last Print Date", olDateTime)
If Err.Number <> 0 Then
MsgBox Err.Number & Err.Description
Else
prop.Value = Now()
item.Save
End If
On Error GoTo 0
End If
End Sub

Add a button to an open message that runs this macro. After you print a
message with this new button, you now have a user-defined field called "Last
Print Date" that can be added as a column to your view, or used for searching
in Advanced Find.

-- Peter
 
Top