如何解决按接收日期获取消息计数
| 我有以下代码用于计算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
解决方法
也许将参数（可选的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
For Each MapiItem In MapiFolderInbox.Messages
If MapiItem.TimeReceived = dte Then count = count + 1
Next MapiItem
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
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。