Public Sub ReplyToAllWithAttachment()

Dim strRecip As String
Dim objMsg, oMail As MailItem

Dim user As String
 
' For a reply or reply all, replace forward  with Reply or ReplyAll
Set objMsg = ActiveExplorer.Selection.Item(1).Forward
  
    If TypeName(ActiveExplorer.Selection.Item(1)) = "MailItem" Then
    
      Set oMail = ActiveExplorer.Selection.Item(1)
     
      On Error Resume Next
    
      user = Application.Session.CurrentUser
    
      For Each Recipient In oMail.Recipients
          If Recipient = user Then
              GoTo 1:
          Else
              strRecip = Recipient.Address & ";" & strRecip
          End If
1:     Next Recipient
    
       objMsg.To = strRecip & ";" & oMail.SenderEmailAddress
       'change subject FW -->; RE
       objMsg.Subject = "RE: " & Mid(objMsg.Subject, 5)
       objMsg.Display
  
    End If
  
    Set objMsg = Nothing
    
End Sub