每个 vba Outlook 中的错误 13

Question

我想在收到回复时删除邮件。这是我的代码片段。我不明白为什么 for each 会遇到 error 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。按照您的操作方式，当循环遇到电子邮件消息以外的其他内容时，将出现类型不匹配错误，例如约会项目。

还可以阅读后期绑定。我建议您在使用非默认库时使用此功能。