Le 27 sept. 2006 à 18:26, Francis Derive a écrit :
Hello
Thanks, I didn't thaught to the get every messages issue.
Here are two versions:
-- version 1
set {laSource, laDestination} to {"zzz", "xyz"}
tell application "Mail"
set k to count of messages of mailbox laSource
if k > 0 then
repeat with myMessage in (get every message of mailbox laSource)
if year of (get date received of myMessage) = 2005 then move myMessage to mailbox laDestination
end repeat
end if
end tell
-- version 2 here, the get is not required
set {laSource, laDestination} to {"zzz", "xyz"}
tell application "Mail"
set myMessages to every message of mailbox laSource
if (count of myMessages) > 1 then
repeat with myMessage in myMessages
if year of (get date received of myMessage) = 2005 then move myMessage to mailbox laDestination
end repeat
end if
end tell