Hello,
J'espère que tu vas bien, merci pour ton retour, je viens de tester avec le code mais j'ai le message d'erreur ci-dessous.
Apparemment c'est par rapport à l'alias comme tu peux le voir.
Aurais-tu une solution à cette problématique stp ?
Merci d'avance pour ta réponse
Bonne soirée,
[CODE]
tell application "Finder"
set chemin to ((path to home folder) & "documents:script mail:liste.numbers") as string
open chemin
activate
delay 3
end tell
tell application "Numbers"
tell table 1 of sheet 1 of document "liste.numbers" -- voir document numbers
set CR to (ASCII character 13) -- initialise un retour ligne
set blabla to value of cell "B1" -- récupère le texte de la cellule E1
set leslignes to 2 -- initialise le numéro de la première ligne des clients
set nbmessage to 0
repeat
if nbmessage = 50 then exit repeat -- stop si 50 messages
repeat
set celtest to "B" & leslignes as string
set letest to value of cell celtest -- controle si mail déja envoyé
if letest = "X" then
set leslignes to leslignes + 1
else
exit repeat
end if
end repeat
set celmail to "A" & leslignes as string
set lemail to value of cell celmail as string -- recupère le nom
if lemail = "missing value" then -- vérifie si la derniere ligne
exit repeat
end if
tell application "Mail"
set contenu to "Bonjour, " & CR & CR & blabla -- prépare le contenu du mail
set newMessage to make new outgoing message with properties {subject:"test", content:contenu} -- prépare le mail
tell newMessage
set toaddresslist to {lemail} -- prépare l'adressed'envoi
make new to recipient at end of to recipients with properties {address:toaddresslist} -- envoi le mail
--Ajout pièces jointes
set PieceJointe_list to {"documents:script mail:presentation.pdf"}
repeat with nbpj from 1 to count PieceJointe_list
set mapj to item nbpj of PieceJointe_list as alias
tell content of newMessage to make new attachment with properties {file name:mapj} at after last paragraph
end repeat
--Fin de l'ajout
end tell
send newMessage
set nbmessage to nbmessage + 1 --compte le nombre de message envoyé
end tell
tell application "Numbers"
tell table 1 of sheet 1 of document "liste.numbers"
set value of cell celtest to "X" -- renseigne numbers mail envoyé
end tell
end tell
set leslignes to leslignes + 1 -- prépare numéro ligne suivante
end repeat
end tell
save front document
quit
end tell
[/CODE]
