Ошибка 13 in для каждого vba outlook

Question

Я хочу удалить почту, когда поступит ответ. Это фрагмент моего кода. Я не понимаю, почему для каждого пробегов в ошибка 13

Sub test222() 

Dim oapp As Outlook.Application 
Dim osession As Outlook.NameSpace 
Dim oInbox As Outlook.MAPIFolder 
Dim oSentItem As Outlook.MAPIFolder 

Dim omail As Outlook.MailItem 
Dim conID As String 

Set oapp = New Outlook.Application 
Set osession = oapp.GetNamespace("MAPI") 
Set oInbox = osession.GetDefaultFolder(olFolderInbox) 
Set oSentItem = osession.GetDefaultFolder(olFolderSentMail) 

i = 1 
For Each omail In oSentItem.Items 

If (omail.Subject = "Delivered: aa") Then 
    Msgbox "Hi" 
    omail.Delete 

    Exit For 
       Else 
    i = i + 1 
    End If   
Next 

End Sub 

Answer 1

Объявить omail в Object и проверить TypeName в петле. То, как вы это сделали, будет ошибка несоответствия типа, когда цикл работает во что-то еще, кроме сообщения электронной почты, например. пункт назначения.

Также читайте о позднем связывании. Я бы посоветовал использовать эту функциональность, когда вы работаете с библиотеками, отличными от по умолчанию.