Доступ VBA, чтобы не ошибка, когда приглашение на собрание найдено в отправленной почте

Question

Я сканирую отправленное письмо на наличие электронного письма, отправленного на определенный адрес электронной почты.Моя проблема заключается в том, что как только приглашение на собрание попадает, возникает ошибка отладки «Несоответствие типов» в следующей строке

Ниже приведен мой полный код - может кто-то покажет, как мне следует изменить свой код, чтобы он выполнялся какжелаемый?

Function rst()
Dim searchEmail As String
Dim olApp As Outlook.Application
Dim olNS As Namespace 
Dim Fldr As MAPIFolder
Dim olMail As Outlook.MailItem
Dim olReply As Outlook.MailItem
Set olApp = New Outlook.Application
Set olNS = olApp.GetNamespace(“MAPI”)
Set Fldr = olNS.GetDefaultFolder(olFolderSentMail)

For Each olMail In Fldr.Items
  If olMail.To = searchEmail Then
    Debug.Print “Found It”
  End If
Next olMail
End Function