The Mac 13/the-mac-13.iso/Shareware City/Comms and Networking/QuickAgent/Sample AppleScripts/sample 4

Text File | 1994-08-22 | 364 b | 14 lines | [TEXT/ToyS]

tell application "QuickAgent"
    Set QM logon "MEPSI_DRLG˜MONET˜Jeff Benjamin˜mypassword"
    set vNum to number of messages

    set vList to {}
    repeat with i from 1 to vNum
        set vTmpList to {Sender 1, Subject 1, Date 1, Time 1, Message body 1, (Enclosure Info 1) as text}
        set vList to vList & {vTmpList}
        Delete message 1
        beep
    end repeat
end tell

{vNum, vList}