affichage des heures d'envoi des mails via AppleScript

[davdenice]

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.

[davdenice]

Non, je n'ai aucun compte toto

Le script actuel est :

Code

set MDate to (current date) - days * 1095 -- définir jour de  date de recherche
set AppleScript's text item delimiters to tab -- défini le séparateur des adresses
set heurelimite to 20 -- défini l'heure à partir de laquelle il faut lister
set monTexte to ""




tell application "Mail"
    set maListe to (every message of mailbox "INBOX.INBOX.Sent" of account id "7CBE9D99-5716-49C9-B211-1C3B282AF778" of application "Mail" whose date sent > MDate)
    repeat with unMessage in maListe
        set maDate to date sent of unMessage
        if hours of maDate ≥ heurelimite then
            set mesDestinataires to (address of recipients of unMessage) as rich text
            set monTexte to monTexte & subject of unMessage & tab & mesDestinataires & return
        end if
    end repeat
end tell
if monTexte is "" then return -- rien à enregistrer

set Fichier_Log to (((path to desktop) as text) & "emails_envoyés.txt")
try
    do shell script "touch " & (quoted form of (POSIX path of Fichier_Log))
    do shell script "echo " & (quoted form of monTexte) & " >> " & (quoted form of (POSIX path of Fichier_Log))
end try

Encore merci beaucoup pour ton aide !

Autre question :
Est-ce possible d'indiquer le jour de l'envoi du mail (lundi, mardi, mercredi etc...) + la date dans le .txt ?

Ce message a été modifié par davdenice - 24 Oct 2022, 16:21.