opop = createobject("COM.PopX") opop.host = "mail.yourmailserver.com" opop.logonname = "yourloginname" opop.logonpassword = "yourPassword" ? "Connecting to pop server..." opop.connect ? opop.statestring ? "Retrieving messages..." if opop.inbox.count > 0 opop.retrieveMessages(opop.inbox) && pass a folder as a parameter ? opop.lasterror ? opop.lasterrorstring ? "Finished retrieving,",opop.statestring for each omsg in opop.inbox ? "---------------------- Next Message --------------------" ? " From:",omsg.from.text ? " CC:",omsg.cc ? "Subject:",omsg.subject ? "Message Text:" ? omsg.body next omsg ? "deleting messages now..." for each omsg in opop.inbox opop.delete(omsg) next omsg endif opop.disconnect ? opop.statestringHope it helps,