REBOL [
Title: "GSAT Email Testing Utility"
File: %t-email.r
Date: 17-Jan-2000
Purpose: {
An Email Dignostics Utility to send a test email
to a user with formatted Name and automatic email
address insertion }
]
emailalias_init: [
prin "Enter the user: "
emailalias: input
]
username_init: [
prin "Enter the user's first name: "
username: input
]
emailbody_init: [
username "," newline
"This is test email from GSAT Technical Support." newline
"Please reply to this email once it is received." newline
newline
"Thankyou." newline
newline
"GSAT Technical Support" newline
"Ph: " newline
"email: "
]
sendemail_init: [
append emailalias "@gsat.edu.au"
send [ emailalias ] emailbody_init
]
print "Email Application Start!"
do emailalias_init
do username_init
do sendemail_init