export entoruage calendar

[Federico_82]

ho bisogno di esportare tutti gli enventi di entoruage in un unico file ics con AS.

tell application "Finder"

set percorso to (path to me) as Unicode text

set percorsook to POSIX path of percorso

set dest to percorsook & "fede.ics"

end tell

tell application "Microsoft Entourage"

set theAccount to Exchange account 1

tell theAccount

set dest to every calendar

end tell

end tell

ovvimaente non va, idee?

[nico96]

Postare nella sezione giusta per esempio

[woz]

Postare nella sezione giusta per esempio

[Federico_82]

Questo script esporta gli eventi del calendario di un account exchange selezionato in un file csv.

set Errore to 0

tell application "Microsoft Entourage"

set cont to 1

set n to ((text returned) of (display dialog "Quanti Accounts Exchange sono configurati? " default answer "1" buttons {"Cancel", "Accetta"} default button "Accetta")) as integer

set cmd to "rm -rf /.list.txt"

do shell script cmd

repeat until cont is greater than n

try

set variabile to name of Exchange account cont

on error

display dialog "Attenzione hai sbagliato il numero di accounts Exchange configurati"

set Errore to 1

exit repeat

end try

set cmd1 to "echo \""

set cmd to cmd1 & variabile & " \"" & ">>" & "/.list.txt"

do shell script cmd

set cont to cont + 1

end repeat

end tell

if Errore is not equal to 1 then

set nl to ASCII character 10

set myList to (read file ":.list.txt" using delimiter {nl})

set accountName to ((choose from list myList with prompt "Scegli uno di questi accounts" default items " ") as string)

tell application "Microsoft Entourage"

set exchangeAccounts to Exchange accounts

repeat with theAccount in exchangeAccounts

set Nome to name of theAccount as text

set Nome to Nome & " "

if Nome is equal to accountName then

set theTargetAccount to theAccount

exit repeat

end if

end repeat

set item_path to (choose folder with prompt "Seleziona dove salvare il file") as string

set percorso to POSIX path of item_path

set cmd to "rm -rf " & percorso & "export.csv"

try

do shell script cmd

end try

set cmd to "touch " & percorso & "export.csv"

do shell script cmd

set the_file to item_path & "export.csv"

set eventList to events of calendars of theTargetAccount

set eventList to first item of eventList

set file_content to (open for access the_file with write permission)

repeat with theEvent in eventList

set var_ogg to subject of theEvent as text

set datainizio to start time of theEvent as date

set datafine to end time of theEvent as date

set variabile to var_ogg & ";" & datainizio & ";" & datafine & nl

write variabile to file_content

end repeat

close access file_content

display dialog "File generato con successo. CBRE | EC ® Modena IT "

end tell

end if