從Excel提取Outlook 2007郵件信息到Excel-文件夾/主題

Question

我想將具有特定主題部分的郵件主題提取到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

Answer 1

您是否嘗試過更換..

sir = Split(olMail.Body, vbCrLf)

至

sir = Split(olMail.Subject, vbCrLf)