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

我想將Excel工作表（Excel）中具有特定主題部分的郵件主題提取出來。到目前爲止，我只能提取身體，而不是主題，代碼搜索主題的部分找不到任何東西。您能否給我一些關於如何找到我的電子郵件（不同的getdefaultfolder？）並提取主題的建議？從Excel中提取Outlook 2007郵件信息到Excel - 文件夾/主題

在此先感謝

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

來源

2013-08-21 chrnit

你有沒有試圖改變..

sir = Split(olMail.Body, vbCrLf)

到

sir = Split(olMail.Subject, vbCrLf)

來源

2013-08-21 13:36:30 Vasim

我敢肯定，將工作，謝謝。但由於首先沒有找到具有指定主題的郵件，我無法嘗試您的建議。那麼在搜索問題上的任何建議？ – chrnit

我想可能是關於 'Set olMail = myTasks.Find（「[Subject] =」「* Test *」「）'中使用的通配符。 – chrnit

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

回答

相關問題