set theAttachment to choose file with prompt "Choose the image AFECT has trouble with"
tell application "Mail"
	set theMessage to make new outgoing message with properties {visible:true, subject:"AFECT Mistake"}
	tell content of theMessage
		make new attachment with properties {file name:theAttachment} at after last paragraph
	end tell
	tell theMessage
		make new to recipient at end of to recipients with properties {name:"AFECT Bug Reports", address:"mistakes@mpt4u.com"}
	end tell
end tell