How do I modify Delete button to also mark item as read?

  • Thread starter Thread starter Murphybp2
  • Start date Start date
M

Murphybp2

The default Delete button in Outlook 2003, seems to delete the item,
without marking it as read. Is there a way that I can modify it to
first mark the item as read, then delete the item? Would I need to use
VBA to accomplish this? If so, could anyone tell the code I should
write, as I am not very familiar with using VBA in outlook. Thanks.
 
Am 23 Apr 2006 11:29:21 -0700 schrieb (e-mail address removed):

This sample marks all items as read which are being moved into the
DeletedItems folder.

Private WithEvents Items As Outlook.Items

Private Sub Application_Startup()
Set Items =
Application.Session.GetDefaultFolder(olFolderDeletedItems).Items
End Sub

Private Sub Items_ItemAdd(ByVal Item As Object)
Item.Unread=False
Item.Save
End Sub
 
Back
Top