Option Explicit
                              
                              Sub SaveAttachments(Item As Outlook.MailItem)
                                  Dim olApp As Outlook.Application
                                  Dim destFolder As String
                                  Dim folderPath As String
                                  Dim folderName As String
                                  Dim attachment As Outlook.attachment
                                  Dim i As Long
                                  Dim promptName As String
                                  
                                  On Error Resume Next
                                  
                                  ' Initialize Outlook objects
                                  Set olApp = Outlook.Application
                                  
                                  ' Prompt for a folder name
                                  promptName = InputBox("Enter the folder name: ", "Save Attachments")
                                  If promptName = "" Then Exit Sub
                                  
                                  ' Prompt for a folder path
                                  folderPath = InputBox("Enter the folder path to save attachments: ", "Save Attachments")
                                  If folderPath = "" Then Exit Sub
                                  
                                  ' Create a folder with the prompted name
                                  folderName = folderPath &\& promptName
                                  MkDir folderName
                                  
                                  ' Loop through all attachments
                                  For i = 1 To Item.Attachments.Count
                                      Set attachment = Item.Attachments.Item(i)
                                      
                                      ' Save each attachment into the newly created folder
                                      destFolder = folderName &\& promptName & _ & i & _ & attachment.fileName
                                      attachment.SaveAsFile destFolder
                                      If Err.Number <> 0 Then
                                          MsgBox "An error occurred: " & Err.Description
                                      End If
                                  Next i
                                  
                                  ' Clean-up
                                  Set olApp = Nothing
                                  
                                  On Error GoTo 0
                              End Sub
                              
                              Sub RunSaveAttachmentsWithoutReply()
                                  Dim currItem As Object
                                  Set currItem = Application.ActiveInspector.CurrentItem
                                  If TypeOf currItem Is Outlook.MailItem Then
                                      SaveAttachments currItem
                                  End If
                              End Sub
                                  

Add Macro in Microsoft Outlook

Follow these step-by-step instructions to enable and use macros in Microsoft Outlook:

Step 1: Enable Macros

1. Go to File > Options.
2. Click on Trust Center.
3. Click on Trust Center Settings.
4. Navigate to Macro Settings.
5. Choose Enable All.

Step 2: Add Developer Tab to Ribbon

1. Right-click on the top toolbar.
2. Select Customize the Ribbon.
3. On the right side, under Main Tabs, click Developer.

Step 3: Open Visual Basic Editor

1. Go to the Developer tab.
2. Click on Visual Basic.
3. In the left sidebar, click Project1.
4. Navigate to Microsoft Outlook Objects.
5. Go to Insert and then select Module.

Step 4: Add the Macro Code

1. Copy and paste your macro code into the module.
2. Save and close the Visual Basic Editor.

Step 5: Attach Macro to Ribbon

1. Double-click on an email with attachments.
2. Right-click in an open area of the top toolbar.
3. Choose Customize Ribbon.
4. At the top of the screen, click the dropdown next to Choose commands from: and select Macros.
5. Click the New Tab button at the bottom and name the tab (e.g., "Macros", "Automate").
6. Right-click on the new tab and rename the group.
7. Click on the new group, then add the macro from the list on the left.
8. Right-click to rename and add an icon to the macro.