Even without access to the workbook to test, there are several issues that would prevent it from working.I would need access to the workbook to test further.

reportstoragefolder = "F:" is not a valid path it should be
reportstoragefolder = "F:\"
and would need to exist.

In the segment 
ActiveSheet.ExportAsFixedFormat Type:=x1TypePDF, Filename:= _
               fullfilename, Quality:=x1QualityStandard, _
               IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
you have two syntax errors. The Type is XLTypePDF not X1TypePDF i.e. a letter and not a number. Similarly x1QualityStandard should be xLQualityStandard.
You should create the Outlook application before the loop and not for each element of the loop. Better still use the code from http://www.rondebruin.nl/win/s1/outlook/openclose.htm to start Outlook