Read subject when New Mail arrives-Sub Folder

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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.
 
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.
 
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
 
Back
Top