The following script, copied from MacUser, files all my e-mails correctly,
except for fb list mails, which it puts in the 'Junk?' folder!
Why do you think this is?
Cheers
Bernie
on fileMsg(myFolder, myMsg)
tell application "Outlook Express"
move myMsg to folder myFolder
end tell
end fileMsg
on checkFolder(myFolder)
tell application "Outlook Express"
if not (exists folder myFolder) then
set newFolder to make new folder
set name of newFolder to myFolder
end if
end tell
end checkFolder
tell application "Outlook Express"
tell in box folder
repeat until (count of incoming messages) is 0
set theName to display name of sender of first message
set theAge to round ((time sent of first message) - (current
date)) / -3600
if theName is "" then set theName to "Junk?"
if read status of first message is untouched then set theName to
"current"
if theAge is less than 48 then set theName to "current"
my checkFolder(theName)
my fileMsg(theName, first message)
end repeat
end tell
if exists folder "current" then
tell folder "current"
repeat until (count of messages) is 0
my fileMsg("InBox", first message)
end repeat
end tell
end if
end tell