vba - 我可以遍历文件夹(包括子文件夹)中的所有 Outlook 电子邮件吗？

Question

我有一个文件夹，其中包含许多电子邮件和子文件夹。在这些子文件夹中有更多的电子邮件。

我想编写一些 VBA，它将遍历某个文件夹中的所有电子邮件，包括任何子文件夹中的电子邮件。这个想法是提取SenderEmailAddress和 SenderName从每封电子邮件中，并用它做一些事情。

我已经尝试将文件夹导出为仅包含这两个字段的 CSV 文件，虽然这有效，但它不支持导出子文件夹中保存的电子邮件。因此需要编写一些 VBA。

在我重新发明轮子之前，有没有人有任何代码片段或站点链接，给定文件夹名称，显示如何获取 MailItem该文件夹和后续子文件夹中的每封电子邮件的对象？

Answer 1

像这样的东西...

 Private Sub processFolder(ByVal oParent As Outlook.MAPIFolder)

        Dim oFolder As Outlook.MAPIFolder
        Dim oMail As Outlook.MailItem

        For Each oMail In oParent.Items

        'Get your data here ...

        Next

        If (oParent.Folders.Count > 0) Then
            For Each oFolder In oParent.Folders
                processFolder oFolder
            Next
        End If
End Sub