VBA统计电子邮件模块！

Question

这是我昨天发布的问题的后续问题。我觉得我已经非常接近在 VBA 中创建一个模块，该模块将计算一周中特定一天发送的电子邮件数量。目前选择的日期是星期一。

但是，代码尚未运行，Outlook 拒绝查看特定模块。
我确信其中有一些错误。如果有人能指出这些，我将不胜感激。
我还认为这样的代码对其他人来说可能很有用，以供将来参考，因为这种模块的代码似乎在互联网上不容易获得（我已经看过了！），但形成了一种许多人会使用的搜索参数类型发现有用！

Sub Count2(Optional dteDate As Date)
  Dim objOutlook As Object, objnSpace As Object, objFolder As Object
  Dim EmailCount As Integer    
  Set objOutlook = CreateObject("Outlook.Application")
  Set objnSpace = objOutlook.GetNamespace("MAPI")

  On Error Resume Next

  Set objFolder = objnSpace.Folders("My Personal Emails").Folders("spam")
  If Err.Number <> 0 Then 
    Err.Clear
    MsgBox "No such folder."
    Exit Sub
  End If

  Select Case Weekday(dteDate)
    Case vbMonday
      dteDate = Date
    End Select

  For Each MapiItem In MapiFolderInbox.Messages
    If MapiItem.TimeReceived = Date Then
      Count = Count + 1
      Next MapiItem   
    End If

  EmailCount = objFolder.Items.Count
  Set objFolder = Nothing
  Set objnSpace = Nothing
  Set objOutlook = Nothing

  MsgBox "Number of emails in the folder: " _
    & EmailCount, , "Number of spam messages sent on a Monday: " & Count        
End Sub

Answer 1

调试时删除on error resume next。
它隐藏了错误。如果有必要，您可以稍后将其放回去。
忽略错误并不是一个好主意，最好明确地处理错误。

让我印象深刻的一件事是：

For Each MapiItem In MapiFolderInbox.Messages
    If MapiItem.TimeReceived = Date Then
      Count = Count + 1
      Next MapiItem   
    End If

应该是

For Each MapiItem In MapiFolderInbox.Messages
  If MapiItem.TimeReceived = Date Then
    Count = Count + 1
  End If
Next MapiItem   

除此之外它对我来说看起来还不错。

Answer 2

我认为收到的时间更像是一个时间戳，除了日期之外，它还有时间。你可能应该这样使用它；

For Each MapiItem In MapiFolderInbox.Messages   
    If  MapiItem.TimeReceived > YTS And MapiItem.TimeReceived < TTS Then
        Count = Count + 1   
    End If 
Next MapiItem

其中 YTS 和 TTS 是时间戳，其中包含昨天的时间戳和今天的时间戳，

例如 01:06:2011:23:59:00 和 02:06:2011:23:59:00

您应该通过调试代码来确认这一点。希望这有帮助。

Answer 3

Outlook 仅在参数留空时才看到该模块...而不是包含（可选 dteDate 作为日期）。

除此之外，根据 Johan 的建议，模块运行，但只有 Count = 1。也就是说，无论输入如何，周一收到的电子邮件的结果始终为 1。

我也尝试了 adbanginwar 的建议，但在这种情况下，显示“Expected: Then or GoTo”的编译错误。