Script to send email with user-friendly fields

Question

I like to make a script to help a friend who is not very computer fit (old).
Working in an email programme is already challenging to him.
So I have the following script:
set theBody to "Hallo etc"
set theSubject to "Subject etc"
set theTarget to "xxx2zxy.com"
tell application "Mail"
set newMessage to make new outgoing message with properties {subject:theSubject, content:theBody}
tell newMessage
make new to recipient at end of to recipients with properties {address:theTarget}
set sender to "[email protected]"
end tell
send newMessage
end tell
and this works. Where I get stuck (lack of knowledge) is that I would like it to come up in a window with 3 boxes (one for the text, one for the subject and one for the email address). So all he has to do is write in those 3 boxes and hit OK.
Can anybody help me here?

Answer 1

Maybe something along these lines...
*set theBody to text returned of (display dialog "Enter message text here " default answer "")*
*set theSubject to text returned of (display dialog "Enter subject here " default answer "")*
*set theTarget to text returned of (display dialog "Enter recipient's email address here " default answer "")*
*tell application "Mail"*
*set newMessage to make new outgoing message with properties {subject:theSubject, content:theBody}*
*tell newMessage*
*make new to recipient at end of to recipients with properties {address:theTarget}*
*set sender to "[email protected]"*
*end tell*
*send newMessage*
*end tell*
Regards, Andrew99