Hi,
You could use something like this to save the attachment to disk

Sub SaveOLAttachment()
    Dim oAPP As Object
    Dim oNS As Object
    Dim oFdr As Object
    Dim oItem As Object
    Dim oAtt As Object
    
    Const olFolderInbox As Long = 6
    
    ' adjust as required
    Const cstrSAVE_PATH As String = "C:\Temp\"
    
    Set oAPP = CreateObject("Outlook.Application")
    Set oNS = oAPP.GetNamespace("MAPI")

    Set oFdr = oNS.GetDefaultFolder(olFolderInbox)
    Set oItem = oFdr.Items.Find("[Subject] = 'Volume'")
    If Not oItem Is Nothing Then
        If oItem.Attachments.Count > 0 Then
            Set oAtt = oItem.Attachments(1)
            oAtt.SaveAsFile cstrSAVE_PATH & oAtt.fileName
        End If
    End If
End Sub