Outlook vba match a pattern when attchement is found

[hartyshow]

I'm trying to match a pattern when a spreadsheet attachment is found in outlook. I can trigger the process for a spreadsheet attachment but don't know how to invoke the search through the attachment.

Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
    Dim objAtt As Outlook.Attachment
    Dim saveFolder As String
    saveFolder = "C:\form"

     For Each objAtt In itm.Attachments
     
          
     If InStr(objAtt.DisplayName, ".xls") Then

        
          objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName
          
          
          Set objAtt = Nothing
        End If
          
          
          
     Next
     End Sub

thanks for your help

 

[hartyshow]

I have to admit you are right, but once again Kudos to you. many thanks for your help

 

[ZVI]

many thanks for your help

Glad to know it is working. Thank you for the feedback!