1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| set Mon_Fichier to choose file
set Mon_Sujet to "sujet du mail"
set Mon_Content to "essai de texte"
set Ma_Signature to "Philippe"
set Mon_Destinataire to "toto@gmail.com"
tell application "Mail"
activate
set newMessage to make new outgoing message with properties {visible:true, subject:Mon_Sujet, content:Mon_Content}
set message signature of newMessage to signature Ma_Signature
tell newMessage
make new to recipient at end of to recipients with properties {name:"", address:Mon_Destinataire}
make new attachment with properties {file name:Mon_Fichier} at after the last paragraph
end tell
end tell |
Partager