Re: Missing criteria in Find for Contacts?

[Paul Berkowitz]

Title: Re: Missing criteria in Find for Contacts?

On 10/23/00 11:59 PM, "Allen Watson" <[EMAIL PROTECTED]> wrote:

> I hope someone can tell me I am wrong, but it appears that marking contacts
> with a "flagged" status is useless, because there appears to be no way to
> "find" flagged contacts. (Except clicking on the flag column to sort by
> flag, and then scrolling to where the flagged records are.) There should be
> a "status is flagged" option in the Find criteria, but there is not.


You're right, but there's a workaround: make a new category called "Flagged". Add the "Flagged" category to these contacts. Then you can find them in a custom view or advanced find. It's slightly more tedious to drop or change this category than to simply unflag, of course. But you could have a script that sets or unsets the Flagged category to flagged and unflagged contacts. Select one or more contacts, and use this script to toggle their "Flagged" category according to whether or not they are flagged:

--------TOGGLE FLAGGED CATEGORY---------------


tell application "Microsoft Entourage"
    
    try
        set theSelection to the selection -- might be nothing selected
        if class of theSelection � list then error -128
        if class of item 1 of theSelection � contact then error -128
    on error
        beep
        display dialog "You need to select a contact in the Address Book." buttons {"OK"} default button "OK" with icon 0
        return
    end try
    
    try
        set theCat to first category whose name is "Flagged" -- needs this syntax so as not to error
    on error
        beep
        display dialog "This script only works if you have a \"Flagged\" category." buttons {"OK"} default button "OK" with icon 0
        return
    end try
    repeat with theCtc in theSelection
        if flagged of theCtc is true then
            set ctcCategories to category of theCtc
            if ctcCategories does not contain {theCat} then
                set category of theCtc to (ctcCategories & {theCat})
            end if
        else
            set newCategories to {}
            repeat with i from 1 to (count ctcCategories)
                set theCategory to item i of ctcCategories
                if name of theCategory � "Flagged" then
                    set end of newCategories to theCategory
                end if
            end repeat
            set category of theCtc to newCategories
        end if
    end repeat
end tell
------------------ end script---------------------------

--
Paul Berkowitz