![]() |
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
|
|||
|
|||
![]()
Hi All ,Good Morning,When i use the below code to read "subject" from my
INBOX.Its working good. If i want to read the subject in the Sub folders means,i get the bellow error: "Run -time error'2147221233(8004010f)'; The operation failed.An object could not be found" Code is: Private Sub Application_NewMail() Dim InputFolder As Outlook.MAPIFolder Set InputFolder = Application.GetNamespace("MAPI").GetDefaultFolder( olFolderInbox) Dim intCount As Integer For intCount = 1 To InputFolder.Items.Count 'If InputFolder.Items(intCount).UnRead = True Then 'Read out the unread mail in Inbox. If Application.GetNamespace("MAPI").Folders("Mailbox - Mailbox - Valivelan Adhimoolam").Folders("karthick").Items(intCount).U nRead = True Then MsgBox InputFolder.Items(intCount).Subject MsgBox InputFolder.Items(intCount).Body InputFolder.Items(intCount).UnRead = False End If Next intCount End Sub Thanks in advance for your reeply. |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
creating new mail subject folder in outlook express local folders heading | themntneer | Outlook Express | 4 | October 8th 06 01:41 AM |
run a script when new mail arrives | Shaun | Outlook and VBA | 0 | August 24th 06 02:57 AM |
Code to invoke a MessageBox when new mail arrives! | RemySS | Outlook and VBA | 1 | April 21st 06 05:38 AM |
read mail folder list | StupidDog | Outlook - Using Forms | 0 | April 7th 06 09:32 AM |
Move mail to a folder based on 2 different words in the subject fi | Alan Kirkham | Outlook and VBA | 2 | February 14th 06 02:34 PM |