Dim oApp As Microsoft.Office.Interop.Outlook._Application
                oApp = New Microsoft.Office.Interop.Outlook.Application
                Dim fl_name As String

                Dim myFolder = oApp.GetNamespace("MAPI").Folders("your_mail@mail.ru")

                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
                        '  ставим здесь обработку
                        Call Main1()
                    End If
                    mi.UnRead = False
                Next mi

                oApp = Nothing
                End