service { format Word = plus ( union(range('A', 'z'), range('0', '9')) ); format Email = concat(Word, "@", Word, star(concat(".", Word))); html EnterMail =

Send an email

    To:      
    From:    
    Subject:

Send Cancel

; void email(string To, string From, string Subject, string Content) { sendmail(relation { tuple { name="To", value=To }, tuple { name="From", value=From }, tuple { name="Subject", value=Subject } }, Content); } session SendEmail() { bool send; string To, From, Subject, Content; show EnterMail receive [To, From, Subject, Content, send=continue]; if (send) { email(To, From, Subject, Content); exit

Mail sent!

; } else { exit

Mail not sent

; } } }