Sub ReplyAllWithAttachments()
    Dim originalMail As MailItem
    Dim replyMail As MailItem
    Dim attachment As Attachment
    Dim tempAttachmentPath As String
    Dim fso As Object
    Dim tempFolder As String

    ' Ensure only one mail item is selected
    If Application.ActiveExplorer.Selection.Count <> 1 Then
        MsgBox "Please select a single email item.", vbExclamation
        Exit Sub
    End If

    If Not TypeOf Application.ActiveExplorer.Selection.Item(1) Is MailItem Then
        MsgBox "Selected item is not an email.", vbExclamation
        Exit Sub
    End If

    Set originalMail = Application.ActiveExplorer.Selection.Item(1)
    Set replyMail = originalMail.ReplyAll

    ' Save attachments to temp folder and re-attach
    Set fso = CreateObject("Scripting.FileSystemObject")
    tempFolder = Environ("TEMP") & "\OutlookTempAttachments\"

    If Not fso.FolderExists(tempFolder) Then
        fso.CreateFolder tempFolder
    End If

    For Each attachment In originalMail.Attachments
        tempAttachmentPath = tempFolder & attachment.FileName
        attachment.SaveAsFile tempAttachmentPath
        replyMail.Attachments.Add tempAttachmentPath
    Next attachment

    replyMail.Display
End Sub