tell application "SuperCard"
evaluate "line 18 of dataR1"
if the result is 8 then
evaluate "the selectedfield"
evaluate the result
else
evaluate "clipex"
end if
set c1 to the result
evaluate "line 554 of dataR2"
set o1 to the result
evaluate "line 555 of dataR2"
set a1 to the result
evaluate "line 556 of dataR2"
set s1 to the result
end tell
tell application "Mail"
set new1 to make new outgoing message with properties {subject:o1,
content:c1, sender:s1}
tell new1
make new to recipient at end of to recipients with properties
{address:a1}
end tell
send outgoing messages
end tell
_______________________________________________
Applescript_fr mailing list
Applescript_fr@???
http://listes.patpro.net/mailman/listinfo/applescript_fr
