Am Fri, 28 Jul 2006 19:40:02 -0700 schrieb Bob Smith:

Private WithEvents Items As Outlook.Items

Private Sub Application_Startup()
Application.Session.GetDefaultFolder(olFolderDelet edItems).Items
End Sub

Private Sub Items_ItemAdd(ByVal Item As Object)
Item.Delete
End Sub

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.VBOffice.net --


Thanks Michael, can you give me an exable of how to use item add

"Michael Bauer" wrote:

Am Fri, 28 Jul 2006 05:44:02 -0700 schrieb Bob Smith:

Depends on what is "nativly". With the OOM there's no direct way. But
using
ItemAdd the item doesn't end up in the deleted items folder - it would be
there for just a few milliseconds.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.VBOffice.net --


So there is no way of nativly doing a SHIFT-DELETE? using ItemAdd would
still
mean the item ends up in the recover deleted items folder


"Michael Bauer" wrote:

Am Thu, 27 Jul 2006 12:07:02 -0700 schrieb Bob Smith:


You could use CDO 1.21 or Redemption (www.dimastr.com). Or with the
Outlook
object model you'd need to track the folder's ItemAdd event and delete
the
item again.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.VBOffice.net --


vb6 - using item.delete moves the item into a deleted Items folder.
Does
anyone know how I could delete without putting the item in the delete
items
folder (sure delete)? I also want to make sure the item is not
recoverable.