mailitem循环中的类型不匹配

Question

Outlook 2010 VBA。 尝试在我所有的文件夹中搜索已标记的邮件。 创建此：

Private Sub flagrecurse(fold As Variant)

Dim olItem As MailItem
Dim nxtfold As Folder
Dim olFoldVar As Variant

'Test for which folder is being checked
MsgBox (fold.Name)

If fold.Folders.Count > 0 Then
    For Each nxtfold In fold.Folders
        Set olFoldVar = nxtfold
        flagrecurse olFoldVar
    Next nxtfold
Else
    For Each olItem In fold.Items
         'Test for which item is being checked
         If TypeName(olItem) = "MailItem" Then
            MsgBox (olItem.Subject)
            With olItem
                If .FlagRequest <> "" Or .IsMarkedAsTask Then
                    '.TaskDueDate = Now
                    'Sets a reminder today, in case one wasn't set
                    If Not (.ReminderSet) Then
                        .ReminderSet = True
                        .ReminderTime = Now + 2 / 24
                        .Save
                    End If
                End If
            End With
        End If
    Next olItem
End If

结束子

问题是我的收件箱中有744个项目，它通过8或9，然后给我一个“类型不匹配”。 当我调试时，它标记为“ Next olItem”，当我检查“ olItem”的值时，它将解析为“ nothing”。

我究竟做错了什么？

Answer 1

您假设文件夹中只能有MailItem对象。 您还可以具有ReportItem，MettingRequestItem等。将olItem声明为通用对象，并检查Class属性为43（olMail）。