Change file name and keep extension

[emccracken]

I'm working with Outlook and used a combination of a Rule and VBA to automatically save files of a specific name to a folder. When I try to enter my own file name, it corrupts the file. It won't let me edit the name. I'm using this:

For Each objAtt In itm.Attachments        
              If InStr(objAtt.DisplayName, ".xlsx") Then
                    objAtt.SaveAsFile saveFolder & "\" & dateFormat & " - " & objAtt.DisplayName
              End If
                    Set objAtt = Nothing
          Next

This adds the date before the current file name and saves it to a specified location. I'm looking to edit my code to save files, keep the extension (to avoid corrupting the file), and change the name of the file. What should I use to call the current extension of the file?

One other issue: I currently have it set to only save .xlsx files because the signature contains a picture that automatically saves. Is there a way to not download the .jpg or .png file, rather than only download the .xlsx?

[gmayor]

The following should work

If Not objAtt.fileName Like "image*.*" Then
    strFname = objAtt.fileName
    strExt = Right(strFname, Len(strFname) - InStrRev(strFname, Chr(46)) + 1)
    strFname = "My New Filename" & strExt
    objAtt.SaveAsFile strSaveFldr & strFname
End If