Bonjour,
après quelques recherches sur le net, voila la solution pour lister les PJ avec des retours à la ligne...
J'y ai ajouté une ligne exemple pour y inclure du texte !
[CODE]-- envoi mail avec outlook et ajoute les pièces jointes
set listePJ to choose file with prompt "Sélectionner les fichiers à envoyer" multiple selections allowed yes
set nb to count item of listePJ
tell application "Finder"
set listenomPJ to "liste des pièces jointes :" & return
repeat with i from 1 to nb
set nom to name of (item i of listePJ)
set listenomPJ to listenomPJ & nom & return
end repeat
end tell
--ligne exemple pour ajout texte
set listenomPJ to listenomPJ & return & "Veuillez trouver le résultat du travail en PJ sus nommées" & return & "Cordialement."
tell application "Microsoft Outlook"
activate
set newMessage to make new outgoing message with properties {subject:"Sujet", plain text content:listenomPJ}
tell newMessage
set toaddresslist to {"adresse_destinataire@free.fr"}
repeat with i from 1 to count toaddresslist
make new to recipient at end of to recipients with properties {email address:{address:item i of toaddresslist}}
end repeat
repeat with i from 1 to nb
make new attachment at end of attachments with properties {file:item i of listePJ}
end repeat
end tell
send newMessage
end tell[/CODE]
