Applescript with quicktime and Lame encoder

Question

Hi there, I´m using Quicktime Pro 7.1.3 on OS X 10.4.8 and I´m wondering if it´s possible to use Apple script to export a new recorded sound directly to mp3 using the lame encoder, like:
tell application "QuickTime Player"
set theFilename to (choose file name)
set theExportName to (theFilename & ".mp3") as Unicode text
new audio recording
start first recording
delay 100000
stop first recording
export movie 1 to theExportName as ??? using most recent settings
quit saving no
end tell
has anybody a suggestion?
Thanks in advance
Mac Mini   Mac OS X (10.4.2)  

Answer 1

tell application "QuickTime Player"
activate -- Launch and / or bring forth 'QuickTime'.
set tList to {} -- List to contain obtained date.
tell movie 1 to copy name to end of tList -- Place name of current movie into tList.
repeat
set {tFlag, tResult} to {0, display dialog "(Start Time) ... Subject letter: " default answer "A" buttons {"OK"} default button 1}
-- Place Subject Name and scaled Start Time into tList.
tell movie 1 to set {tSubject, movie_Name, start_time, time_scale} to {text returned of tResult, name, current time, time scale}
copy {tSubject, start_time / time_scale} to {end of tList, end of tList}
if ((button returned of (display dialog "End time of Subject: " & tSubject buttons {"Completed", "Continue..."} default button 2)) is "Completed") then set tFlag to 1
tell movie 1 to set end_time to current time
copy (end_time / time_scale) to end of tList -- Place scaled End Time into tList.
if (tFlag = 1) then exit repeat -- Exit infinite loop when 'Completed' button is selected.
end repeat
tell application "Microsoft Excel"
activate -- Launch and / or bring forth 'Excel'.
if (not (document 1 exists)) then make new document -- Create a new document, if needed.
-- Add header information to Worksheet.
set (value of cell 1 of row 1) to "Movie Title: "
set Column_Titles to {"Subject", "Start Time", "End Time", "Difference"}
repeat with i from 1 to (count Column_Titles)
set (value of cell i of row 3) to (item i of Column_Titles)
end repeat
-- Add contents of tList to the worksheet.
set tInc to 1
repeat with i from 1 to (((count tList) - 1) / 3)
repeat with j from 1 to 3
set tInc to (tInc + 1)
set (value of cell j of row (i + 4)) to (item tInc of tList)
end repeat
set (value of cell (j + 1) of row (i + 4)) to ((item tInc of tList) - (item (tInc - 1) of tList))
end repeat
end tell
end tell
  Mac OS X (10.4.4)