python win32com：在 Outlook 中删除多封电子邮件

Question

我需要通过 win32com 模块从 python 中删除 Outlook 中的多封电子邮件。

我知道有一个 VBA 方法 MailItem.Delete() 通过 COM 可用于 win32com 并且它有效；但是当删除多于一封电子邮件时它非常非常慢，因为一个人必须按顺序删除电子邮件，即循环遍历邮件的 MailItem 集合。

有没有办法一次删除选定的邮件项集合，例如 MailItemCollection.DeleteAll()？

另外，如果上述方法是不可能的；是否有可能通过多线程方法删除许多电子邮件，即将mailItems 的集合划分为4 个子集；有4个线程在上面运行吗？

我认为，由于我可以通过其 GUI 非常快速地删除 Outlook 中的多封电子邮件，因此必须有一种方法可以通过 COM API 执行相同的操作。

Answer 1

不在 OOM 中 - MailItem.Delete 或 Items.Remove(Index) 是你所得到的。

在扩展 MAPI 级别（C++ 或 Delphi，但不是 Python）上，您可以使用 IMAPIFolder.DeleteMessages 删除多条消息（它采用条目 ID 列表）。或者您可以使用IMAPIFolder.EmptyFolder（删除文件夹中的所有消息）。

如果使用Redemption（任何语言；我是它的作者）是一个选项，您可以使用RDOFolder2.EmptyFolder 或RDOFolder.Items.RemoveMultiple。如果您将 Outlook 的 MAPIFolder 对象作为参数传递，则可以从 RDOSession.GetRDOObjectFromOutlookObject 检索 RDOFolder。

Answer 2

在@Dimitry 的一个很好的答案之上，我将添加一个对您可能很重要的评论：如果您在迭代项目时开始从项目中删除，可能会发生奇怪的事情。 例如在我的系统上使用以下 Python 代码：

for mail in folder.Items:
    mail.Delete()

还有

for index, mail in enumerate(folder.Items, 1):
    folder.Remove(index)

两者都只删除了folder! 中的一半项目！原因似乎是 Items 在内部使用一系列索引来提供迭代器，因此每次删除一个元素时，列表的尾部都会移动一个...

要删除文件夹中的所有项目，请尝试：

for i in range(len(folder.Items)):
    folder.Remove(1)

如果您需要按特定条件过滤，请考虑先收集 EntryID，然后删除搜索 ID：

ids = []
for i in range(len(folder.Items), 1):
    if to_be_deleted(folder.Items[index]):
        ids.append(index)
for id in ids:
    outlook.GetEntryByID(id).Delete()

不过，我想它的性能会更糟：c

Answer 3

上面 Dedalus 的回答很好。想做一个更简洁的代码版本：

import win32com.client

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

# Select main Inbox
inbox = outlook.GetDefaultFolder(6)
messages = inbox.Items

# Delete all messages from a specific sender
sender = 'myname@abc.com'
try:
    for message in messages:
        try:
            s = message.sender
            s = str(s)
            if s == sender:
                 message.Delete()
        except:
            pass
except:
    pass

您可能不需要两次“尝试”，但我发现将脚本应用于冗长且频繁使用的收件箱时会更加稳定。通常我将此与将 message = inbox.Items 限制在一周内的脚本结合使用，因此它不会处理整个收件箱。

Answer 4

我错过了什么吗？ Application 和 NameSpace 对象似乎都没有 GetEntryByID 方法，尽管 Dedalus 指出的其余部分是正确的。

命名空间对象有一个 GetItemFromID 方法，而 MailItem 对象有一个 EntryID 属性，只要它们不被重新组织到不同的文件夹中，它将唯一地标识它们。

文档：https://docs.microsoft.com/en-us/office/vba/outlook/how-to/items-folders-and-stores/working-with-entryids-and-storeids

我的完整解决方案：

import win32com.client

outlook = win32com.client.gencache.EnsureDispatch("Outlook.Application")

folders = outlook.GetNamespace("MAPI")

inbox= folders.GetDefaultFolder(6)

messages=inbox.Items

email_ids = []

folder_id = inbox.StoreID 

# Here create a function to isolate/exclude. Below is just an example of filtering by a subject line.

email_subjects = ['Subj1','Subj2','Subj3']

for i in range(len(messages)):

    if any(header in inbox.Items[i].Subject for header in email_subjects):

        email_ids.append(inbox.Items[i].EntryID)

for id in email_ids:
    folders.GetItemFromID(id, folder_id).Delete()

Answer 5

对我来说，它通过反向迭代项目来工作。

旧：

for mail in folder.Items:
    if 'whatever' in mail.Subject: # just a condition (optional)
        mail.Delete()

新代码：

for mail in reversed(folder.Items): # just tried deleting Items in reverse order
    if 'whatever' in mail.Subject: # just a condition (optional)
        mail.Delete()

希望这对某人有所帮助。

Answer 6

我在本地 Outlook 中实现了另一种解决方案，通过直接使用 VBA 代码或 Outlook 过滤规则将电子邮件项目从.inbox 文件夹移动到已删除项目文件夹或存档文件夹。 这样，我每周只需手动清空一次已删除的项目文件夹（当然这个周期性步骤也可以编程）。 我观察到这种策略比使用代码删除每个项目更有效（你提到了 internal.indexes 问题）。