Out of memory error exporting Outlook to XLS with VBA

Question

I\'m trying to adapt the code provided in this article

The top-level procdure looks like this:

Sub ExportMain()
ExportToExcel "destination_folder_path