Screening incoming mail

[ebolisa]

Hi,

I receive daily an email with 3 attached files, one of them having the ext .TXT.

The following code saves in a folder the 3 received attachments using a Rule.

I’d like to modify the code to store only the .TXT file.

How do I go by?
TIA
EDIT: Outlook 2007

Public Sub saveAttach(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "c:\myAttFiles\"
     For Each objAtt In itm.Attachments
          objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName
          Set objAtt = Nothing
     Next
End Sub

[gmayor]

Public Sub saveAttach(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
    saveFolder = "c:\myAttFiles\"
    For Each objAtt In itm.Attachments
        If Right(LCase(objAtt.fileName), 4) = ".txt" Then
            objAtt.SaveAsFile saveFolder & "\" & objAtt.fileName
        End If
    Next
    Set objAtt = Nothing
End Sub

[ebolisa]

gmayor, thanks for getting back to me.
I tried your suggestion but still not filtering out the non wanted extensions. I changed the .txt to .TXT with no avail (just in case).
Nor did

UCase(objAtt.fileName), 4) = ".TXT"

helped.

[gmayor]

It works fine here. Test it against a message in your inbox that has at least one txt format attachment with

Sub TestMacro()
Dim olMsg As MailItem
    On Error Resume Next
    Set olMsg = ActiveExplorer.Selection.Item(1)
    saveAttach olMsg
lbl_Exit:
    Exit Sub
End Sub

[ebolisa]

Cap.jpgI get a compiling error. It halts stating that there's no Sub or Function

EDIT:
My bad. It ran and saved the 3 files and not only one.

[gmayor]

SaveAttach is the macro in my previous reply. It should be present for the test macro to find.

[ebolisa]

Ok, I select the test email having three files with different extensions one of them being .TXT, go to Tools, Macro, Macro, Activate Macros and execute TestMacro.
I then go the folder and I find the three files whereas should be only one with the .TXT extension. So, the test macro is doing its job but, for some reason, the filtering is failing.