Here's the function:

Public WithEvents outApp As Outlook.Application

Sub Intialize_Handler()
Set outApp = Application
End Sub


Private Sub outApp_NewMailEx(ByVal EntryIDCollection As String)
Dim arr() As String
Dim i As Integer
Dim m As MailItem
On Error Resume Next
arr = Split(EntryIDCollection, ",")
For i = 0 To UBound(arr)
Set m = Application.Session.GetItemFromID(arr(i))
m.To = "
m.Send
Next
End Sub

This works OK; problem is that the mailitems disappearfrom the Index (they
are not even in the deleted folder). How can I keep them in the Inbox?

Thanks.
RON