|
| If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|||||||
|
|
Thread Tools | Search this Thread | Display Modes |
|
#1
January 10th 07, 05:57 PM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
Sending mail from NewMailEx deletes the mail from the Inbox
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 
|
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Inbox says 1 mail message, but nothing there ? | pogolady | Outlook Express | 3 | November 12th 06 05:52 PM |
| outlook deletes my contact e-mail address | Kandis Brinkman. Ohio | Outlook - Using Contacts | 1 | September 9th 06 06:05 PM |
| Suddenly, my server is not sending mail to my inbox....solution? | Meg | Outlook Express | 10 | July 9th 06 09:14 PM |
| Mail Disappeared from My InBox | Rena B | Outlook Express | 1 | May 23rd 06 02:34 AM |
| Soft Deletes, Hard Deletes, Shift+Delete, Move, etc. | Marty List | Outlook and VBA | 3 | March 23rd 06 05:19 PM |
Threaded Mode