Public Sub Test()
    Dim outApp As New Outlook.Application
    Dim nSpace As Outlook.Namespace
    Dim pFolder As Outlook.Folder
    Dim pItems As Outlook.Items
    Dim pMail As MailItem
     
    Set nSpace = outApp.GetNamespace("MAPI")
    Set pFolder = nSpace.Folders("vasya.pupkin@hp.com")
    Set pFolder = pFolder.Folders("Sent Items")
    Set pItems = pFolder.Items
    Set pMail = pItems.Find("[SentOn] > '09/01/2020' And [SentOn] < '09/24/2020'")
    Do Until pMail Is Nothing
        Debug.Print pMail.Subject & " = " & pMail.SentOn
        Set pMail = pItems.FindNext
        
        Cells(1, 1) = "Data"
        Cells(1, 2) = "To"
        Cells(1, 3) = "Subject"
        Cells(1, 4) = "Status"
  
        r = 1
        On Error GoTo err:
        For Each pItem In pMail
   
                Cells(r + 1, 1) = myItem.CreationTime
                Cells(r + 1, 2) = myItem.Recipients
                Cells(r + 1, 3) = myItem.Subject
                Cells(r + 1, 4) = myItem.Categories
            r = r + 1
  
        Next
        Exit Sub
err:
    If err.Number = 13 Then
    t = Timer
    Do While Timer - t < 1
    Loop
    Resume
    Else
        Stop
    End If
Loop
End Sub

Public Sub Test()
    Dim outApp As New Outlook.Application
    Dim nSpace As Outlook.Namespace
    Dim pFolder As Outlook.Folder
    Dim pItems As Outlook.Items
    Dim pMail As MailItem
     
    Set nSpace = outApp.GetNamespace("MAPI")
    Set pFolder = nSpace.Folders("vasya.pupkin@hp.com")
    Set pFolder = pFolder.Folders("Sent")
    Set pItems = pFolder.Items
    Set pMail = pItems.Find("[SentOn] > '09.09.2020' And [SentOn] < '12.09.2020'")
    Do Until pMail Is Nothing
        Debug.Print pMail.Subject & " = " & pMail.SentOn
        Set pMail = pItems.FindNext
    Loop
End Sub

Set nSpace = outApp.GetNamespace("MAPI")
    Set pFolder = nSpace.Folders("vasya.pupkin@hp.com")
    Set pFolder = pFolder.Folders("Sent Items")

        Cells(1, 1) = "Data"
        Cells(1, 2) = "To"
        Cells(1, 3) = "Subject"
        Cells(1, 4) = "Status"
 
        r = 1
        On Error GoTo Err:
        For Each pItem In pMail
  
                Cells(r + 1, 1) = myItem.CreationTime
                Cells(r + 1, 2) = myItem.Recipients
                Cells(r + 1, 3) = myItem.Subject
                Cells(r + 1, 4) = myItem.Categories
            r = r + 1
 
        Next
        Exit Sub

Cells(1, 1) = "Data"
        Cells(1, 1) = "Creation Time"
        Cells(1, 2) = "To"
        Cells(1, 3) = "Subject"
        Cells(1, 4) = "Status"

        r = 1
        On Error GoTo Err:
        For Each myItem In myMail
 
                Cells(r + 1, 1) = myItem.CreationTime
                Cells(r + 1, 2) = myItem.Recipients
                Cells(r + 1, 4) = myItem.Subject
                Cells(r + 1, 5) = myItem.Categories
            r = r + 1

Private Sub Worksheet_Change(ByVal Target As Range)'Update 20140722
Dim WorkRng As Range
Dim Rng As Range
Dim xOffsetColumn As Integer
Set WorkRng = Intersect(Application.ActiveSheet.Range("X:X"), Target)
xOffsetColumn = -1
If Not WorkRng Is Nothing Then
    Application.EnableEvents = False
    For Each Rng In WorkRng
        If Not VBA.IsEmpty(Rng.Value) Then
            Rng.Offset(0, xOffsetColumn).Value = Now
            Rng.Offset(0, xOffsetColumn).NumberFormat = "dd.mm.yyyy, hh:mm"
        Else
            Rng.Offset(0, xOffsetColumn).ClearContents
        End If
    Next
    Application.EnableEvents = True
End If
End Sub 

Private Sub Worksheet_Change(ByVal Target As Range)'Update 20140722
Dim WorkRng As Range
Dim Rng As Range
Dim xOffsetColumn As Integer
Set WorkRng = Intersect(Application.ActiveSheet.Range("B:B"), Target)
xOffsetColumn = 1
If Not WorkRng Is Nothing Then
    Application.EnableEvents = False
    For Each Rng In WorkRng
        If Not VBA.IsEmpty(Rng.Value) Then
            Rng.Offset(0, xOffsetColumn).Value = Now
            Rng.Offset(0, xOffsetColumn).NumberFormat = "dd.mm.yyyy, hh:mm"
        Else
            Rng.Offset(0, xOffsetColumn).ClearContents
        End If
    Next
    Application.EnableEvents = True
End If
End Sub