Mail set TO field and send question...

Question

Hello,
I need a little AppleScript help with Mail. Let's say I have an open outgoing mail message and I want to set the "to" field. How do I do this? Remember, this is with an existing open outgoing message, not an outgoing message I'm creating via AppleScript. Actually, I'm creating the message with the redirect AppleScript command, which is supposed to return an outgoing message, but it's broke and doesn't.
I know I can use System Events to post keystrokes, but there has to be a better way.
Also, is there a way to "Send" the message via AppleScipt? I know I can use the UI commands to select the menu item or push the button, but is there a way to send without relying on the GUI?
Thanks,
Allan

Answer 1

Ummm, the script seems to do nothing. I would think it would create a new message and address it to [email protected], but it just does nothing.
When I'm looking for is help to address an already open new message. For example:
Open Mail
Create a new message
Switch to Script Editor
Run a script that addresses the new message
Spcifically what I'm doing is trying to redirect a message. Here's how aI have to do it now:
tell application "Mail"
activate
set theRedirectRecipient to "[email protected]"
set theSanityCheckNumber to 30
set theCount to 0
set selection_list to selection
repeat with one_item in selection_list
set theID to (message id of one_item)
-- skip it if it was already redirected
set theHeaders to the name of the header of one_item
if theHeaders does not contain "resent-to" then
redirect one_item with opening window
delay 1 -- mail can get confused, so slow down a little
tell application "System Events"
tell process "Mail"
keystroke theRedirectRecipient
end tell
end tell
--delay 1 -- mail can get confused, so slow down a little
-- send the mesage
tell me to do_menu("Mail", "Message", "Send")
--delay 1 -- mail can get confused, so slow down a little
-- see if we should continue
-- if mail or this script does something screwy, we can abort here
set theCount to theCount + 1
if theCount mod theSanityCheckNumber is 0 then
tell me
activate
display dialog "We've redirected " & theCount & " of " & (count of items in selection_list) & ". Continue?"
end tell
tell application "Mail" to activate
end if
end if
end repeat
end tell
on domenu(appname, menu_name, menu_item)
try
-- bring the target application to the front
tell application app_name
activate
end tell
tell application "System Events"
tell process app_name
tell menu bar 1
tell menu bar item menu_name
tell menu menu_name
click menu item menu_item
end tell
end tell
end tell
end tell
end tell
return true
on error error_message
return false
end try
end do_menu
2.7 GHz Dual Mac OS X (10.4.8)