Const spath As String = "C:\" 'папка для сохранения файлов
Const My_sender As String = "addressee@mail.ru"
Public WithEvents myOlItems As Outlook.Items

Private Sub Application_NewMail()

Dim mi As MailItem
Dim i_start As Integer
Dim fl_name As String
Dim point_start As Integer
Dim fl_ind As Integer
Dim st_repl As String

Set myFolder = Application.GetNamespace("MAPI").Folders("sender@ml.ru")

Set myFolder = myFolder.Folders("Входящие")

For Each mi In myFolder.Items.Restrict("[Unread]=TRUE")
    If mi.Attachments.Count > 0 Then
     ' проверка на адресата
    If mi.SenderEmailAddress = My_sender Then
      For j = 1 To mi.Attachments.Count
        fl_name = spath & mi.Attachments.Item(j).DisplayName
         mi.Attachments.Item(j).SaveAsFile fl_name
      Next j
      End If

    End If
    mi.UnRead = False
Next mi

End Sub
 CreateObject("WScript.Shell").Run "C:\Users\1\Desktop\1\1.exe"

 CreateObject("WScript.Shell").Run "C:\Users\1\Desktop\1\1.exe"

 end sub