上次使用Applescript从Mail.app发送的电子邮件

Question

Is there any way to get the last sent e-mail from Mail? It can only access the top level sent mailbox.

tell application "Mail"
    set mabo to the sent mailbox
    set selected to messages of mabo
    return properties of item 1 of selected
end tell

The reason I need this is that I want to get information about the e-mail that is beeing written. My thought was to get the frontmost window.

tell application "Mail"
    set the win to windows
    set theMessage to item 1 of win
    get name of theMessage
end tell

It is working for the name but I do not get the sender or receipient. Any ideas?

Answer 1

As said, you just have to loop through each account, and each time, compare the date of the email with previous email date from other account. here is the script : (I also add a test in case the sent box of one account is empty !)

tell application "Mail"
set LastDate to date "samedi 1 janvier 2000 00:00:00"
set {myLastMail, myAccount, myDate} to {"", "", LastDate}
repeat with CAccount in every account
    if (count of every message in mailbox "Sent Messages" of CAccount) > 0 then
        set X to first message of mailbox "Sent Messages" of CAccount
        set MDate to date sent of X
        if MDate > LastDate then
            set LastDate to MDate
            set {myLastMail, myAccount, myDate} to {X, CAccount, LastDate}
        end if
    end if
end repeat
-- the last email from all your accounts is the variables  Mylastemail, in account MyAccount and at the date MyDate
end tell

Answer 2

Unfortunately the messages in the sent mailbox are unsorted in the AppleScript array.

You can use this code, but it could take a while depending on the number of messages in the mailbox (ca. 30 sec for 1000 messages).

tell application "Mail"
    set sentMessages to messages of sent mailbox
    set lastestMessage to item 1 of sentMessages
    set latestDate to date received of lastestMessage

    repeat with aMessage in sentMessages
        if date received of contents of aMessage comes after latestDate then
            copy contents of aMessage to lastestMessage
            set latestDate to date received of lastestMessage
        end if
    end repeat
    tell lastestMessage
        set theSender to sender
        set theRecipient to 1st recipient
    end tell
end tell

Answer 3

The code bellow uses to work for me in all my Mail versions up to 4.6 (Snow Leopard). To be tested on later versions. Strangely, "last message" gives the oldest message in the mailbox and the "first message" gives the last message sent or received ! if you have many accounts, just loop on accounts names :

tell application "Mail"
-- to get the last message sent
set X to first message of mailbox "Sent Messages" of account "your_account_name"
-- to get the oldest message received in receiving box
set X to last message of mailbox "INBOX" of account "your_account_name"
open X --if want to see it
end tell