VBA Поиск электронной почты в Outlook и создание новой, если она не найдена

Question

Я пытаюсь, чтобы VBA выполнял поиск в папке Outlook в письме с определенной строкой темы.Пока у меня есть его для поиска электронного письма и ответа на него с желаемой информацией в теле, но у меня возникают проблемы при создании нового электронного письма, если оно не найдено в папке.Другими словами, каждый день у меня есть электронное письмо, в котором содержится соответствующая рабочая информация за определенный день, и несколько команд в течение дня возвращаются туда и обратно по этому письму.Каждый день создается новое электронное письмо.Итак, я пытаюсь либо найти самое последнее письмо, либо создать его, если это первое письмо за день.У меня есть следующий код:

(extra code) 
    For i = 1 to olItems. Count
Set olMail = olItem(i) 

If instr(olMail.subject, "email subject") > 0 then
    Found = true
    If Not olMail.categories = "Executed" Then
    Set olReply = olMail.ReplyAll
    With olReply
    .Display
    Dim wdDoc As Word.Document
    Set wdDoc = .GetInspector.WordEditor

        If Not wdDoc Is Nothing Then
             With wdDoc.Range
             .Collapse wdCollapseStart
             .InsertBefore "Round" & vbCrLf & vbCrLf
             .Collapse wdCollapseEnd
             .Collapse wdCollapseStart
             ActiveWorkbook.ActiveSheet.Range("A25").Select
             Range(Selection, Selection.End(xlToRight)).Select
             Range(Selection, Selection.End(xlDown)).Select
             Selection.Copy
             .Paste
             End With
             End If
             Set wdDoc = Nothing
           End With
           Exit For
           olMail.categories = "Executed"
ElseIf Found = False Then
   strbody = "GM Team," & vbNewLine & vbNewLine & "Round 1"
   With OutMail
       .To = ""
       .CC = ""
       .Subject = ""
       .Body = strbody
       .Display
    End With
 End If
 End If
Next i
End Sub

Это работает, если электронная почта уже существует, но я, кажется, не работаю, чтобы создать новую электронную почту, если она не существует.