>>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.
Thanks
But the code
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
Gives me a nesting error
Specialist in Advertising, Marketing, especially Direct Marketing
I run courses in Business Management and Marketing