My apologies Luther,
That last version was still not correct. I believe this is it:
script murl property prefix : "file://" as Unicode text property lpath : POSIX path of (path to library folder from user domain) on run set res to {} tell application "Mail" set sels to (get selection) repeat with i from 1 to count of sels set p to ".mbox/Messages/" set m to mailbox of item i of sels set mid to id of item i of sels tell m set n to name if (its account exists) then tell its account if (account type is not pop) then set p to ".imapmbox/Messages/" set end of res to prefix & account directory & "/" & n & p & mid & ".emlx" end tell else set c to its container set p to n & p repeat while c exists set p to c's name & "/" & p set c to c's container end repeat set end of res to prefix & lpath & "Mail/Mailboxes/" & p & mid & ".emlx" end if end tell end repeat end tell res end run end script run script murl
|