Rebol [ title: "Little Email Client" date: 29-june-2008 file: %little-email-client.r purpose: { A very small graphical email client that can be used to send and receive messages. Taken from the tutorial at http://musiclessonz.com/rebol_tutorial.html } ] m: system/schemes/default q: system/schemes/pop view layout [ style f field u: f "username" p: f "password" s: f "smtp.address" o: f "pop.address" btn bold "Save Server Settings" [ m/user: u/text m/pass: p/text m/host: s/text q/host: o/text ] tab e: f "%user--website--com" j: f "Subject" t: area btn bold "SEND" [ send/subject to-email e/text t/text j/text alert "Sent" ] tab y: f "%your--email--somesite--com" btn bold "READ" [foreach i read to-url join "pop://" y/text [ask i]] ]