-- créer un script en collant ça dans l'éditeur de script, puis
-- le placer dans le dossier "Scripts" de la "Bibliothèque" de l'utilisateur courant.
-- Se lance directement par le menu AppleScript du Finder, ou par raccourci clavier
-- On peut certainement beaucoup l'améliorer, car je ne suis pas très doué.
tell application "Microsoft Entourage"
activate
set curWindow to front window
if class of curWindow = draft window then
set curAccount to account of curWindow
-- on ajoute un en-tête additionnel :
set additional headers of curAccount to "Reply-To: " & "<
[email protected]>"
ignoring application responses
send curWindow
end ignoring
my Timer(15) -- Durée à (éventuellement) adapter pour laisser l'envoi se faire.
-- avant de supprimer (tous) les en-têtes additionnels :
set additional headers of curAccount to ""
else
display dialog "Il faut qu'un message soit ouvert, avec un destinataire valide, comme fenêtre de premier plan dans Entourage !" with icon stop buttons {"OK"} default button {"OK"} giving up after 30
end if
end tell
on Timer(ThatMuch)
delay ThatMuch
return
end Timer