Re: 2 import/synch questions

[Paul Berkowitz]

Title: Re: 2 import/synch questions

On 6/9/01 6:16 PM, I wrote:

> select the group (don't open it) and run this script:
>
> -----------------------De-Contact Group Members-------------


Actually, just in case you have already changed or added a few group members who aren't contacts, use this version  the script or it will error and stop:

-----------------------De-Contact Group Members-------------

tell application "Microsoft Entourage"
    try
        set theSelection to (get selection)
        set thegroup to item 1 of theSelection
        if class of thegroup � group or (count theSelection) > 1 then error number -128
    on error
        beep
        display dialog "Select just one group, then run the script." buttons {"OK"} default button "OK" with icon 0
    end try
    set theEntries to content of every group entry of thegroup
    repeat with i from 1 to (count theEntries)
        set {eAddress, dName} to {address, display name} of item i of theEntries
        try
            set theContact to item 1 of (find eAddress)
            delete theContact
            if dName � "" then set dName to dName & " "
            make new group entry at thegroup with properties {content:dName & "<" & eAddress & ">"}
        end try
    end repeat
    
end tell

-------------------end script------------------

--
Paul Berkowitz