AppleScript et l'envoi d'un courriel par Mail [Résolu]

Je planchais sur un problème analogue: composer un message automatiquement, y annexer des fichiers et l'envoyer automatiquement.

Pour votre problème, il suffit de redéfinir les variables leCorps, leSujet, expediteur, destinataire. De même, les fichiers à annexer sont définis dans les variables cibleUnPOSIX, cibleDeuxPOSIX. Attention, il s'agit des noms de fichiers avec le chemin d'accès complet sous la forme : "Disque dur:Utilisateurs:Nana:Documents:Images:leFichier.jpg" (à adapter à votre configuration).

La commande pour l'envoi automatique est "send nouveauMessage". Bien entendu, "nouveauMessage" est un simple identifiant qui peut être nommé autrement, mais à tous les endroits!

Le code :

tell application "Mail"
set leCorps to "Bonjour," & return & return & "Veuillez trouver en annexe vos listes d'élèves." & return & return & "Bien à vous." & return & return & "La Direction"
set nouveauMessage to make new outgoing message with properties {subject:leSujet, content:leCorps & return & return}
tell nouveauMessage
set visible to true
make new to recipient at end of to recipients with properties {name:expediteur, address:destinataire}
tell content
make new attachment with properties {file name:(cibleUnPOSIX as alias)} at after the last paragraph
make new attachment with properties {file name:(cibleDeuxPOSIX as alias)} at after the last paragraph
end tell
send nouveauMessage
end tell
end tell

Voici le code Applescript que j'ai utilisé, mais le processus n'est pas complet, car j'ai monté le processus à l'aide d'Automator. Si vous avez un truc à me donner pour que je puisse vous faire parvenir le fichier Automator, n'hésitez pas (lien de téléchargement? je ne sais pas comment procéder, à moins d'avoir votre courriel...).

Voici mon AppleScript :

tell application "Mail"
set newMessage to (make new outgoing message at end of outgoing messages with properties {subject:"Objet", content:"message"})
tell newMessage
make new recipient at end of to recipients with properties {address:"courriel1"}
make new cc recipient at beginning of cc recipients with properties {address:"courriel2"}
make new attachment with properties {file name:"/Users/annelou/desktop/image.png"} at after the last paragraph
send newMessage
delay 45
quit
end tell
end tell

Si j'ai un courriel, il me fera plaisir de vous envoyer l'ensemble du processus.

Également, voici le script que j'ai rédigé pour fermer toutes les applications et éteindre l'ordinateur sans danger, au cas où il vous serait utile (il me convient tel quel, mais il ne fonctionne peut-être pas comme il le faudrait avec tous les logiciels, comme ceux d'Adobe ou de Microsoft):

tell application "Finder"
close every window
end tell
tell application "Finder"
set Mes_Appli to name of (every application process whose visible is true)
end tell
repeat with m in Mes_Appli
tell application m to quit saving no
end repeat
tell application "Finder"
shut down
end tell

J'espère que cela vous aidera...