Clickable links!
Clickable links!
- Subject: Clickable links!
- From: Peter R Hawkes <email@hidden>
- Date: Mon, 28 Jan 2013 11:45:26 +0000
- Thread-topic: Clickable links!
The challenge is to send a selected email to a online reminder service which sends it back at a set time. To improve the service it would be handy for the reminder to include a clickable link to the original message. The following code achieves everything apart from the message id link is not clickable within the message. How can I ensure that the quoted id is clickable thus opening the message?
tell application "Mail"
set theSelectedMessages to selection
set the selected_message to item 1 of the theSelectedMessages
set message_id to the message id of the selected_message
set message_id to "message:<" & message_id & ">"
set the clipboard to message_id
set theForwardedMessage to forward (item 1 of theSelectedMessages) with opening window
tell theForwardedMessage
make new to recipient at end of to recipients with properties {name:"Peter", address:"email@hidden"}
end tell
activate
tell application "System Events" to keystroke "v" using {command down}
delay 1
send theForwardedMessage
end tell
_______________________________________________
Do not post admin requests to the list. They will be ignored.
AppleScript-Users mailing list (email@hidden)
Help/Unsubscribe/Update your Subscription:
Archives: http://lists.apple.com/archives/applescript-users
This email sent to email@hidden