Re: Way to check for duplicate emails addresses in a message?

[Paul Berkowitz]

Title: Re: Way to check for duplicate emails addresses in a message?

On 1/28/01 9:29 AM, "Allen Watson" <[EMAIL PROTECTED]> wrote:

> This would be a solution that gives the best of both worlds. I suppose that,
> if it isn't too slow, it would be a good one.


It turns out that it is too slow, for me, anyway, particularly when groups are involved. It has to do TWO AppleEvents on every single contact and group member, one of which is searching the entire Address Book for (every contact whose name is [theName]). It's not worth it for what is, as you say, just a cosmetic issue (the contact icon instead of an @ icon). The version which forgets about contact icons, but answers all your other issues including nested groups (I use a recursive handler) is super-fast. So here it is Thank you very much for your detailed response, Allen. This quick "peer review" from someone who immediately understands all the issues was very much appreciated.

Please try this version with your nested groups, etc. I'm getting a little "slap-happy" now, so please check I haven't skipped anything. Many thanks.


---------------REMOVE DUPLICATE RECIPIENTS------------

global ods

tell application "Microsoft Entourage"
    
    set theDraft to window 1
    if class of theDraft � draft window then
        beep
        display dialog "You must have your new message window [not the Address Book, a Custom View, or anything else] in the front when you run the script." buttons {"OK"} default button "OK" with icon 0
        return
    end if
    set {theTo, theCC, theBCC} to theDraft's {to recipients, CC recipients, BCC recipients}
    set {ods, AppleScript's text item delimiters} to {AppleScript's text item delimiters, {", "}}
    set {toList, ccList, bccList} to {text items of theTo, text items of theCC, text items of theBCC}
    set AppleScript's text item delimiters to ods
    
    set toList to my ResetRecipients(toList, {}, {})
    set ccList to my ResetRecipients(ccList, toList, {})
    set bccList to my ResetRecipients(bccList, ccList, toList)
    set AppleScript's text item delimiters to {", "}
    set {window 1's to recipients, window 1's CC recipients, window 1's BCC recipients} to {"" & toList, "" & ccList, "" & bccList}
    set AppleScript's text item delimiters to ods
    
end tell


on ResetRecipients(theList, previousList, anteriorList)
    
    tell application "Microsoft Entourage"
        
        set newList to {}
        if theList � {""} then
            repeat with i from 1 to (count theList)
                set aRecip to item i of theList
                if aRecip does not contain "@" then -- must be group
                    
                    set newList to my ProcessGroup(aRecip, theList, previousList, anteriorList, newList)
                    
                else -- it's a contact
                    
                    if ({aRecip} is not in newList) and ({aRecip} is not in previousList) and ({aRecip} is not in anteriorList) then set end of newList to aRecip -- use @ format
                    
                end if
            end repeat
            
        else
            set newList to {""}
        end if
    end tell
    return newList
        
end ResetRecipients


to ProcessGroup(aRecip, theList, previousList, anteriorList, newList)
    
    
    tell application "Microsoft Entourage"
        
        try
            set theGroup to group aRecip
        on error -- if actually an artificial group member without email address
            return
        end try
        set theEntries to content of every group entry of theGroup
        
        repeat with j from 1 to (count theEntries)
            
            set anEntry to item j of theEntries
            
            repeat 1 times -- for doing next repeat after nested groups
                
                try
                    set {dName, eAddress} to {display name, address} of anEntry
                    if eAddress = "" then
                        set newList to my ProcessGroup(dName, theList, previousList, anteriorList, newList) -- recursive
                        exit repeat -- the 1 times repeat, go on to next group entry
                    end if
                    if dName � "" then
                        if dName starts with "\"" then set dName to text 2 thru -2 of dName -- equivalent to display name without quotes
                        set nameAddress to dName & " <" & eAddress & ">"
                        if ({nameAddress} is not in newList) and ({nameAddress} is not in previousList) and ({nameAddress} is not in anteriorList) then set end of newList to nameAddress -- use @ format
                        
                    else -- no display name, address only
                        if ({eAddress} is not in newList) and ({eAddress} is not in previousList) and ({eAddress} is not in anteriorList) then set end of newList to eAddress -- will have @ format
                    end if
                on error
                    exit repeat -- the 1 times  repeat, move on to next group entry
                end try
            end repeat -- the 1 times repeat
            
        end repeat
        
    end tell
    
    return newList
    
end ProcessGroup


-----------------------END SCRIPT----------------------------


--
Paul Berkowitz