Bonsoir,
Il te faut construire ton message dans une variable envoi l'envoi.
1- Tu initialises la variable MessageEntier à
"Bonjour,
Les fiches suivantes ont été crées:
"
" au début du script
2- tu mets: juste avant Tell application mail
set MessageEntier to MessageEntier & Message_2 & CR
End repeat
3- tu modifies:
set LeMessage to make new outgoing message with properties {visible:true, subject:theSubject, content:Message_1 & " " & Message_2 & " " & myDate & " à " & myTime & "."}
en
set LeMessage to make new outgoing message with properties {visible:true, subject:theSubject, content:MessageMessageEntier & " " & myDate & " à " & myTime & "."}
4- Tu supprimes le End repeat de la fin.
tu devrais obtenir ça:
set monFichier to "/Users/Antoine/Desktop/Programme LBC Local/Livres.txt"
open for access monFichier -- ouvre ce fichier en lecture
set vartoto to read monFichier -- lit le fichier et le met dans la variable vartoto
close access monFichier -- ferme le fichier
--display dialog vartoto -- affiche la variable texte integral du fichier
Set MessageEntier to "Bonjour,
Les fiches suivantes ont été crées:
"
set CR to (ASCII character 13) -- initialise la variable CR avec un retour chariot.
set AppleScript's text item delimiters to "############
" -- défini le délimiteur de fin de livre avec 12 # + 1 retour chariot
set NBLivre to (count of text item of vartoto) -- compte le nombre de livres trouvé
--display dialog NBLivre -- affiche le nombre de livres
repeat with j from 1 to NBLivre -- boucle avec nombre de livre dans j
-- met les 3 variables à vide
set vartoto1 to ""
set vartoto2 to ""
set vartoto3 to ""
set lelivre to text item j of vartoto as string -- récupère la totalité du livre j dans la variable
set NB to count of paragraph of lelivre --récupère le nombre de lignes du livre j
set vartoto1 to paragraph 1 of lelivre as string -- récupère la ligne 1
set vartoto2 to paragraph 2 of lelivre as string --récupère la ligne 2
repeat with i from 3 to NB -- boucle avec le nombre de ligne du livre dans la variable i de la troisième à la fin
set varligne to paragraph i of lelivre as string --récupère de la ligne 3 à la ligne x du livre j en remettant les retours chariot de fin de ligne
set vartoto3 to vartoto3 & CR & varligne -- reconstruit la variable vartoto3
end repeat
set Message_2 to vartoto1
set MessageEntier to MessageEntier & Message_2 & CR
End repeat
tell application "Mail"
set myDate to date string of (current date)
set myTime to time string of (current date)
set theSubject to "Créations de fiches livres"
set theAddress to "
[email protected]" -- the receiver
set theSignatureName to "Sig" -- the signature name
set LeMessage to make new outgoing message with properties {visible:true, subject:theSubject, content:MessageEntier & " " & myDate & " à " & myTime & "."}
tell LeMessage to make new to recipient at end of every to recipient with properties {address:theAddress}
set message signature of LeMessage to signature theSignatureName
--send LeMessage
end tell
