this is the Script
set theAccount to "kiel"
set theSubject to "test the script"
set theAddress to "email@hidden"
set fileName to "coso"
set fileExtension to ".jpg"
set theAttachment1 to fileName & fileExtension
set theAttachment to (((path to desktop) as string) & theAttachment1)
as alias
tell application "Mail"
activate
set newMessage to make new outgoing message with properties
{account:theAccount, subject:theSubject, content:theData}
tell newMessage
make new to recipient at end of to recipients with properties
{address:theAddress}
--set visible to false
tell content
make new attachment with properties {file name:theAttachment} at
after the last paragraph
end tell
end tell
send newMessage
end tell
this is a dog
