按标题在 Outlook 中查找特定邮件

Question

我正在尝试创建一个代码，使用主题字段在我的邮箱中查找信件（例如，根据 Outlook 规则，这些信件将位于文件夹 'TODO' 中）。这就是我现在所拥有的：

import win32com.client
outlook = win32com.client.Dispatch("Outlook.Application").GetNamespace("MAPI")

inbox = outlook.GetDefaultFolder(6).Folders.Item("TODO")

messages = inbox.Items
message = messages.GetLast()
body_content = message.subject
print(body_content)

此代码查找文件夹中的最后一个字母。

提前谢谢你。

Answer 1

您需要使用 Items class 的 Find/FindNext or Restrict 方法。例如，要获取主题行为 Hello world 的项目，您可以使用以下代码：

private void FindAllUnreadEmails(Outlook.MAPIFolder folder)
{
    string searchCriteria = "[Subject] = `Hello world`";
    StringBuilder strBuilder = null;
    int counter = default(int);
    Outlook._MailItem mail = null;
    Outlook.Items folderItems = null;
    object resultItem = null;
    try
    {
        if (folder.UnReadItemCount > 0)
        {
            strBuilder = new StringBuilder();
            folderItems = folder.Items;
            resultItem = folderItems.Find(searchCriteria);
            while (resultItem != null)
            {
                if (resultItem is Outlook._MailItem)
                {
                    counter++;
                    mail = resultItem as Outlook._MailItem;
                    strBuilder.AppendLine("#" + counter.ToString() + 
                                          "\tSubject: " + mail.Subject);
                }
                Marshal.ReleaseComObject(resultItem);
                resultItem = folderItems.FindNext();
            }
            if (strBuilder != null)
                Debug.WriteLine(strBuilder.ToString());
        }
        else
            Debug.WriteLine("There is no match in the " 
                                 + folder.Name + " folder.");
    }
    catch (Exception ex)
    {
        System.Windows.Forms.MessageBox.Show(ex.Message);
    }
    finally
    {
        if (folderItems != null) Marshal.ReleaseComObject(folderItems);
    }
}

在以下文章中详细了解这些方法：

此外，您可能会发现应用程序 class 的 AdvancedSearch 方法很有用。在 Outlook 中使用 AdvancedSearch 方法的主要好处是：

搜索在另一个线程中执行。您不需要手动运行另一个线程，因为 AdvancedSearch 方法运行会自动在后台运行它。
可以在任何位置（即超出某个文件夹的范围）搜索任何项目类型：邮件、约会、日历、便笺等。 Restrict 和 Find/FindNext 方法可以应用于特定的项目集合（请参阅 Outlook 中文件夹 class 的项目属性）。
完全支持 DASL 查询（自定义属性也可用于搜索）。您可以在 MSDN 的 Filtering 文章中阅读更多相关信息。为了提高搜索性能，如果为商店启用了即时搜索，则可以使用即时搜索关键字（请参阅商店 class 的 IsInstantSearchEnabled 属性）。
您可以随时使用搜索的停止方法停止搜索过程 class。

在 Advanced search in Outlook programmatically: C#, VB.NET 文章中阅读有关此方法的更多信息。

Answer 2

下面的代码会在TODO文件夹的所有邮件中搜索，如果主题与要搜索的字符串匹配，就会打印找到的邮件

import win32com.client
outlook = win32com.client.Dispatch("Outlook.Application").GetNamespace("MAPI")

inbox = outlook.GetDefaultFolder(6).Folders.Item("TODO")

messages = inbox.Items
    for message in messages:
        if message.subject == 'String To be Searched':
            print("Found message")

按标题在 Outlook 中查找特定邮件

Find specific mail in Outlook by title

python

outlook

win32com

com-automation