| Hi,
I have been using this script for almost three years with Eudora. I have switched to "Mail" and want this feature back. Is there any hope, to resurrect this script?
Right now it crashes at the "(get its id)" statement.
local messageFound, mref, MsgCount, newMsg, wholeText
tell application "Mail" set messageFound to false if exists of front message then tell front message set mref to a reference to message id (get its id) of (get its mailbox) set wholeText to whole text end tell set newMsg to make new message at end of mailbox 2 tell newMsg set field "to" to "uce-ftc.gov" set field "subject" to "SPAM/VIRUS Report" set body to wholeText queue end tell move message mref to end of mailbox "Trash" end if -- get next unread message in "In" mailbox set MsgCount to count messages in mailbox "In" repeat with i from 1 to MsgCount if status of message i of mailbox "In" = unread then set messageFound to true open message i of mailbox "In" exit repeat end if end repeat if not messageFound then -- if no in messages, get next unread message in "Trash" mailbox set MsgCount to count messages in mailbox "Trash" repeat with i from 1 to MsgCount if status of message i of mailbox "Trash" = unread then open message i of mailbox "Trash" exit repeat end if end repeat end if end tell
Tia, |