Re: Adding birthdays to calendar

[Barry Wainwright]

Title: Re: Adding birthdays to calendar

On 3/11/04 6:16 am, "LazK" <[EMAIL PROTECTED]> wrote:

> Having moved from Palm desktop (a program ahead of its time in many ways
> when compared to e-rage), I was wondering if there was any quick way (even
> an A-script?) to add all birthdays in my contact book directly to the
> calendar without going through the laborious process of opening each contact
> and adding each birthday as an event. Yawn.
>
> Palm DT or rather Claris Organizer, had a number of automatic or one-click
> shortcuts for adding contact info to calendars that the MS programmers don't
> seem to have thought of. And when will we able to print envelopes directly
> from e-rage info?
>

<http://tinyurl.com/5zoj8>

tell application "Microsoft Entourage"
    set theContacts to every contact whose birthday is not ""
    repeat with aContact in theContacts
        set theBirthday to date (get birthday of aContact)
        set monthDay to day of theBirthday
        set monthNumber to month of theBirthday as integer
        set recurrenceString to "FREQ=YEARLY;INTERVAL=1;BYMONTHDAY=" & monthDay & ";BYMONTH=" & monthNumber & ";WKST=SU"
        set theName to first name of aContact & " " & last name of aContact
        set eventLabel to "Birthday - " & theName
        make new event with properties {subject:eventLabel, start time:theBirthday, all day event:true, recurring:true, recurrence:recurrenceString}
    end repeat
end tell

--
Barry Wainwright
Microsoft MVP (see http://mvp.support.microsoft.com for details)
Seen the All-New Entourage Help Pages? - Check them out:
        <http://www.entourage.mvps.org/>