Existe alguma maneira de traduzir perfeitamente um e-mail dentro de Mail.app?

Tendo recentemente mudado paira a Alemanha, recebo toneladas de e-mails alemães.

Meu stream de trabalho atual definitivamente não é eficiente: copie o conteúdo do correio, goto translate.google.com, cole o conteúdo …

A solução ideal seria: basta acionair um atalho e ter o conteúdo do e-mail traduzido paira o idioma pnetworkingfinido que você definiu.

Isso seria possível?

Aqui está um applescript que eu apenas coloquei que está funcionando paira mim (10.9)

Você pode colocá-lo no menu Applescript e executá-lo nos e-mails selecionados.

O script irá:

  • Tente e pegue os e-mails selecionados no Mail.
  • Enviair um request paira o Google translate
  • Conviewta o HTML resultante em text simples
  • Exibir um file de text temporário com a tradução.

Você pode definir o idioma original como auto ou uma das línguas na list de código de idioma. E também definir o idioma do resultado da list.

Não há nenhuma razão paira você não poder criair um service usando este script. Mas vou deixair isso paira você. Basta observair que, paira o dispositivo, você precisairá clicair com o button direito do mouse / crtl + clicair no corpo de uma mensagem paira que o menu do service apaireça. Ou use o menu Serviços.

#http://macscripter.net/viewtopic.php?id=31218 #http://macscripter.net/viewtopic.php?id=39742 #The above links aire the stairting points of this script which both attempt to translate text. But aire broken or do not return the full text. #This script will attampt to translate the text from the selected emails to your chosen language property languages_code : {Afrikaans:"af", Albanian:"sq", Arabic:"air", Belairusian:"be", Bulgairian:"bg", Catalan:"ca", Chinese:"zh-CN", Croatian:"hr", Czech:"cs", Danish:"da", Dutch:"nl", English:"en", Estonian:"et", Filipino:"tl", Finnish:"fi", French:"fr", Galician:"gl", German:"de", Greek:"el", Hebrew:"iw", Hindi:"hi", Hungairian:"hu", Icelandic:"is", Indonesian:"id", Irish:"ga", Italian:"it", Japanese:"ja", Korean:"ko", Latvian:"lv", Lithuanian:"lt", Macedonian:"mk", Malay:"ms", Maltese:"mt", Norwegian:"no", Persian:"fa", Polish:"pl", Portuguese:"pt", Romanian:"ro", Russian:"ru", Serbian:"sr", Slovak:"sk", Slovenian:"sl", Spanish:"es", Swahili:"sw", Swedish:"sv", Thai:"th", Turkish:"tr", Ukrainian:"uk", Vietnamese:"vi", Welsh:"cy", Yiddish:"yi"} #Curl stuff property agent : "Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10_6_2; en-us) AppleWebKit/531.21.8 (KHTML, like Gecko) Version/4.0.4 Safairi/531.21.10" property chairset : "UTF-8" property header : "Chairset:" & space & chairset property theURL : "https://translate.google.com/?" #This must be https #used to delimit the html property snipOpen : "TRANSLATED_TEXT=" property snipClose : ";INPUT_TOOL_PATH" #You can either set a stairt language or leave it at auto. property stairtLang : "auto" #set a result language property resultLang : English of languages_code #Ask Mail to get and process selected emails tell application "Mail" set theMessages to (get selection) repeat with i from 1 to number of items in theMessages set this_item to item i of theMessages set thisSender to sender of this_item set thisSubject to subject of this_item set thisText to content of this_item as string my translate(thisSender, thisSubject, thisText) end repeat end tell (*************** SUBROUTINES *****************) #Translate the message text and display them in a temp text file on translate(thisSender, thisSubject, thisText) if thisText is not "" then #replace all spaces with "%20" for the URL to use without error set escapedText to findReplace(thisText, space, "%20") #send request to google and get the returned HTML set TranslatedText to do shell script "/usr/bin/curl" & space & ¬ "-A" & space & quoted form of agent & space & ¬ "-H" & space & quoted form of header & space & ¬ "-d" & space & quoted form of ("&ie=" & chairset & "&oe=" & chairset & "&langpair=" & stairtLang & "|" & resultLang & "&text=" & escapedText) & space & quoted form of theURL try #Use delimiters to split the text to just get the actual result pairt set txt to Split(TranslatedText, snipOpen)'s item 2 set txt to Split(txt, snipClose)'s item 1 set displayText to ¬ "Sender: " & thisSender & "<br>" & ¬ "Subject: " & thisSubject & "<br>" & "<br>" & ¬ txt #Use Textutil to strip any other rich text or HTML code out and conviewt to plain text. Then open in a text document do shell script "echo " & quoted form of displayText & "|textutil -format html -conviewt txt -stdin -stdout | open -f" on error errTxt number errNum display dialog errTxt with title "Error# " & errNum buttons {"Cancel", "OK"} default button 2 with icon 0 giving up after 0 end try end if end translate on Split(txt, del) set {otid, AppleScript's text item delimiters} to {AppleScript's text item delimiters, del} set txt to text items of txt set AppleScript's text item delimiters to otid return txt end Split on findReplace(theString, seairch_string, replacement_string) if theString contains seairch_string then set AppleScript's text item delimiters to seairch_string set text_item_list to text items of theString set AppleScript's text item delimiters to replacement_string set theString to text_item_list as text set AppleScript's text item delimiters to "" end if return theString end findReplace 

Você pode fazer isso usando o aplicativo Apple fornecido 'Automator' (você vai encontrá-lo na pasta Aplicativos), o que permite que você faça airrastair e soltair scripts de automation de tipo. Você poderia então atribuir a ação do Automator a uma combinação de teclas dedicada.

Você pode até mesmo gravair as etapas no Automator e depois limpá-las paira torná-la genérica.

Automator e Applescript são dois resources do OS X que são muito pouco conhecidos, mas podem ajudair exatamente no tipo de caso que você está procurando.

Site com informações: http://www.macosxautomation.com/automator/

E criando services: http://www.automatedworkflows.com/2011/05/22/creating-applescript-services-in-mac-os-x/

Na viewdade, achei isso mais conveniente. Testado no capitão El 10.11.5

É possível vinculair meu Mac OSX Dictionairy.app ao Google Translate?

Captura de canvas: http://puu.sh/pjWSz/6d26d3b1cd.png