Apple, AppleScript, AppleScript Studio, AppleTalk, AppleWorks, ColorSync, Finder, HyperCard, iBook, iLife, iMac, iWork, Keynote, Mac, Macintosh, Mac OS, Pages, Panther, PowerBook, Power Mac, Power Macintosh, QuickTime, Safari, Tiger, Xcode sont des marques déposées par Apple Computer, Inc., enregistrées aux Etats-Unis et dans les autres pays. Liste officielle

De : (Liste AppleScript francophone) <applescript_fr@xxxxxxx.net>
À : "(Liste AppleScript francophone)" <applescript_fr@xxxxxxx.net>
Date : samedi 7 avril 2001 7:00
Objet : applescript_fr Digest #165

        Liste AppleScript francophone Digest #165

 1) Header
    by SeguS <wirinum@xxxxxxx.fr>
 2) Re: Header
    by patpro <patpro@xxxxxxx.net>
 3) [AS]Lire un message
    by Jean-Pierre <jp.godefroy@xxxxxxx.fr>

De : SeguS <wirinum@xxxxxxx.fr>
Date : Fri, 06 Apr 2001 19:28:08 +0200
Objet : [AS] Header

bonjour à tous :-)
Dico outlook Express: class messages -> property headers
==================================================
je desirerai recupérer un item particulier dans le "header" des msgs
pour par ex faire un listing des e-mailer utilisés

exemples de formulations dans le source:
User-Agent: Microsoft Outlook Express Macintosh Edition - 5.0 (1513)
x-mailer:Claris Emailer 2000, Millenium Edition

merci pour vos idées

serge
--

ce script catalogue les headers... mais en entier

[SCRIPT]
property folder_to_save : {"Liste AppleScript", "Liste HyperCard"}
property the_data : ""

on run
    set the_data to ""
    set a_folder to (choose from list folder_to_save) -- as string
    if a_folder is not false then
        tell application "Outlook Express" to set theMessages to the¬
messages of folder (a_folder as string)
        repeat with theMsg in theMessages
            ProcessMsg(theMsg)
        end repeat
        -- ecriture du resultat dans un fichier
        set file_path to (path to desktop as string) & "Mon_Fichier"
        set flag_permis to false
        repeat until flag_permis
            try
                set file_ref to open for access file file_path with write¬
permission
                set flag_permis to true
            on error
                close access file file_path
            end try
        end repeat
        set eof_position to get eof file_ref
        write (the_data & return) to file file_path starting¬
   at eof_position + 1
        close access file_ref
    end if
end run

on ProcessMsg(theMsg)
    tell application "Outlook Express" to set the_data to the_data &¬
    return & return & the_data & the headers of theMsg
end ProcessMsg
[/SCRIPT]






De : patpro <patpro@xxxxxxx.net>
Date : Fri, 06 Apr 2001 20:09:31 +0200
Objet : [AS] Re: Header

le 6/04/01 19:28, SeguS à wirinum@xxxxxxx.fr a écrit :

> bonjour à tous :-)
> Dico outlook Express: class messages -> property headers
> ==================================================
> je desirerai recupérer un item particulier dans le "header" des msgs
> pour par ex faire un listing des e-mailer utilisés
> 
> exemples de formulations dans le source:
> User-Agent: Microsoft Outlook Express Macintosh Edition - 5.0 (1513)
> x-mailer:Claris Emailer 2000, Millenium Edition
> 
> merci pour vos idées
> 

essaye un truc comme ca :

tell application "Outlook Express"
    set theMsg to selection
    set the_data to headers of item 1 of theMsg
    set MaListe to every paragraph of the_data
    repeat with i in MaListe
        if i contains "User-Agent" then
            set MonMailer to i as string
            return MonMailer
        end if
    end repeat
end tell


patpro
-- 
 ()    Campagne du ruban ascii...
 /\    Contre les mails en html, les vcards et les blaireaux






De : Jean-Pierre <jp.godefroy@xxxxxxx.fr>
Date : Fri, 6 Apr 2001 20:17:03 +0100
Objet : [AS] [AS]Lire un message

Bonsoir à toutes et tous,

D'abord merci à Leclaire Thomas et Daniel Varlet pour leurs renseignements
sur les possibilités d'affectation de script aux boutons et/ou via OSAMenu.

Le sujet du jour sera :
Comment récupérer le contenu d'une fenêtre, par exemple un message de Eudora,
et l'affecter au presse-papier ?
Le point dur du problème n'est pas l'affectation au presse-papier,
AutoType devrait y arriver (quoique certains parlent de conflit si l'on utilise
simultanément OSAMenu et AutoType), mais comment pointer sur la fenêtre du
message c'est à dire celle qui est au premier plan.

Tous conseils seront les bienvenus.

Cordialement,

J-P G