Read subject when New Mail arrives-Sub Folder

[Avadivelan TCS]

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).UnRead = 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.

 

[Sue Mosher [MVP-Outlook]]

Answered at http://www.outlookcode.com/threads.aspx?forumid=2&messageid=20369

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003

and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers

 

[Avadivelan TCS]

Hi Sue Mosher,
Good Morning, I am new to Outlook macro. I am not able to understand your
reply. can you help me in the coding level?
Have a nice day.

Thanks in advance for your reply.

 

[Sue Mosher [MVP-Outlook]]

If you respond in the other thread where I've already responded and point out just what it is you don't understand, I'll be happy to try to help you. But please read my response first and take a look at the variable that I pointed out as the problem.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003

and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers