o = createobject("outlook.application") For i = 1 To o.activeexplorer.currentfolder.Items.Count try o.activeexplorer.currentfolder.Items(i).saveas("Filename" + str(i) + ".txt") catch end try Next i End SubHave not tried the exact code in vfp, but it's translated from outlook vba that does work. I'm assuming the saveas method works as tamar indicated.