Regex 数组中每个邮件项目上的outlook vba正则表达式

我使用下面的代码创建输出，显示每天在一个定义的文件夹中有多少封电子邮件。这一切都很好。。。我的问题是关于XXXXX的部分，我如何引用每个邮件项目，以便对单词模式执行正则表达式？最终目标是找出在给定的一天有多少电子邮件包含一个关键字。所需的输出如下所示：

,，， 2015-01-01,15,2,5 2015-01-01,23,22,0 ...

我可以根据关键字找出确定电子邮件数量的代码，只是不确定如何根据代码引用电子邮件，就像今天一样

谢谢你的建议

Sub HowManyEmails（）

端接头

函数GetDate（dt作为日期）作为字符串 GetDate=年（dt）&“-”月（dt）&“-”日（dt）

---

结束功能

您需要检查代码中项目的类型：

Dim myMailItem As Outlook.mailItem
....

For each myItem in myItems
    If TypeOf myItem Is MailItem Then
        Set myMailItem = myItem

         XXXXXXXXXXX and rest of code here use myMailItem instead of myItem to get info

    End If
Next myItem

---

首先，我建议使用Items类的/或方法来查找与指定条件匹配的项的子集。遍历文件夹中的所有项目可能需要很多时间

objnSpace.Folders（“个人文件夹”）.Folders（“收件箱”）

使用Namespace类的方法获取一个文件夹，该文件夹表示当前概要文件所请求类型的默认文件夹

Outlook使用值唯一地标识Outlook项目。有关更多信息，请参阅。如果您知道项目的ID及其存储的文件夹，则可以使用该方法直接引用该项目

Set objFolder = Nothing
Set objnSpace = Nothing
Set objOutlook = Nothing

Dim myMailItem As Outlook.mailItem
....

For each myItem in myItems
    If TypeOf myItem Is MailItem Then
        Set myMailItem = myItem

         XXXXXXXXXXX and rest of code here use myMailItem instead of myItem to get info

    End If
Next myItem