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