Я могу выполнить итерации по всем электронным письмам Outlook в папке включая подпапки?
У меня есть папка, которая содержит много электронных писем и подпапок. В тех подпапках больше электронных писем.
Я хотел бы записать некоторый VBA, который выполнит итерации по всем электронным письмам в определенной папке, включая электронные письма в любой из подпапок. Идея состоит в том, чтобы извлечь SenderEmailAddress и SenderName из каждой электронной почты и делают что-то с ним.
Я попытался просто экспортировать папку как CSV только с этими двумя полями и пока это работает, это не поддерживает электронные письма экспорта, сохраненные в подпапках. Следовательно потребность записать некоторый VBA.
Прежде чем я пойду, изобретая велосипед, делает у любого есть любые фрагменты кода или ссылки на сайты, который, учитывая имя папки, показывает, как получить a MailItem объект для каждой электронной почты в той папке и последующих подпапках?
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