如果使用python在电子邮件正文中存在关键字，如何检索outlook中的第一封电子邮件？

Question

如果使用 python 的电子邮件正文中存在某个关键字，我将不胜感激，了解如何将弹出的第一封电子邮件的电子邮件正文导出到 Excel 文件中。

到目前为止我已经成功访问​​了子文件夹，下面是我的代码。

import win32com.client
outlook=win32com.client.Dispatch('outlook.application')
mapi=outlook.GetNamespace("MAPI")
for account in mapi.Accounts:
    #Passing in the account name
    print(account.DeliveryStore.DisplayName)
    
inbox=mapi.GetDefaultFolder(6).Folders['Email']
messages=inbox.Items
received_dt=datetime.now()-timedelta(days=10)
received_dt=received_dt.strftime('%m/%d/%Y %H:%M %p')
messages = messages.Restrict("[ReceivedTime] >= '" + received_dt + "'")
message=messages.GetLast()
body_content=message.body
print(body_content)

Answer 1

Items.Sort 需要至少一个参数（字符串） - 要排序的属性名称（请参阅 https://learn.microsoft.com/en-us/office/vba/api/outlook.items.sort）。然后，您可以使用 Items.Find() 搜索 PR_BODY MAPI 属性：

messages=messages.sort('ReceivedTime', true)
message=messages.Find('@SQL="http://schemas.microsoft.com/mapi/proptag/0x1000001F" LIKE \'%Test%\' ')

Answer 2

无需使用 Restrict 方法，然后调用 GetLast 方法。因此，可以使用 Find 方法重写以下代码：

messages=inbox.Items
received_dt=datetime.now()-timedelta(days=10)
received_dt=received_dt.strftime('%m/%d/%Y %H:%M %p')
messages = messages.Restrict("[ReceivedTime] >= '" + received_dt + "'")

首先，您需要向搜索字符串（VBA）添加附加条件：

messages=inbox.Items
messages.Sort "[ReceivedTime]", False
'Create DASL query for Body using content indexing phrase match for 'office' 
 filter = "@SQL=" + "\""
            + "urn:schemas:httpmail:textdescription" + "\""
            + " like '%office%'";
firstMessage = messages.Find(filter)

您可能会找到 搜索对于文件夹中的项目正文中的短语文章很有帮助。