For j = olItem.Attachments.Count To 1 Step -1
            Set olAttach = olItem.Attachments(j)
            If Not olAttach.FileName Like "image*.*" Then
                strFname = olAttach.FileName
                strExt = Right(strFname, Len(strFname) - InStrRev(strFname, Chr(46)))
                'strFname = FileNameUnique(strSaveFldr, strFname, strExt)
                If Not FileExists(strSaveFldr & strFname) Then
                    olAttach.SaveAsFile strSaveFldr & strFname
                End If
                'olAttach.Delete        'delete the attachment
            End If
        Next j