Fixade det med lite pysslande. Fungerade utmärkt efter lite letande i biblioteket efter olika funktioner.
(*
Applescript för att ändra ärenderaden i Mail.app
----------------------------------------------------------------
Ändrar ärenderaden i markerade mail från EPiDesk
Originalkod av Ola [at] intelligentmammals [punkt] se, 2006-07
Modifierad av gabriel [punkt] heijmer [at] cloudnine [punkt] se, 2008-07
*)
on run
-- Först, plocka fram en lista på markerade meddelanden i Mail.
-- Här saknas felkontroll om det inte finns några markerade medd.
tell application "Mail"
set selected_messages_list to selection
end tell
-- Loopa igenom de markerade meddelandena och gör detta med varje.
repeat with message_Item in selected_messages_list
-- Hämta meddelandet ärenderad, innehåll och sändare och
-- lagra i varsin variabel
tell application "Mail"
set msg_subject to subject of message_Item
set msg_content to content of message_Item
set msg_sender to sender of message_Item
end tell
-- Sätt ihop ny ärenderad genom en subrutin
-- Första variabeln är befintlig ärenderad.
-- Andra variabeln är innehållet.
-- Tredje variabeln är avsändaren.
set msg_subject to replace_chars(msg_subject, msg_content, msg_sender)
-- Sätt den nya ärenderaden på meddelandet
tell application "Mail"
set subject of message_Item to msg_subject
end tell
end repeat
end run
on replace_chars(msg_subject, msg_content, msg_sender)
-- Hämta ärendenumret från meddelandets första rad, ord 3
set case_id to word 3 of msg_content
-- Sätt samman alla strängar till den nya ärenderaden
set new_subject to msg_subject & ": " & case_id & " " & msg_sender
return new_subject
end replace_chars
Vet inte om det är snyggaste lösningen men den fungerar. Enda problemet nu är att jag måste göra om det varje gång Mail syncar med Exchange... :-/
/Gabriel
