im making a program that reads you your new mail
so far i have
on clicked theObject
tell application "Mail"
check for new mail
set num to 1 as integer
repeat
set newmail to the name of the message number num of inbox as string
display dialog newmail & return & "Read this mail?" buttons {"Yes", "No", "Quit Reading Mail"} default button 1
set num to num + 1
end repeat
end tell
end clicked
it doesnt work can someone fix that and finish it for me?
this is the first time i have ever tried to script mail.
thanks