rebol [
  title: "email form"
  author: "vpavlu"
  date: 23-dec-2002/12:29
  home: http://plain.at/vpavlu
]

view layout [
  across
  label italic font [ color: brick ] "To:"
  tab
  inp-to: field
  return
  label italic font [ color: brick ] "Subject:"
  tab
  inp-subj: field
  return
  inp-text: area
  return
  button "Send" [
    foreach addr parse inp-to/text ",;" [
      send to-email addr rejoin [inp-subj/text newline inp-text/text]
    ]
    quit
  ]
]