[futurebasic] fbList2junk

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : July 2001 : Group Archive : Group : All Groups

From: Bernie Wylde <bernie@...>
Date: Mon, 23 Jul 2001 10:49:32 +0100
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