Intake mail

intake_mail.applescript

tell application "Mail"

  set theSubject to "Clean me up!"
  set theContent to "Nothing interesting here..."
  set theAddress to "cleanup.secs@mail.ci.apps.up-nxt.com"
  set theAttachmentFile to "Macintosh HD:Users:kenneth:Dropbox:contact.jpg"

  set msg to make new outgoing message with properties {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}

  send msg
end tell