-- envoi mail avec PJ des fichiers AAAAMM dans /Users/mon nom/Library/Mobile Documents/com~apple~CloudDocs/1-Sauvegarde Philippe/01-MAISONS SCCV/Nom de la structure 1/Facture
tell application "Finder"
set Chemin to (path to documents folder as text) -- chemin pour récup nom users
set sauv to AppleScript's text item delimiters --sauvegarder la variable delimiteur
set AppleScript's text item delimiters to {":"} --construit le chemin jusqu'a mobile documents
set elements to text items of Chemin
set Chemin to (items 1 thru -3 of elements) & "library:Mobile Documents:" as string -- chemin au format texte du dossier à explorer
set Chemin to Chemin as alias -- chemin au format mac
set AppleScript's text item delimiters to sauv --restaurer la variable delimiteur
display dialog "Saisir la date au format AAAAMM" default answer "" -- demande saisi date
set ladate to text returned of result
set lemois to text items 5 thru 6 of ladate as string -- recup le mois
set lannee to text items 1 thru 4 of ladate as string -- recup l annee
my inspecter(Chemin, ladate, lemois, lannee)
end tell
on inspecter(un_dossier, ladate, lemois, lannee)
tell application "Finder"
set CR to (ASCII character 13) -- initialise un retour ligne -- défini le retour ligne pour préparer le contenu du mail
set toaddresslist to "[email protected]" -- adresse mail ou envoyer le mail
-- traitement des fichiers :
set les_fichiers to files of un_dossier
repeat with chaque_fichier in les_fichiers
-- traitement d'un fichier
set lefichier to chaque_fichier
set nom to name of chaque_fichier --récupère le nom du fichier
set debutnom to characters 1 thru 6 of nom as string
if debutnom = ladate then -- si debut du nom egale ladate
set lechemin to chaque_fichier as string -- recup le chemin du fichier en texte
set sauv to AppleScript's text item delimiters --sauvegarder la variable delimiteur
set AppleScript's text item delimiters to {":"} --récupère la partie avant le dernier "."
set elements to text items of lechemin
set structure to (item -3 of elements) as string -- recup le nom de la structure
set AppleScript's text item delimiters to sauv --restaurer la variable delimiteur
--display dialog structure
set objet to "TVA " & ladate & " " & structure -- prepare le contenu objet
set contenu to "Bonjour, " & CR & CR & "veuillez trouver en PJ les factures concernant la " & structure & " pour le mois de " & lemois & "/" & lannee -- prépare le contenu du mail
tell application "Mail"
set newMessage to make new outgoing message with properties {subject:objet, content:contenu} -- prépare le mail
tell newMessage
make new to recipient at end of to recipients with properties {address:toaddresslist} -- envoi le mail
set lapiecejointe to chaque_fichier as alias
tell content of newMessage to make new attachment with properties {file name:lapiecejointe} at after last paragraph
end tell
delay 1
send newMessage
end tell
end if
end repeat
-- traitement des dossiers :
set les_dossiers to folders of un_dossier
repeat with chaque_dossier in les_dossiers
-- traitement d'un dossier
my inspecter(chaque_dossier, ladate, lemois, lannee)
end repeat
end tell
end inspecter
tell application "Finder"
(display dialog ("waouou ... Ca y est c'est fait !") buttons {"Salut !"})
end tell
