How to save the attachment of an outlook from VBA?

[Bafio]

Hello to everyone, once again I'm here looking for a solution to my problem.

I sistematically receive an e-mail with an excel attachment, and I have to open it and copy a range in the excel file, and paste in another file (already in my hard disk) in which I compare the values.

Is there someone who could help me in find a way to save/open (doesn't matter which one) the file through VBA?

Thanks for help.

 

[BarryL]

Sub SaveDownAttachment()
    Dim myOlApp As Outlook.Application
    Dim myInspector As Outlook.Inspector
    Dim myItem As Outlook.MailItem
    Dim myAttachments As Outlook.Attachments

    Dim Folder As Outlook.MAPIFolder
    Dim sFolders As Outlook.MAPIFolder
    Dim iRow As Long, oRow As Integer
    Dim MailBoxName As String, Pst_Folder_Name  As String
    Dim myname As String
    Dim Email As String
    
   myname = Application.UserName
    Email = ' This should equal your outlook mail address
 
    
    MailBoxName = Email

    Pst_Folder_Name = "Inbox"
   
    For Each Folder In Outlook.Session.Folders(MailBoxName).Folders
        If VBA.UCase(Folder.Name) = VBA.UCase(Pst_Folder_Name) Then GoTo Label_Folder_Found
        For Each sFolders In Folder.Folders
            If VBA.UCase(sFolders.Name) = VBA.UCase(Pst_Folder_Name) Then
                Set Folder = sFolders
                GoTo Label_Folder_Found
            End If
        Next sFolders
    Next Folder
Label_Folder_Found:
     If Folder.Name = "" Then
        MsgBox "Invalid Data in Input"
        GoTo End_Lbl1:
    End If
    On Error Resume Next
    For iRow = Folder.Items.Count To 1 Step -1
   
        If Folder.Items.Item(iRow).Subject = "Subject" Then
        Set myOlApp = CreateObject("Outlook.Application")
        Set myItem = Folder.Items.Item(iRow)
        Set myAttachments = myItem.Attachments
        myAttachments.Item(1).SaveAsFile "" 'Path File
        Exit Sub
        End If
    Next iRow
exitsub:
    
    Set Folder = Nothing
    Set sFolders = Nothing
    
End_Lbl1:
End Sub

I use the above a lot. Note the changes that need to be made. This is for excel vba. It can also be done through outlook.