Private Sub Application_NewMail()
    'Dim EX As Excel.Application
    'Dim WB As Excel.Workbook

    Set myOlApp = CreateObject("Outlook.Application")
    Set myNameSpace = myOlApp.GetNamespace("MAPI")
    Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
    Set myItem = myFolder.Items( 1 )
    
    SenderName = myItem.SenderName
    If SenderName = "IBSO" Or SenderName = "" Then
        
        Set XL = GetObject(, "Excel.Application")
        For Each WB In XL.Workbooks
            If WB.Name = "Книга1.xls" Then GoTo  111 
        Next
 111 
        WB.Worksheets("Лист1").Cells( 1 ,  1 ) = "данные"
    End If
End Sub