I sometimes want to create an event in iCal from a date that appears on a web page I'm viewing in Safari. Using Automator, I created a Service to do just that.
Here's how:
on run {input, parameters}
set eventDate to date (input as text)
tell application "Safari"
set currentTab to current tab of first window
set eventSummary to name of currentTab
set eventUrl to URL of currentTab
end tell
tell application "iCal"
activate
tell calendar "Home"
set newEvent to make new event at end of events with properties {summary:eventSummary, url:eventUrl, start date:eventDate, end date:eventDate + 30 * minutes}
show newEvent
end tell
end tell
end runMac OS X Hints
http://hints.macworld.com/article.php?story=20090921113605560