Applescript

property base_url : "http://api.nabaztag.com/vl/FR/api.jsp?sn=SERIAL&token=TOKEN&"

to talk given tts:tts, ttlive:ttlive, voice:voice
   callUrl("tts=" & tts & "&voice=" & voice & "&ttlive=" & ttlive)
end talk

to callUrl(parameters)
   set urlToGet to base_url & parameters
   set theFile to (path to temporary items folder as text) & "api_nabaztag.xml"
   set donnees to "ERROR"
   
   tell application "URL Access Scripting"
      try
         set fileGot to download urlToGet to theFile replacing yes
         set fileGotOpened to open for access theFile
         set donnees to read fileGotOpened
         close access fileGotOpened
      end try
   end tell
   return donnees
end callUrl

using terms from application "Mail"
   on perform mail action with messages selectedMsgs for rule theRule
      repeat with msg in selectedMsgs
         set logString to "Message pour " & (name of theRule) & " de la part de " & (extract name from sender of msg) & " : " & (subject of msg) & "."
         tell application "MonLapin"
            talk given tts:logString, voice:"julie22k", ttlive:"86400"
         end tell
      end repeat
   end perform mail action with messages
end using terms from

using terms from application "Mail"
   on perform mail action with messages selectedMsgs
      repeat with msg in selectedMsgs
         set logString to do shell script "echo '" & (subject of msg) & "' | sed 's/Alarme - //'"
         tell application "MonLapin"
            talk given tts:logString, voice:"julie22k", ttlive:"86400"
         end tell
      end repeat
   end perform mail action with messages
end using terms from

property base_url : "http://api.nabaztag.com/vl/FR/api.jsp?sn=SERIAL&token=TOKEN&"

to talk given tts:tts, ttlive:ttlive, voice:voice
   callUrl("tts=" & formatText(tts) & "&voice=" & voice & "&ttlive=" & ttlive)
end talk

to callUrl(parameters)
   set urlToGet to base_url & parameters
   set theFile to (path to temporary items folder as text) & "api_nabaztag.xml"
   set fileOpened to open for access theFile with write permission
   set eof of fileOpened to 0
   write "Message non envoyé : erreur d'accès au site" to fileOpened
   close access fileOpened
   
   tell application "URL Access Scripting"
      try
         download urlToGet to theFile replacing yes
      end try
   end tell
   set fileOpened to open for access theFile
   set donnees to read fileOpened
   close access fileOpened
   return donnees
end callUrl

to formatText(theText)
   set prevTids to AppleScript's text item delimiters
   set AppleScript's text item delimiters to "\""
   set liste to theText's text items
   set resultat to first item of liste
   repeat with partie in the rest of liste
      set resultat to resultat & "\\\"" & partie
   end repeat
   set AppleScript's text item delimiters to prevTids
   do shell script "echo \"" & resultat & "\" | sed -e 's/à/%E0/g' -e 's/â/%E2/g' -e 's/ç/%E7/g' -e 's/è/%E8/g' -e 's/é/%E9/g' -e 's/ê/%EA/g' -e 's/ë/%EB/g' -e 's/î/%EE/g' -e 's/ï/%EF/g' -e 's/ô/%F4/g' -e 's/ö/%F6/g' -e 's/û/%FB/g' -e 's/ü/%FC/g'"
end formatText

using terms from application "Mail"
   on perform mail action with messages selectedMsgs for rule theRule
      repeat with msg in selectedMsgs
         set logString to "Message pour " & (name of theRule) & " de la part de " & (extract name from sender of msg) & " : " & (subject of msg) & "."
         tell application "MonLapin"
            set reponse to (talk given tts:logString, voice:"julie22k", ttlive:"86400")
            tell application "Mail"
               set myrecipientaddr to (extract address from sender of msg)
               set myrecipientname to (extract name from sender of msg)
               set mymail to (make new outgoing message at the beginning of outgoing messages with properties {subject:("Re: " & subject of msg), html content:reponse})
               tell mymail to make new to recipient at beginning of to recipients with properties {address:myrecipientaddr, name:myrecipientname}
               send mymail
            end tell
         end tell
      end repeat
   end perform mail action with messages
end using terms from