is there a way to do it in bulk? I noticed at one point they all showed up in
the calendar but somehow they are gone now. I have over 600 contacts and it
would be a pain in the butt to do everyone individually. I also want it to do
it automatically for future contacts.
-- Add All Birthdays to Calendar v1.0 (2008-03-20)
-- an applescript by Barry Wainwright <mailto:
[email protected]>
-- Adds a yearly recurring event for all contacts with a birthday defined
-- This script released under a Creative Commons Attribution, NonCommercial,
-- ShareAlike 2.0 England & Wales License.
-- see <
http://creativecommons.org/licenses/by-nc-sa/2.0/uk/>
-- for full details
tell application "Microsoft Entourage"
set theContacts to every contact whose birthday is not equal to ""
repeat with acontact in theContacts
set oldDelims to AppleScript's text item delimiters
set AppleScript's text item delimiters to {" "}
tell acontact
set theName to {last name, first name}
set theDate to birthday
tell me to set theDate to date theDate
make new event with properties {subject:"Birthday:
" & theName, start time:theDate, end time:theDate, recurring:true,
recurrence:"FREQ=YEARLY;INTERVAL=1;WKST=SU", all day event:true, remind
time:7200}
end tell
set AppleScript's text item delimiters to oldDelims
end repeat
end tell
If you receive this through a newsreader the formatting will be correct. If
you try to copy from the web forum, you will probably have to clean up line
endings.
If you are not familiar with a newsreader, Entourage's basic newsreader
already has the Microsoft News server included. All you do is subscribe to
the newsgroups you want. See this article for help subscribing using the
Entourage newsreader:
<
http://tinyurl.com/beds97>
