Option Explicit
Dim WithEvents TargetFolderItems As Outlook.Items
'Set FILE_PATH on the following line to the path you want to save the attachments to.  Make sure it ends with a \
Const FILE_PATH As String = "C:\Temp\"
 
Private Sub Application_Startup()
    'Change the folder path on the line below to point to the folder you want to monitor
    Set TargetFolderItems = Session.Folders.Item("Personal Folders").Folders.Item("Temp").Items
End Sub
 
Sub TargetFolderItems_ItemAdd(ByVal Item As Object)
    'When a new item is added to our "watched folder" we can process it
    Dim olAttachment As Outlook.Attachment
    For Each olAttachment In Item.Attachments
        'Save the attachment
        olAttachment.SaveAsFile FILE_PATH & olAttachment.FILENAME
    Next
    Set olAttachment = Nothing
End Sub
 
Private Sub Application_Quit()
    Set TargetFolderItems = Nothing
End Sub

If olAttachment.FILENAME Like "sw-*" Then

if olAttachment.FILENAME like "sw-*.*" then olAttachment.SaveAsFile FILE_PATH & olAttachment.FILENAME

Option Explicit
Dim WithEvents TargetFolderItems As Outlook.Items
'Set FILE_PATH on the following line to the path you want to save the attachments to.  Make sure it ends with a \
Const FILE_PATH As String = "H:\1C exchange\swift\"
 
Private Sub Application_Startup()
    'Change the folder path on the line below to point to the folder you want to monitor
    Set TargetFolderItems = Session.Folders.Item("EVrublevskiy@ufgwm.com").Folders.Item("Inbox").Items
End Sub
 
Sub TargetFolderItems_ItemAdd(ByVal Item As Object)
    'When a new item is added to our "watched folder" we can process it
    Dim olAttachment As Outlook.Attachment
    For Each olAttachment In Item.Attachments
        'Save the attachment
        If olAttachment.Filename Like "sw-*.*" Then
        olAttachment.SaveAsFile FILE_PATH & olAttachment.Filename
        End If
    Next
    Set olAttachment = Nothing
End Sub
 
Private Sub Application_Quit()
    Set TargetFolderItems = Nothing
End Sub