Update ComposeEmail.scpt