Получить количество сообщений по полученной дате

Question

У меня есть следующий код для подсчета общего количества электронных писем в Outlook:

Sub Test()

    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("MyFolder").Folders("Spam")

    If Err.Number <> 0 Then
        Err.Clear
        MsgBox "No such folder."
        Exit Sub
    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 "

End Sub

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

Примеры:

• "ЧИСЛО СООБЩЕНИЙ, ПОЛУЧЕННЫХ ПО ПОНЕДЕЛЬНИКАМ = 476"
• "ЧИСЛО СООБЩЕНИЙ, ПОЛУЧЕННЫХ ПО ВОСКРЕСЕНКАМ = 121"

Или даже на определенную дату

• "КОЛИЧЕСТВО ЭЛЕКТРОННЫХ ПОЧТ, ПОЛУЧЕННЫХ 2 НОЯБРЯ 2010 ГОДА"

Answer 1

Возможно добавить аргумент (необязательный dteDate As Date) ко всему методу / функции и содержать следующий код в теле

Select Case Weekday(dteDate)
  Case vbMonday  
    IsCorrectDay = True
  Case Else  
    IsCorrectDay = False
End Select

For Each MapiItem In MapiFolderInbox.Messages
  If MapiItem.TimeReceived = IsCorrectDay Then count = count + 1     
Next MapiItem 

Answer 2

Ну, это то, что у меня есть.Похоже, что не существует какого-либо простого свойства или метода, чтобы дать вам нужный ответ.Я не знаю, есть ли способ ссылаться на элементы почты через SQL-запрос.Если бы это было так, это был бы идеальный подход.Поскольку это кажется невозможным, вы можете перебирать ВСЕ элементы в папке (или папках) и иметь несколько переменных счетчика для дней недели.Затем вы увеличиваете соответствующий счетчик для каждого элемента.

Основная проблема - просто выяснить, как ссылаться на соответствующий объект.

Протестировано в MS Outlook 2003 и, кажется, работает.НО - я не проверял, считает ли он каждый элемент в каждой подпапке папки «Входящие» или просто подсчитывает количество элементов в самой папке «Входящие», но не какие-либо элементы в подпапках папки «Входящие».Во всяком случае, она это:

Sub CountEmailsByDayOfWeek()
 'count mail items by day-of-week
 'Isaac Comer, 6-3-2011

 Dim EmCtSun, EmCtMon, EmCtTue, EmCtWed, EmCtThu, EmCtFri, EmCtSat As Long

 Dim myInbox As Variant
 Dim BUNCH_OF_Items As Items
 Dim myInboxItem As Variant

 Set myInbox = GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
 Set BUNCH_OF_Items = myInbox.Items

 ' < Handle any errors like No such folder here >

 ' clear counters for each day-of-week 
 ' "EmCt" means "Email Count". It wasn't a good choice of variable name 
 ' because some "Items" aren't "Emails", but I'm not fixing it right now
 EmCtSun = 0: EmCtMon = 0: EmCtTue = 0: EmCtWed = 0: EmCtThu = 0: EmCtFri = 0: EmCtSat = 0


' disabled test case with the "first" item in Inbox--testing to make sure I had the object reference correct
'     Set myInboxItem = BUNCH_OF_Items(1)
'          With myInboxItem
'               Debug.Print Chr(34) & .Subject & Chr(34) & " Received: "; .ReceivedTime
'               Debug.Print DatePart("w", .ReceivedTime)
'          End With

 For Each myInboxItem In BUNCH_OF_Items
      With myInboxItem
           'disabled code that shows the subject line and received time
           'Debug.Print Chr(34) & .Subject & Chr(34) & " Received: "; .ReceivedTime
           Select Case DatePart("w", .ReceivedTime) ' get the numeric day-of-week corresponding to the vb constants
                Case vbSunday
                     EmCtSun = EmCtSun + 1
                Case vbMonday
                     EmCtMon = EmCtMon + 1
                Case vbTuesday
                     EmCtTue = EmCtTue + 1
                Case vbWednesday
                     EmCtWed = EmCtWed + 1
                Case vbThursday
                     EmCtThu = EmCtThu + 1
                Case vbFriday
                     EmCtFri = EmCtFri + 1
                Case vbSaturday
                     EmCtSat = EmCtSat + 1
           End Select
      End With
 Next

 ' output
 ' send output both to a msgbox and the immediate window.
 Debug.Print "Counts for Emails received Sunday, Monday, Tuesday, Wednesday, Thursday, Friday, and Saturday respectively."
 Debug.Print EmCtSun; EmCtMon; EmCtTue; EmCtWed; EmCtThu; EmCtFri; EmCtSat
 MsgBox _
      "Sunday:" & vbTab & vbTab & EmCtSun & vbCrLf & _
      "Monday:" & vbTab & vbTab & EmCtMon & vbCrLf & _
      "Tuesday:" & vbTab & vbTab & EmCtTue & vbCrLf & _
      "Wednesday:" & vbTab & EmCtWed & vbCrLf & _
      "Thursday:" & vbTab & EmCtThu & vbCrLf & _
      "Friday:" & vbTab & vbTab & EmCtFri & vbCrLf & _
      "Saturday:" & vbTab & EmCtSat, _
      vbOKOnly + vbInformation, "Count of Items By Day-of-week Received"
End Sub

Если этот код был полезным, пожалуйста, проголосуйте за меня.Мне нужны очки.: -)

Answer 3

Похоже, вам придется просматривать каждое сообщение и использовать свойство TimeReceived.

For Each MapiItem In MapiFolderInbox.Messages
            If MapiItem.TimeReceived = dte Then count = count + 1
        Next MapiItem

или что-то в этом роде.