Hello,
Im new to Applescript but really enjoying digging into it. I have run into some trouble with email alarms. I have done some research online but come up with a big zero.
Be gentle Im new to this so my script my not be super efficient. Basically it adds a new calendar and then adds important dates for reviews based on the persons start date. I need the script to add an alarm and email a reminder to an address a week before the date of the event. (the email will always stay the same no variable needed) any ideas?
Thanks Andy
--Get calendar name
display dialog "Enter name for new calendar:" default answer "my calendar"
set newName to text returned of the result
--Get calendar description
display dialog "Enter description of this calendar:" default answer "calendar description"
set cDesc to text returned of the result
--Get calendar color
display dialog "Do you want to choose a color for the calendar?" buttons {"No", "Yes"} default button 2
if the button returned of the result is "Yes" then
set theColor to choose color
else
set theColor to {46003, 46003, 46003} --med gray
end if
tell application "iCal"
activate
try
make new calendar with properties {name:newName, description:cDesc, color:theColor}
set aProblem to false
on error the error_message number the error_number
set aProblem to true
display dialog "Problem creating calendar" & return & "Error: " & the error_number & ". " & the error_message buttons {"OK"} default button 1
end try
end tell
global ABactive, ICactive
set theDate to short date string of (current date)
--event Summary
set eName to "Start Date"
--Get date
display dialog "Enter event date:" default answer (theDate as text)
set eDate to text returned of the result
--get time
set eTime to "1:00 pm"
set eStart to date (eDate & space & eTime)
set eEnd to (date (eDate & space & eTime)) + (1 * hours)
--location
set eWhere to "Apple Store Stonestown"
--check if iCal is active
tell application "System Events"
if exists application process "iCal" then
set ICactive to true
else
set ICactive to false
end if
end tell
tell application "iCal"
set newEvent to make new event at end of events of calendar newName with properties {summary:eName, start date:eStart, end date:eEnd, location:eWhere}
--if we opened iCal, we'll close it
if not ICactive then quit
end tell
--Set 30 Day IDP Date label a
set now to eStart + 30 * days
set aStart to now + 1 * minutes
set aEnd to now + 2 * minutes
set aName to "30 Day IDP"
tell application "iCal"
set newEvent to make new event at end of events of calendar newName with properties {summary:aName, start date:aStart, end date:aEnd, location:eWhere}
end tell
--Set 45 Day Follow-up Date label b
set now to eStart + 45 * days
set bStart to now + 1 * minutes
set bEnd to now + 2 * minutes
set bName to "45 Day Follow-up"
tell application "iCal"
set newEvent to make new event at end of events of calendar newName with properties {summary:bName, start date:bStart, end date:bEnd, location:eWhere}
end tell
--Set 60 Day IDP Follow-up Date label c
set now to eStart + 60 * days
set cStart to now + 1 * minutes
set cEnd to now + 2 * minutes
set cName to "60 Day IDP Follow-up"
tell application "iCal"
set newEvent to make new event at end of events of calendar newName with properties {summary:cName, start date:cStart, end date:cEnd, location:eWhere}
end tell
--Set 90 Day IDP Follow-up Date label d
set now to eStart + 90 * days
set dStart to now + 1 * minutes
set dEnd to now + 2 * minutes
set dName to "90 Day IDP Follow-up"
tell application "iCal"
set newEvent to make new event at end of events of calendar newName with properties {summary:dName, start date:dStart, end date:dEnd, location:eWhere}
end tell