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.

[PBell]

Une idée, juste comme ça, pourquoi ne pas supprimer l'écriture en csv et mettre directement les données dans une feuille Excel ??!

Tu supprimes dans le script tout ce qui est après la ligne qui enregistre en csv:

CODE

if monTexte is "" then return -- rien à enregistrer

et tu remplaces par les lignes ci-dessous qui ouvrent Excel, créent un fichier Excel avec le résultat directement dans les colonnes !!

CODE

set the clipboard to monTexte
tell application "Microsoft Excel"
    set monDoc to make new workbook -- create new workbook
    tell active sheet of monDoc to paste special range "A1"
end tell

Désolé, je n'y avais pas pensé plus tôt

[davdenice]

Une idée, juste comme ça, pourquoi ne pas supprimer l'écriture en csv et mettre directement les données dans une feuille Excel ??!

Tu supprimes dans le script tout ce qui est après la ligne qui enregistre en csv:

Code

if monTexte is "" then return -- rien à enregistrer

et tu remplaces par les lignes ci-dessous qui ouvrent Excel, créent un fichier Excel avec le résultat directement dans les colonnes !!

Code

set the clipboard to monTexte
tell application "Microsoft Excel"
    set monDoc to make new workbook -- create new workbook
    tell active sheet of monDoc to paste special range "A1"
end tell

Désolé, je n'y avais pas pensé plus tôt

Bonsoir, et merci pour ta contribution

J'ai ajouté ton morceau de code, ce qui donne :

Code

set MDate to (current date) - days * 1095 -- défini hier comme 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 in sent mailbox whose date sent > MDate)
    repeat with unMessage in maListe
        set maDate to date sent of unMessage
        if hours of maDate ≥ 20 then
            set mesDestinataires to (address of recipients of unMessage) as rich text
            set monTexte to monTexte & tab & maDate & tab & subject of unMessage & tab & mesDestinataires & tab & return
        end if
    end repeat
end tell
if monTexte is "" then return -- rien à enregistrer

set the clipboard to monTexte
tell application "Microsoft Excel"
    set monDoc to make new workbook -- create new workbook
    tell active sheet of monDoc to paste special range "A1"
end tell

Ca ouvre bien une feuille Excel, mais elle est vierge