Hi Goran,

lcPath="c:\temp\" && Output folder

objSession = CreateObject("MAPI.Session")
objSession.Logon("Your MAPI profil")

loFolder=loSession.InfoStores.Item("Your root Folder (Inbox, etc.)").RootFolder

loMessage = loFolder.Messages.GetFirst()

FOR lii=1 TO loMessage.Attachments.Count
    loAtt=loMessage.Attachments.Item(lii)
    loAtt.WriteToFile(lcPath+loAtt.Name)
NEXT
objSession.Logoff()

MartinJ

>Hi, all
>
>I have lots of email messages in one outlook folder. Every message has 2 attachments (2 .txt files). I need to save all attachments in some folder from VIsualFoxPro (7,8), or is it maybe better solution to use some export from outlook?
>
>TIA
>Goran