require 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

; } } }