EXCEL VBA - Problem to search an email in Outlook folder

Hi All,

I have a code for EXCEL VBA that searches for email messages in certain folder of Outlook ( both 2007 version). However, the comparison starts from the lastest email in the folder and not from the first email. ( in Outlook, I prefer to keep the email messages sorted as Newest first and would like to get the first email that matches the subject line provided.

Can you please help me reverse the order in which the EXCEL VBA is searching for the email? Below is the code:

Sub Otsearch()

Dim myOlApp As Outlook.Application

Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myfolders = myNameSpace.Folders

n = 1
Do Until myfolders.Item(n) = "Personal Folders"
n = n + 1
Loop

Set myfolder = myfolders.Item(n)
Set myfolder2 = myfolder.Folders("Me")
Range("C23") = 0
c = 1
n = 1
num = myfolder2.items.Count


For Each Item In myfolder2.items
itsj = Item.Subject
If itsj <> "Open Cases - Oct_10_2_AM.xls" Then GoTo 10
itsn = Item.SenderName
Range("B23") = "Match FOund"
Range("C23") = Range("C23") + 1
10
n = n + 1
Range("A23") = n - 1
Cells(23 + n - 1, 1) = itsj

Next Item

End Sub

Thanks in advance for help.


Regards,
Ganesh K

Solved it somehow...

Num = myfolder2.items.Count
Text = "Subject line"


For c = 1 To Num
    i = Num - c + 1
    itsj = myfolder2.items(i).Subject
    If (itsj Like Text) Or (itsj Like "RE: " & Text) Then
    itsn = myfolder2.items(i).SenderName
    myfolder2.items(i).ReplyAll.Display
   End if
Next

For me, this is checking if there are any replies for that email as well and opens the newest email for the reply.

Welcome to the forum.

I have added code tags to both your posts. As per forum rule 3, you need to use them whenever you put any code in your post. Please add them in future. In order to put code tags, either type [CODE] before your code and [/CODE] at the end of it, OR you can highlight your code and click the # icon at the top of your post window.