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

Please do not start up multiple threads related to the same thing. It makes
it impossible to follow and one doesn't know what's the latest or what post
supersedes another. Please place everything in one thread that's related so
we can follow what's going on and see what might be solutions for your
problems.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"RON" wrote in message
...
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