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

[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.

 

[Michael Bauer]

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