Applescript, skicka mail och radera

Varje meddelande har även ett ID. Koll längst ner på denna sida för en lista med properties.

Arkivera email till FileMaker

Använd det för att skicka kommandot delete.

Detta startar mail om det inte är igång
tell application "Mail"
activate
end tell

Detta lagrar undan om mail är igång och efteråt så avslutas mail om det startes.

tell application "System Events"
set MailRunningCount to count (every process whose creator type is "emal")
end tell

tell application "Mail"
activate

-- Koden för att skicka mailet passa bra här:

-- Om Mail inte var igång, så avslutas det nu.
if MailRunningCount = 0
quit
end if

end tell

Så hur tog jag reda på det här då? Jo, det finns två program som är bra att känna till när man håller på med Applescript, så öppna ordlistorna för dessa och lattja lite med dem.

Jag öppnade ordlistan för (efter att ha googlat lite) "System Events" och sökte och provade lite, du kan göra samma sak genom att skapa ett nytt fönster och skriv detta i det:

tell application "System Events"

end tell

Mellan de två raderna kan du sedan skriva: get every application process , sedan köra och och då får du något som liknar detta i resultatfönstret: {application process "loginwindow" of application "System Events", application process "Dock" of application "System Events", application process "Finder" of application "System Events", application process "iTunesHelper" of application "System Events" ....

För att testa något nytt kan du söka fram "process" under Process suite" i ordlistan så ser du lite av syntaxen och vilka properties som en process har, tex "creator type", så kopiera en snutt från resultatet ovan och sätt två -- före raden som redan finns där, så att den inte körs längre och lägg till denna rad efteråt:

tell application "System Events"
-- get every application process
get creator type of process "Mail"
end tell

Resultatet kan du sedan använda i ett count-kommando, som du ser ovan.

(De andra programmen som är bra att ha koll på är "Standard Additions" och "URL Access Scripting", den första innehåller tex syntaxen för att ställa frågor till användaren i en dialog-ruta).

Nämnde jag att varje mail har ett ID och du kan referera till mailet genom ID't, och du kan radera ett mail genom att använda dess ID, som i delete message ID. Nämnde jag att ett mail har ett ID?

Vill du ha någon hjälp får du berätta VAD som inte fungerar, vad du provat osv, så vi som försöker hjälpa inte slösar bort vår tid.

Ok, nu har jag tagit mig tid att starta Mail, öppna ordlistan och experimenterat lite för att skapa ett script som skapar ett meddelande, skickar det och raderar det efteråt, så här ser det ut.

tell application "Mail"
activate
set this_text to "Tjosan, här är ett meddelade skapat via Applescript."
set sender_text to "[email protected]"
set subject_text to "Testar med Applescript och delete"
set this_message to make new outgoing message at end of outgoing messages with properties {content:this_text, sender:sender_text, subject:subject_text, visible:true}

tell this_message
make new to recipient at end of to recipients with properties {address:"[email protected]"}
set this_message_id to id of this_message
send this_message
delete
end tell


end tell

Detta funkar:

tell application "Mail"
activate
set sender_text to "[email protected]"
set subject_text to "Detta meddelande är otroligt nog redan raderat från skickade meddelanden"
set this_text to "Här är ett meddelade skapat via Applescript, skickat och raderat."
set this_message to make new outgoing message at end of outgoing messages with properties {content:this_text, sender:sender_text, subject:subject_text, visible:true}

tell this_message
make new to recipient at end of to recipients with properties {address:"[email protected]"}
send this_message
-- Från denna punkt så finns inte meddelandet längre i outgoing messages, det betyder att referensen this_message är inaktuell.
end tell

-- Vänta tills meddelandet är skickat
repeat until background activity count = 0
delay 2 -- vänta i två sekunder, innan man kollar igen.
end repeat

-- Meddelandet ligger nu i Sent Items och det är det nyaste meddelandet
-- Vilken box som skickade meddelanden hamnar i varierar beroende på om kontot är IMAP eller POP och respektive inställningar för kontot och förstås för Mail i sig. Det går att kolla namn på boxar, vilka konton som finns och vilka boxar som finns i respektive rader med sådana här rader:

-- Returnerar alla konton som i sin tur innehåller mailboxar/mappar:
-- get every account

-- Returnerar alla mailboxar/mappar som finns i ett visst konto:
-- get every mailbox of account "Ola Andersson"

-- Returnerar alla meddelanden som finns i en viss mailbox/mapp:
-- get every message of mailbox "Skickat" of account "Ola Andersson"

-- Ger dig datum,klockslag på nyaste meddelandet i denna mapp,
-- (du kan även läsa av tex id respektive message id, eller sender, subject, content mm.):
-- get date sent of first message of mailbox "Sent Messages" of account "Ola Andersson"

-- Du kan filtrera ut om du vet dess subject genom något som detta:
-- set the_Messages to every message of mailbox "Sent messages" of account "Ola Andersson" whose subject is subject_text
-- Sedan kan du loopa igenom dessa med:
-- repeat with this_Message in the_Messages
-- (gör något)
-- end repeat

-- Eller bara radera det meddelade du just skickade
delay 3 -- Vänta lite till så att mailboxen uppdateras.
delete first message of mailbox "Sent Messages" of account "Ola Andersson"

end tell