删除Outlook 2007中重复邮件的C#代码

using System;
using System.Collections.Generic;
using System.Linq;
using Microsoft.Office.Interop.Outlook;

namespace CleanRedundantMail
{
class Program
{
static Queue<MailItem> mailQueue = new Queue<MailItem>();
static int numDeleted = 0;

static void Main(string[] args)
{
Application outLookApp = new Application();
NameSpace outlookNS = outLookApp.GetNamespace("MAPI");
MAPIFolder inBox = outlookNS.GetDefaultFolder(OlDefaultFolders.olFolderInbox);
ListAllFolders(inBox);
DeleteRedundant(outLookApp);
Console.WriteLine(numDeleted);
}

private static void ListAllFolders(MAPIFolder folder)
{
ListAllMails(folder);
foreach (MAPIFolder subfolder in folder.Folders)
{
ListAllFolders(subfolder);
}
}

private static void ListAllMails(MAPIFolder folder)
{
DateTime tryTime;
foreach (object obj in folder.Items)
{
MailItem olMail = obj as MailItem;
if (olMail != null)
{
try
{
tryTime = olMail.ReceivedTime;
mailQueue.Enqueue(olMail);
}
catch
{ }
}
}
}

private static void DeleteRedundant(Application outLookApp)
{
MailItem tempMail = outLookApp.CreateItem(OlItemType.olMailItem) as MailItem;
tempMail.Subject = "";
foreach (MailItem olMail in mailQueue.OrderBy(mailinfo => mailinfo.ReceivedTime))
{
if (olMail.ReceivedTime == tempMail.ReceivedTime && olMail.Subject == tempMail.Subject)
{
olMail.Delete();
numDeleted++;
}
else
{
tempMail = olMail;
}
}

}
}
}