Question

用VBA指定日期检索outlook收件箱里某一天收到的邮件数量

Answer 1

Private Sub Application_open()
'段兆On Error GoTo 1000
dim dates = date
if Today = dates then
Dim myOlApp As Application
Dim myNameSpace As NameSpace
Dim myibox As MAPIFolder
Dim mydelitems As MAPIFolder
Dim myitem As MailItem

Set myOlApp = CreateObject( "Outlook.Application ")
Set myNameSpace = myOlApp.GetNamespace( "MAPI ")
Set myibox = myNameSpace.GetDefaultFolder(olFolderInbox)
Set mymovefolder = myibox.Folders( "test "枝燃衡)

n = myibox.Items.Count
msgbox "text folder has" & n & "item."
end if
End Sub

根据你自己的实际日期微调一下猛做程序运行条件就行了

追问

如果收件箱下有多个文件夹，而且每个文件夹下有子文件夹，这个时候怎么办？

追答

Set myibox = myNameSpace.GetDefaultFolder(olFolderInbox)
Set mymovefolder = myibox.Folders( "test ")

这句话替换下面的代码段，用循环来遍历所有文件夹，当找到你需要的文件夹的时候再惊醒count处理，另外这个代码段支持你一个outlook里面可能会有好几个邮箱账户的情况，一样可以处理

Set olApp = Outlook.Application
Set nmsName = olApp.GetNamespace("MAPI")

For Each fldFolder In nmsName.Folders
For Each subFolder In fldFolder.Folders
If (subFolder.Name = "Inbox") Then ’这个地方用你需要的目标文件夹替换掉Inbox
For Each objitem In subFolder.Items
If objitem.Class = olMail Then
Debug.Print objitem.Subject
End If
Next
End If
Next
Next

追问

麻烦写全点吧！我的需求是这样的：比如我指定4／10号这天和一个收件夹下文件夹（或者子文件夹)，那么我要计算出4月10号这天我的这个文件夹下收到多少封邮件。谢谢！

追答

Private Sub Application_open()
'On Error GoTo 1000
Dim dates As Date
dates = 4 / 10 / 2013
If Date = dates Then
Dim OlApp As Application
Dim nmsName As NameSpace
Dim myibox As MAPIFolder
Dim mydelitems As MAPIFolder
Dim myitem As MailItem
Set OlApp = Outlook.Application
Set nmsName = OlApp.GetNamespace("MAPI")
For Each fldFolder In nmsName.Folders
For Each subFolder In fldFolder.Folders
If (subFolder.Name = "Inbox") Then ‘’‘大收件夹，这个你如果是中文系统就换成中文的“收件夹”
For Each folderitem In subFolder.Folders
If folderitem.Name = "Unuseful" Then ’‘’收件夹下自己创建的子文件夹，这里换成你自己想要统计的文件夹名字
n = folderitem.Items.Count ‘’‘n输出的就是你统计的个数，然后你选择怎么把能输出数来就是你的事了
Debug.Print n
Exit For
End If
Next
End If
Next
Next
End If
End Sub

追问

你没太懂我的意思，比如一个文件夹下有很多邮件，4／1 （5封）4／2（10封）。。。4／10（12封），我只想查10号这天的邮件数量，并不是全部的。