按接收日期获取消息计数

| 我有以下代码用于计算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 \” 甚至在特定日期 \“ 2010年11月2日收到的电子邮件数量\”     
2020-01-23 4 条评论
分享

没有找到相关结果

    已邀请:

    绵扇寸访

            也许将参数（可选的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
        
    2020-01-23 0 0
    分享

    倪蕊悲潍

            看起来您将不得不查看每条消息并使用TimeReceived属性。 
    For Each MapiItem In MapiFolderInbox.Messages
            If MapiItem.TimeReceived = dte Then count = count + 1
        Next MapiItem
    或类似的东西。     
    2020-01-23 0 0
    分享

    掸牛浓疗

            好吧，这就是我所拥有的。似乎没有任何简单的属性或方法可以为您提供所需的答案。我不知道是否可以通过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
    如果此代码有帮助，请投票给我。我需要积分。 :-)     
    2020-01-23 0 0
    分享
    为什么被折叠? 0 个回复被折叠

    要回复问题请先登录或注册

    或代码 OrCode.com 备案号：粤ICP备15020848号-1
    Escape time: 0.058284997940063