I wanted to automate the process of reading new emails

[amit198026]

I wanted to automate the process of reading new emails.
But i am not getting the idea how to do this.
Because i am not able to recognise the object of the new incoming mail.

Please help

[pjeigenn]

I think that you have to look for a property which readed mail don´t have and new mails do.

Use the object spy to discover this. Count the number of new mails using descriptive programming, and use a For or similar to read all of them.

[Arun Prakash]

Try to use the below code

Code:

Set olapp = createobject("outlook.application")
set inbox = olapp.getnamespace("mapi").folders

for each fold in inbox
    msgbox fold.name
    If fold.name = "Give The main Folder name" Then
        getsubfolders(fold)
    End If
    
next

    msgbox inbox.count
    sub getunreadmails(objfolder)

        set col = objfolder.items
    
        for each mail in col
            if mail.unread then
                msgbox mail.subject
                msgbox mail.sendername
                msgbox mail.body
                msgbox mail.senton
                mail.unread=false
            end if
        next

    end sub
    sub getsubfolders(objparentfolder)
        set colfolders = objparentfolder.folders
        for each objfolder in colfolders
            set objsubfolder = objparentfolder.folders(objfolder.name)
            if objfolder.name="Give the Sub Folder Name" then
                getunreadmails(objfolder)
            end if
            getsubfolders objsubfolder
        next
    end sub