从 Outlook 公用文件夹中删除邮件项

Question

在几个公用文件夹中大约有 15 个特定的公用文件夹，我要从中删除超过 15 天的邮件项。每个公用文件夹都有大约 1000 多个邮件项。每周都是相同数量的物品。目前我正在获取默认的公用文件夹并循环每个子文件夹并删除邮件。

Microsoft.Office.Interop.Outlook.Folder tempInbox = tempApp.Session.GetDefaultFolder(Microsoft.Office.Interop.Outlook.OlDefaultFolders.olPublicFoldersAllPublicFolders) as Microsoft.Office.Interop.Outlook.Folder;
**SOME Code***
foreach (Microsoft.Office.Interop.Outlook.Folder subfolder1 in     subfolder.Folders)
{
if ((check those 14 subfolder names )& (subfolder1.Folders.Count > 0))
{
    CheckCountries(subfolder1, sw);
}
}
CheckCountries(subfolder1, sw) -> Here I am comparing and deleting the mail items.

//Deletion part of code below
foreach (object todel in delItem)
{
DateTime d1 = DateTime.Now;
Microsoft.Office.Interop.Outlook.MailItem mailitmType = todel as  Microsoft.Office.Interop.Outlook.MailItem;
if (mailitmType is Microsoft.Office.Interop.Outlook.MailItem)
{
    if ((mailitmType.IsConflict != true) &  (mailitmType.MessageClass.Contains("IPM.Note.SMIME") == false))
    {
    DateTime d2 = mailitmType.ReceivedTime;
    if ((d1 - d2).TotalDays > iDays)
    {
    sw.WriteLine("Deleting Mail with Subject line as = \"" + mailitmType.Subject + "\"   and Received time = " + mailitmType.ReceivedTime);
    mailitmType.Delete();
    iCnt = iCnt + 1;
   } //mailitmType.Save();
    }
}
}

我想在以下方面进行改进 -

• 在读取所有 每个邮件项（如果有 2000 个，其中只有 1000 个大于 15 天） 15 个文件夹，比较邮件的年龄，然后删除。
• 某些文件夹因访问问题而失败。所以我需要在代码的开头添加一个 id，它可以访问所有这些公共文件夹并且可以用来删除。目前，它采用运行可执行文件的默认 ID。

Answer 1

永远不要遍历文件夹中的所有项目 - 使用 Items.Find/FindNext 或 Items.Restrict 对 ReceivedTime 属性的查询小于某个值。