Sub AttFromSender()
Const olMail As Integer = 43

Dim olApp As Outlook.Application
Dim olNS As NameSpace
Dim Folder As MAPIFolder
Dim Item As Object
Dim Atmt As Attachment
Dim FileName As String
Dim saveFolder As String

Set olApp = New Outlook.Application
Set olNS = olApp.GetNamespace("MAPI")
Set Folder = olNS.Folders("my_E-mail@mail.com").Folders("Work")

saveFolder = "C:\Users\User\Desktop\AAA"
On Error Resume Next
MkDir saveFolder
On Error GoTo 0

For Each Item In Folder.Items
    If Item.Class = olMail Then
        If Item.SenderEmailAddress = "my_E-mail@mail.com" Then
            For Each Atmt In Item.Attachments
                If Right(Atmt.FileName, 4) = ".pdf" Then
                    Atmt.SaveAsFile saveFolder & "\" & Atmt.FileName
                End If
            Next Atmt
        End If
    End If
Next Item

Set olApp = Nothing
Set olNS = Nothing
Set Folder = Nothing
Set Item = Nothing

End Sub

Sub AttFromSender()
    Dim OutlookApp As Object
    Set OutlookApp = CreateObject("Outlook.Application")
    OutlookApp.Application.Run "Attachments.AttachmentsFromSender.AttFromSender"
    OutlookApp.Quit
    Set OutlookApp = Nothing
End Sub