统计规定时间内邮件

yanfeiliuhen1

    Dim InboxFolder As Folder
    Set InboxFolder = Session.GetDefaultFolder(olFolderInbox)
      
    Dim inbox As MailItem
    For Each inbox In InboxFolder.Items
            MsgBox ("hello world")
    Next

如何修改以上代码，使以上代码只遍历 发送时间SentOn为2014/6/1 00:00:00 到 2014/6/30 23:59:59 之间的邮件？
这样可以避免 遍历收件箱所有邮件，而影响效率

闻启学

只是增加时间比较

1. 
   
2.     Dim InboxFolder As Folder
   
3.     Set InboxFolder = Session.GetDefaultFolder(olFolderInbox)
   
4.       
   
5.     Dim inbox As MailItem
   
6.     For Each inbox In InboxFolder.Items
   
7.     if   inbox.createtime>  #2014/6/1 00:00:00 # and  nbox.createtime<  #2014/6/30 23:59:59 #
   
8.            MsgBox ("hello world")
   
9. endif
   
10. 
    
11.     Next
    

复制代码

yanfeiliuhen1

闻启学 发表于 2014-7-4 19:53
只是增加时间比较

用你这种方法 ，也是遍历每一封邮件来判断是否在规定时间内
我的意思是，能否让For Each inbox In InboxFolder.Items 定位在2014/6/1 00:00:00 - 2014/6/30 23:59:59之间（只遍历这时间之内邮件），