Applescript and insert names without extension (Mail)

Question

Hi,
my script does the following when i drop a video file on this app:
1. transcode it to ogg
2. copy the name and insert it in a newly created mail in the Subject and Message with "NameOfFile"
It is nearly perfect but it copies the file extension in the new mail, too.
How do i get the app to insert only the name without the Extension??
Best Regards
Lysard
on open of droppedFiles
          tell application "Finder"
                    set NameOfFile to name of item (item 1 of droppedFiles as alias)
          end tell
          repeat with nextDroppedFile in droppedFiles
                    set videoname to POSIX path of nextDroppedFile
                    if videoname contains "." then
                              set oldDelims to AppleScript's text item delimiters
                              set AppleScript's text item delimiters to {"."}
                              set videooutput to text 1 thru text item -2 of videoname
                              set AppleScript's text item delimiters to oldDelims
                    end if
                    set SettingPfad to POSIX path of (path to me)
                    tell application "Terminal"
                              do script ("ffmpeg2theora " & quoted form of videoname & " -f 30 -x 720 -y404 -V1500 -A 128 --two-pass -o " & quoted form of videooutput & "_XYZ.ogv")
                    end tell
                    tell application "Mail"
                              set theSubject to "Anlieferung " & NameOfFile & " _XXX"
                              set theContent to "Hallo,
" & NameOfFile & " ist availible here:
xxx
BR
ME"
                              set theAddress to "[email protected]"
                              set theSignatureName to "Signatur 1"
                              set msg to make new outgoing message with properties {sender:"[email protected]", subject:theSubject, content:theContent, visible:true}
                              tell msg to make new to recipient at end of every to recipient with properties {address:theAddress}
  --tell msg to make new attachment with properties {file name:theAttachmentFile as alias}
                              set message signature of msg to signature theSignatureName
                    end tell
          end repeat
end open

Answer 1

There are a couple of points in your original script that should be addressed.
One you are dropping files on the script and sending them out as mail messages but because you are setting the filename before you actually loop through the dropped files all mail messages will have the same filename. You should move
tell application "Finder"
                    set NameOfFile to name of item (item 1 of droppedFiles as alias)
          end tell
Inside the repeat to get the actual filename in each mail message.
Then this
if videoname contains "." then
             set oldDelims to AppleScript's text item delimiters
             set AppleScript's text item delimiters to {"."}
             set videooutput to text 1 thru text item -2 of videoname
             set AppleScript's text item delimiters to oldDelims
end if
While it works is defeating the whole point of setting the text item delimiter.
Once you do
set AppleScript's text item delimiters to {"."}
then text item 1 of videoname is the filename and text item 2 is the extension ie:
set videooutput to text item 1 of videoname
will get the name of the file into videooutput
In fact you could just use videooutput as the name in the mail message.
regards