我想将具有特定主题部分的邮件主题提取到 Excel 工作表（来自 Excel）。到目前为止，我只能提取主体，而不是主题，并且代码搜索主题的部分没有找到任何东西。您能否就如何查找我的电子邮件（不同的 getdefaultfolder？）并提取主题提供任何建议？
提前致谢
Sub Work_with_Outlook()
Set olApp = CreateObject("Outlook.Application")
Dim olNs As Outlook.Namespace
Dim Fldr As Outlook.MAPIFolder
Dim olMail As Variant
Dim sir() As String
Set olApp = New Outlook.Application
Set olNs = olApp.GetNamespace("MAPI")
Set Fldr = olNs.GetDefaultFolder(olFolderInbox).Folders("Test")
Set myTasks = Fldr.Items
Set olMail = myTasks.Find("[Subject] = ""*Test*"")
If Not (olMail Is Nothing) Then
sir = Split(olMail.Body, vbCrLf)
For i = 1 To UBound(sir)
ActiveWorkbook.Sheets("Sheet1").Cells(i, 1).Value = sir(i)
Next i
End If
End Sub