VBA to Reply All To Latest Email Thread

**pkearney10** · 11-29-2018, 12:30 AM

Hello,

I'm trying to build a macro that searches my inbox for a subject line (in this example "REQUEST FOR OVERTIME"), opens the most recent email, and reply all. My macro is a little more nuanced, but borrowed from the example I found online below.

The issue is that it's opening ALL emails with the subject line "REQUEST FOR OVERTIME," not just the most recent. What should I add to this in order to just open the latest message?

Thanks!

Code:

Sub ReplyMail_No_Movements()

Dim olApp As Outlook.Application
Dim olNs As Namespace
Dim Fldr As MAPIFolder
Dim olMail As Variant
Dim i As Integer


Set olApp = New Outlook.Application
Set olNs = olApp.GetNamespace("MAPI")
Set Fldr = olNs.GetDefaultFolder(olFolderSentMail)
i = 1

For Each olMail In Fldr.Items

If InStr(olMail.Subject, "REQUEST FOR OVERTIME") <> 0 Then
        
            Set replyall = olMail.replyall
            With replyall
        StrBody = "Hello " & "<br>" & _
        "<p>Following up with the below. May you please advise?" & _
        "<p>Thank you," & vbCrLf & vbCrLf & "<br>" & _
        "<p>" & Session.CurrentUser.Name
        .HTMLBody = StrBody & .HTMLBody
                emailReady = True
            .Display

i = i + 1
End If

Next olMail

Set olMail = Nothing
Set olApp = Nothing

End Sub