>How can I save outlook messages as text files

You could try this:

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 Sub

Have 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.

I'm assuming you wish to save all the emails in the current outlook folder as text in the folder on your disk. You could always handle where it's saved in the filename.

Hope this helps.