Replay from excel - Any one ??

Amisha35 

Although you have not provided any precise information, here is a last attempt on my part. I have not tested the code, so please back up the file before making any changes.

Sub ReplyAllLastEmailFromAllFolders()

    Dim olApp As Outlook.Application
    Dim olNs As Namespace
    Dim objMail As Object
    Dim objReplyToThisMail As MailItem
    Dim objConversation As Conversation
    Dim objTable As Table
    Dim objVar As Variant
    Dim strBody As String
    Dim searchValue As String
    
    ' Set your search value based on the cell value
    searchValue = ActiveCell.Value

    Set olApp = New Outlook.Application
    Set olNs = olApp.GetNamespace("MAPI")

    ' Loop through all folders, including subfolders
    For Each objFolder In olNs.Folders
        ProcessFolder objFolder, searchValue ' Pass searchValue as a String
    Next objFolder

    Set olApp = Nothing
    Set olNs = Nothing
    Set objMail = Nothing
    Set objReplyToThisMail = Nothing
    Set objConversation = Nothing
    Set objTable = Nothing
    If IsArray(objVar) Then Erase objVar

End Sub

Hope it helps you!