Public Function is_email_sent()
    Dim olApp As Object
    Dim olNs As Object
    Dim olFldr As Object
    Dim olItms As Object
    Dim objItem As Object
 
    On Error Resume Next
    Set olApp = CreateObject("Outlook.Application")
    Set olNs = olApp.GetNamespace("MAPI")
    Set olFldr = olNs.Folders("pavelpavel1981@list.ru").Folders("Отправленные")
    Set olItms = olFldr.Items

Set objItem = olItms.Restrict("[Subject] = ""test"" And [SentOn] >= ""2/02/2020 13:00"" ")

    If objItem.Count < 1 Then
        MsgBox "No. Email not found"
    Else
        MsgBox "Yes. Email found"
    End If

    Set olApp = Nothing
    Set olNs = Nothing
    Set olFldr = Nothing
    Set olItms = Nothing
    Set objItem = Nothing
End Function

Set objItem = olItms.Restrict("[Subject] = ""test"" And [SentOn] >= ""cells(1,1).value"" ")

Public ie As Object


Sub Open_IE ()



Dim WebUrl As String
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
WebUrl = "https://ya.ru"
ie.Navigate WebUrl



End Sub


'Тут разные макросы

Sub Active_IE()
'не работает

ie.Activate

End Sub

Public ie As Object
Sub Open_ie1()
'Макрос открыть браузер

Dim ie As Object
Dim WebUrl As String
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
WebUrl = "https://ya.ru"
ie.Navigate WebUrl
End Sub

'Здесь выполняются другие макросы 
Sub ie2()
'Макрос закрыть браузер
ie.Quit
End Sub

Option ExplicitSub mail()
Dim objOutlookApp As Object, objMail As Object
Dim sTo As String, sSubject As String, sBody As String, sAttachment As StringApplication.ScreenUpdating = False
On Error Resume Next
Set objOutlookApp = CreateObject("Outlook.Application")
objOutlookApp.Session.Logon
Set objMail = objOutlookApp.CreateItem(0) 
If Err.Number <> 0 Then Set objOutlookApp = Nothing: Set objMail = Nothing: Exit Sub

sTo = "XXXXXXXX@mail.ru" 
sSubject = "Название"
sBody = Range("A1").Value 

With objMail
.To = sTo 
.Subject = sSubject 
.Body = sBody 
.Attachments.Add sAttachment
.Send 'Display, 
End With
exit_:
Set objOutlookApp = Nothing: Set objMail = Nothing
Application.ScreenUpdating = True
End Sub

Private Sub CommandButton1_Click()
With Sheet1
.Range("a1") = 1
.Range("b1") = 0
.Range("f1").Calculate
.Range("h1").Value = .Range("f1").Value
.Range("a1") = 0
.Range("b1") = 1
.Range("f1").Calculate
.Range("h2").Value = .Range("f1").Value
End With

End Sub