REBOL [Title: "Little Email Client"]
    view layout [
        h1 "Send Email:"
	    btn "Server settings" [
            system/schemes/default/host: request-text/title "SMTP Server:"
            system/schemes/pop/host:     request-text/title "POP Server:"
            system/schemes/default/user: request-text/title "SMTP User Name:"
            system/schemes/default/pass: request-text/title "SMTP Password:"
            system/user/email: to-email request-text/title "Your Email Address:"
        ]
        address: field "recipient@website.com"
        subject: field "Subject"
        body: area "Body"
        btn "Send" [
            send/subject to-email address/text body/text subject/text
            alert "Message Sent."
        ]
        h1 "Read Email:"
        mailbox: field "pop://user:pass@website.com"
        btn "Read" [
            editor read to-url mailbox/text
        ]
    ]