If InStr(objAtt.FileName, "XXX") Then 

Public Sub saveAttachtoDisk(myItem As Outlook.MailItem)

Dim objAtt As Outlook.Attachment
Dim saveFolder(1 To 4)
    saveFolder1 = "с:\int\1\" 'email hotmail.com
    saveFolder2 = "с:\int\2\" 'email gmail.com
    saveFolder3 = "с:\int\3\" 'мусор от разрешенных email
    saveFolder4 = "с:\int\4\" 'вложение от неразрешенных email
    saveFolder5 = "с:\int\5\" 'мусорные вложения


Dim dateFormat
    dateFormat = Format(Now, "yyyy-mm-dd")
    
    For Each objAtt In myItem.Attachments
    If  Then 'тут полный пробел нужно типа If .... вложение содержит формат .xls* или .pdf или .doc или .cvs или .zip
          If InStr(myItem.SenderEmailAddress, "hotmail.com") Then
                If  Then 'тут опять пробел нужно типа If .... вложение содержит формат .xls* или .pdf или .doc или .cvs или .zip
                objAtt.SaveAsFile saveFolder1 & "\" & objAtt.FileName
                Else 'типа всяких картинок и прочего
                objAtt.SaveAsFile saveFolder3 & "\" & objAtt.FileName
            End If
          ElseIf InStr(myItem.SenderEmailAddress, "gmail.com") Then
                If  Then 'тут снова пробел нужно типа If .... вложение содержит формат .xls* или .pdf или .doc или .cvs или .zip
                objAtt.SaveAsFile saveFolder2 & "\" & objAtt.FileName
                Else
                objAtt.SaveAsFile saveFolder3 & "\" & objAtt.FileName
                End If
          Else
                objAtt.SaveAsFile saveFolder4 & "\" & objAtt.FileName 'сюда должны попадать все файлы, по которым не расписаны правила по email, но которые содержат разрешенные форматы файлов .xls* или .pdf или .doc или .cvs или .zip
          End If
   Else
    objAtt.SaveAsFile saveFolder5 & "\" & objAtt.FileName 'OK 'сюда должны попадать все остальные файлы, которые не содержат разрешенные форматы файлов .xls* или .pdf или .doc или .cvs или .zip
    End If
                
     Set objAtt = Nothing
     Next