Private Sub CommandButtonPrinat_Click()
Dim oNotesSession, oNotesDB, oNotesDate, oNotesInboxView, oNotesDoc, oNotesDocItem As Object
OPEN_MAIL:
    On Error GoTo OPEN_MAIL_ERROR
    Set oNotesSession = CreateObject("Notes.NotesSession")
    Set oNotesDB = oNotesSession.GetDatabase("", "") 
    Set oNotesDate = oNotesSession.CreateDateTime("")
    ''''Set oNotesDate = oNotesSession.CreateDateTime("01.01.13 01:36:22")
    oNotesDB.OpenMail
    nDocCount = 0
    GoTo SCAN_CONDI
OPEN_MAIL_ERROR:
If vbNo = MsgBox("Ошибка открытия почтового ящика" & Chr(13) & Chr(9) & "Подробнее: " & Err.Description & Chr(13) & "Продолжать?", vbYesNo + vbQuestion) Then
        Exit Sub
    Else
        GoTo SCAN_CONDI
    End If
    
SCAN_CONDI:
    On Error Resume Next
    Dim sScanExpr As String

    
        sScanExpr = " Subject='ПОЛУЧЕНО'" 
    Set oNotesInboxView = oNotesDB.Search(sScanExpr, oNotesDate, 0)
nDocCount = oNotesInboxView.Count
    If Err.Number <> 0 Then
        MsgBox "Ошибка при поиске" & Chr(13) & Chr(9) & "Подробнее: " & Err.Description
        nDocCount = 0
    End If
    If nDocCount = 0 Then
        If vbNo = MsgBox("В LotusNotes данные не найдены." & Chr(13) & "Продолжать?", vbYesNo + vbQuestion) Then
            Exit Sub
        End If
    End If
    
    On Error GoTo COPY_FILE_ERROR
    For i = 1 To nDocCount
        Set oNotesDoc = oNotesInboxView.GetNthDocument(i)
        Set oNotesDocItem = oNotesDoc.GetFirstItem("DTFormData")
        vEmbeddings = oNotesDocItem.EmbeddedObjects
        For ii = LBound(vEmbeddings) To UBound(vEmbeddings)
            vEmbeddings(ii).ExtractFile xls_path & vEmbeddings(ii).Source
        Next ii
        GoTo COPY_NEXT_FILE
COPY_FILE_ERROR:
        MsgBox "Ошибка извлечения данных из LotusNotes (" & Err.Description & ")"
COPY_NEXT_FILE:
    Next i

End Sub