[VBA]Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String

For Each objAtt In itm.Attachments
If UCase(objAtt.DisplayName) Like "*.CSV" Then
saveFolder = "c:\temp"
ElseIf UCase(objAtt.DisplayName) Like "*.PDF" Then
saveFolder = "h:\temp"
Else
saveFolder = "c:\junk"
End If
objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName
Set objAtt = Nothing
Next
End Sub[/VBA]

Not sure how you wanted to handle files that are neither pdf or csv so I coded it to put it into c:/junk. The folders need to exist or this will fail. You can edit the paths as necessary.