hervenivon

'this procedure is largely inspired by a comment from Bujez on Novembre 2010 on this thread: 
'http://omaralzabir.com/get_email_address_of_all_users_from_all_mails_in_outlook_folder/
'Rewright needs to be done to make it recursive but it works as is with Outlook 2013 
Sub EmailExport()
'Requires reference to Microsoft Scripting Runtime
'Tools –> References –> check “Microsoft Scripting Runtime”
  Dim outApp As New Outlook.Application
  Dim mpf As Outlook.MAPIFolder
  Dim mpfSubFolder As Outlook.MAPIFolder
  Dim flds As Outlook.Folders