Cant attach zipped file

Question

With the guidence of Matt Broughton, my project is screeds ahead of where it was yesterday, but!, as thier always is, ive got one last snag,
File zips up great, but I cant figure how to select it to attach to my mail.
Can select the origional file but all combinations ive tried result in the zipped file not attaching to the out going mail. Ive left the script.
Any help appreciated.
--ZIP ME UP--
on clicked theObject
if name of theObject is "zip" then
set fileChoice to choose file without invisibles
set fileChoice2 to quoted form of POSIX path of ¬
fileChoice as string
set zipFile to (fileChoice & ".zip") as string
set zipFile to quoted form of POSIX path of ¬
zipFile as string
do shell script ¬
"/usr/bin/ditto -c -k -rsrc " & fileChoice2 & " " & zipFile
end if
--ATTACH ZIPPED FILE TO MAIL--
set theAttachments to (fileChoice)
tell application "Mail"
activate
set newMessage to make new outgoing message with properties {content:return & "Attachment: " & return}
tell newMessage
set visible to true
tell content
if ((count of item of theAttachments) > 0) then
repeat with theAttachment in theAttachments
make new attachment with properties {file name:((theAttachment as text) as alias)} at after the last paragraph
end repeat
end if
end tell
end tell
end tell
end clicked
Budgie

Answer 1

Budgie,
I missed the curly brackets.
It should be: set theAttachments to {(fileChoice & ".zip") as string}
repeat with theAttachment in theAttachments
make new attachment with properties {file name:((theAttachment as text) as >alias)} at after the last paragraph
The reason for that is theAttachments need to be a list, without the curly bracets theAttachments is a string.
repeat with theAttachment in theAttachments
Therefore, theAttachment (in theAttachments) is/are letters in theAttachments. The file you select started with M.