On Sat, Sep 17, 20057:47 PM, the following words from Bill Lane
[EMAIL PROTECTED], emerged from a plethora of SPAM ...
>Hello all--
>
>Can anyone suggest a source of an AppleScript which would take a selected
>message and move it to a particular mail folder?
>
>I'm used to doing this with Mac Mail (using QuicKeys assigned to the Move
>Message menu) and I can't find a simple way to do this in PowerMail.
>
>Any suggestions?
>
>BILL.
>
I have a few folders that I regularly move messages to (or move a
duplicate of the message) using AppleScripts & QuicKeys buttons. A simple
way to move messages to a different folder is:
<Begin AppleScript>
tell application "PowerMail 5.1"
set the msgList to the current messages
if the msgList is {} then
beep
else
repeat with oneMsg in the msgList
set the storage of the oneMsg to message container "Updates"
end repeat
end if
end tell
<End AppleScript>
If you want to put a duplicate of the message in another folder, you can
use something like:
<Begin AppleScript>
tell application "PowerMail 5.1"
set the msgList to the current messages
repeat with msg in the msgList
set src to source of msg
set tr to time received of msg
set sts to status of msg
set acc to account of msg
set lbl to label of msg
set str to storage of msg
set the dup to make new message with properties {source:src, time
received:tr, status:sts, account:acc, label:lbl, storage:str}
set the storage of the dup to message container "SendToPalm"
end repeat
end tell
<End AppleScript>
HTH
cheshirekat
--
"I never before knew the full value of trees. Under them I breakfast,
dine, write, read and receive my company."
- Thomas Jefferson
