Outlook macro runs through 250 iterations before failing with error

Question

Description:

I have an Outlook macro that loops through selected emails in a folder and writes down some info to a .csv file. It works perfectly up unti

Answer 1

To solve this problem I used the following rules:

the "objOutlook.ActiveExplorer" has limited range (250 objects).

but object create for each email is unlimited.

for exemple:

sub Over250()

  Total = objOutlook.ActiveExplorer.Selection.Count

  For X = 1 to Total

    Set objOutlook = CreateObject("Outlook.Application")
    Set ObjExplorer = objOutlook.ActiveExplorer     

   '**** DO YOU THINGS****

    Set objOutlook = Nothing
    Set ObjExplorer = Nothing

  Next X

end sub