Este a mi me funciona con la última versión de macOS Mojave.
He hecho algunos ajustes para usted y añadió un par de artículos al código. Usted puede necesitar ajustar un par de cosas para que se adapte mejor a sus necesidades, pero por ahora creo que el siguiente código debe poner de nuevo en la pista de la derecha:
property dialog_timeout : 30 -- set the amount of time before dialogs auto-answer.
property name_extensions : {"pdf", "doc"}
on adding folder items to this_folder after receiving added_items
set files_added to {}
set file_names to {}
tell application "Finder" to set folder_name to the name of this_folder
repeat with i from 1 to count of added_items
set this_Item to item i of added_items
tell application "Finder"
if name extension of this_Item is in name_extensions then
set end of files_added to (this_Item & linefeed)
set end of file_names to " " & name of this_Item & " "
end if
end tell
end repeat
-- find out how many new items have been placed in the folder
set the item_count to count of added_items
--create the alert string
set alert_message to ("Folder Actions Alert:" & return & return) as Unicode text
if the item_count is greater than 1 then
set alert_message to alert_message & (the item_count as text) & " New items have been added"
else
set alert_message to alert_message & "One new item has been added"
end if
if files_added is {} then
activate
display alert alert_message giving up after dialog_timeout
return
else
try
set recipientName to ""
set recipientAddress to "user1@gmail.com, user2@gmail.com"
set theSubject to "new file: " & file_names
set theContent to "¡Hello! new file added: " & linefeed & linefeed & files_added
tell application "Mail"
##Create the message
set theMessage to make new outgoing message with properties {subject:theSubject, content:theContent, visible:true}
##Set a recipient
tell theMessage
make new to recipient with properties {name:recipientName, address:recipientAddress}
##Send the Message
send
end tell
end tell
end try
activate
display alert alert_message giving up after dialog_timeout
end if
end adding folder items to
ACTUALIZACIÓN:
En esta siguiente versión de el código actualizado, he quitado todos los de la "Pantalla de Alerta de" comandos y variables. Esta versión se enviará un correo electrónico con los nombres de todos los archivos y la ruta de los archivos. También le enviará un correo electrónico a las direcciones de la lista de destinatarios, con el nombre de los archivos y la ruta de los archivos (sólo si las extensiones de archivo .pdf o .doc)
property myEmail : "fireDevelop@gmail.com" -- Replace With Your Email Address
property sendToEmailAddress : "user1@gmail.com , user2@gmail.com"
property name_extensions : {"pdf", "doc"}
on adding folder items to this_folder after receiving added_items
set files_added_filtered to {}
set file_names_filtered to {}
set files_added to {}
set file_names to {}
repeat with i from 1 to count of added_items
set this_Item to item i of added_items
tell application "Finder"
set end of files_added to (this_Item & linefeed)
set end of file_names to " " & name of this_Item & " "
if name extension of this_Item is in name_extensions then
set end of files_added_filtered to (this_Item & linefeed)
set end of file_names_filtered to " " & name of this_Item & " "
end if
end tell
end repeat
if files_added_filtered is {} then
try
set recipientName to ""
set recipientAddress to myEmail
set theSubject to "new file: " & file_names
set theContent to "¡Hello! new file added: " & linefeed & linefeed & files_added
tell application "Mail"
set theMessage to make new outgoing message with properties {subject:theSubject, content:theContent, visible:true}
tell theMessage
make new to recipient with properties {name:recipientName, address:recipientAddress}
send
end tell
end tell
end try
return
else
try
set recipientName to ""
set recipientAddress to sendToEmailAddress
set theSubject to "new file: " & file_names_filtered
set theContent to "¡Hello! new file added: " & linefeed & linefeed & files_added_filtered
tell application "Mail"
set theMessage to make new outgoing message with properties {subject:theSubject, content:theContent, visible:true}
tell theMessage
make new to recipient with properties {name:recipientName, address:recipientAddress}
send
end tell
end tell
end try
try
set recipientName to ""
set recipientAddress to myEmail
set theSubject to "new file: " & file_names
set theContent to "¡Hello! new file added: " & linefeed & linefeed & files_added
tell application "Mail"
set theMessage to make new outgoing message with properties {subject:theSubject, content:theContent, visible:true}
tell theMessage
make new to recipient with properties {name:recipientName, address:recipientAddress}
send
end tell
end tell
end try
end if
end adding folder items to
