Script for iCal

DEVONthink Automation
1

Does anyone has a script in order to create todos in Ical directly from DevonThink? I am not practical with scripts.

Thanks in advance :smiley:

2

Hello,

I use the following script:


tell application "iCal"
		activate
		set newtodo to (make new todo at end of todos of calendar "myCalendar")
		tell newtodo
			set priority to high priority
			set summary to "myText"
		end tell
	end tell

Best regards,
Christophe

3

Thanks. It works fine! :smiley:

4

Hi,

Thank you for the script.

This opens iCal for me but doesn’t create anything. I tried when some text was selected in a new rtf in DTP and when there was nothing selected.

advice?

Any help will be appreciated.

5

Hi,

I didn’t post my entire script because there’s too much customization in it.

But you need to fill your variables first. Something like:

display dialog "New task : " default answer ""
set myText to the text returned of the result
tell application "iCal"
	activate
	set newtodo to (make new todo at end of todos of calendar "My Calendar")
	tell newtodo
		set priority to high priority
		set summary to myText
	end tell
end tell

Replace “My Calendar” by your own calendar name.
Christophe

6

Works.

thank you
:slight_smile: