bonsoir,
Si tu n'as pas encore résolu le problème voici le script mis à jour.
Au lancement il de demande de sélectionner les pièces jointes(sélections multiples possible)
Il crée la liste des pièces jointes, séparer par des virgules (je n'ai pas réussi à mettre des retours ligne, outlookne les prend pas en compte !).
Puis il crée le mail et l'envoi.
Pense a modifier l'adresse destinataire, le sujet, et éventuellement ajouter du texte à la liste des PJ.
[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 : "
repeat with i from 1 to nb
set nom to name of (item i of listePJ)
set listenomPJ to listenomPJ & nom & " , "
end repeat
end tell
tell application "Microsoft Outlook"
activate
set newMessage to make new outgoing message with properties {subject:"Sujet", 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]
