![]() |
Bienvenue invité ( Connexion | Inscription )
![]() |
![]()
Message
#1
|
|
![]() Adepte de Macbidouille ![]() Groupe : Membres Messages : 130 Inscrit : 21 Jan 2007 Membre no 78 760 ![]() |
Bonjour,
Je cherche un script qui pourrait enregistrer tous les destinataires et les objets de mails écrits après 20h00 dans un fichiers .txt Je bidouille un peu Applescript depuis peu, à part démarrer l'application Mail, je ne sais pas faire grand chose... Merci pour votre aide. -------------------- Ancien matériel possedé : MacBook noir Core 2 Duo 2 gHz RAM 4GB HD 500GB, MacBook blanc Core 2 Duo 2,2 gHz RAM 4GB SSD 128GB, iPod Mini Alu 4GB, iPhone 3G Black 16GB, Elgato EyeTV, Elgato Turbo.264, iPhone 4 16GB , Phone 4S 16GB, iPhone SE 32GB, HD externe LaCie 120GB.
Actuellement toujours chez : MacBook Air M1 8GB RAM 256GB SSD gris sidéral, iPad 9 64 GB gris sidéral, iPhone 11 64GB jaune, Apple Watch SE 2020, Apple TV 4K, SSD externe Crucial 1TB. |
|
|
![]() |
![]()
Message
#2
|
|
Adepte de Macbidouille ![]() Groupe : Membres Messages : 184 Inscrit : 15 Mar 2008 Lieu : Lorraine Membre no 110 156 ![]() |
Bonjour,
Si J'ai bien compris tu veux extraire les éléments des mails qui sont dans ta boite d'envoie et qui ont été envoyés après 20 heure. Donc tu ouvres mail, dans ta boite d'envoi tu sélectionnes tous les mails puis tu lances ce script, il crée sur le bureau un fichier texte du nom de "les mails apres 20 heure.txt" contenant les infos (1 ligne par mail). Il te met un message lorsqu'il a terminé. Dis moi si cela te convient . Code tell application "Mail" to if running then
repeat with tMsg in (get selection) set Ladate to the (date received of tMsg) as rich text --date du mail envoi ou recu set heure to characters -8 thru -7 of Ladate as string if heure > 19 then set objet to (subject of tMsg) --objet du mail envoi ou recu set adresse to {address of recipient of tMsg} as string --adresse mail destinataire si boite envoi set aqui to (name of recipient of tMsg) as string --nom destinatairer si boite envoi if aqui = "missing value" then set aqui to "?" set expediteur to (sender of tMsg) as string --expediteur si boite recu ton adresse si boite envoi tell application "Finder" set lelog to open for access ((path to desktop folder as text) & "les mails apres 20 heure.txt") as text with write permission write "Mail envoyé à : " & aqui & " Adresse mail : " & adresse & " Objet : " & objet & " le : " & Ladate & return to lelog starting at eof close access lelog end tell end if end repeat end if tell application "Finder" activate (display dialog ("waouou ... Ca y est c'est fait !") buttons {"Salut !"}) end tell Ce message a été modifié par Zeltron54 - 22 Oct 2022, 08:13. -------------------- Imac 27 I7 Fusion drive fin 2013 Ram 8Go Mac OS X (10.14.6)
MacBook Pro 15 pouces mi-2012 8Go Ram Mac OS X (10.14.6) Imac 24 M3 2023 Ram 24Go macOS Sequoia 15.6 |
|
|
![]() ![]() |
Nous sommes le : 1st August 2025 - 07:00 |