Re: Confusion over version

[Allen Watson]

Title: Re: Confusion over version

On or near 2/1/02 6:27 PM, jud spencer at [EMAIL PROTECTED] observed:

> You could always use a rule to check to see which version of Entourage the
> message was sent with and do something like change the category of the
> message. Not sure if we need another list, but if people feel it is needed,
> we could.

Hey, great idea! The rule, that is. I set up two categories, "E2201" and "EvX" with different colors. Then, I stored this script and assigned it with MLM to all the messages incoming to the Entourage list. Now the messages show by color what version of Entourage was used.

tell application "Microsoft Entourage"
    activate
    set theMess to item 1 of (get current messages)
    set theHeaders to headers of theMess
    set headerType to "User-Agent: "
    if headerType is not in theHeaders then set headerType to "x-mailer: "
    if headerType is not in theHeaders then set headerType to "Message-id: "
    set theHeaders to the paragraphs of theHeaders
    set theHeader to ""
    repeat with aHeader in theHeaders
        if aHeader starts with headerType then
            set theHeader to contents of aHeader
            exit repeat
        end if
    end repeat
    set oldDelims to AppleScript's text item delimiters
    set AppleScript's text item delimiters to {"/"}
    set versionDigit to first character of (text item 2 of theHeader)
    set AppleScript's text item delimiters to oldDelims
    set temp to category of theMess
    if versionDigit is "9" then
        if category "E2001" is not in temp then set temp to {category "E2001"} & temp
    else
        if category "EvX" is not in temp then set temp to {category "EvX"} & temp
    end if
    set category of theMess to temp
end tell

--
Microsoft MVP for Entourage/OE/Word (Only a volunteer)
Allen Watson <[EMAIL PROTECTED]> XNS name: =Allen Watson
Applescripts for Outlook Express and Entourage: <http://homepage.mac.com/allenwatson/>