require(rJython) 
rJython <- rJython() 

rJython$exec( "import smtplib, os")
rJython$exec( "from email.MIMEMultipart import MIMEMultipart")
rJython$exec( "from email.MIMEBase import MIMEBase")
rJython$exec( "from email.MIMEText import MIMEText")
rJython$exec( "from email.Utils import COMMASPACE, formatdate")
rJython$exec( "from email import Encoders")

mail<-c( 
"msg = MIMEMultipart()", 
"msg['From'] = 'bigbird@gmail.com'", 
"msg['To'] = 'oscarthegrouch@gmail.com'", 
"msg['Date'] = formatdate(localtime=True)", 
"msg['Subject'] = 'Simple test message'", 

"msg.attach(MIMEText('Your message contents'))", 

"for f in ['file1', 'file2', 'file3':", 
"    part = MIMEBase('application', 'octet-stream')", 
"    part.set_payload( open(f, 'rb').read() )", 
"    Encoders.encode_base64(part)", 
"    part.add_header('Content-Disposition', 'attachment; filename=\"%s\"' % os.path.basename(f))", 
"    msg.attach(part)", 

"server = smtplib.SMTP('smtp.gmail.com:587')", 
"server.ehlo()", 
"server.starttls()", 
"server.ehlo()", 
"server.login(msg['From'], 'PASSWORD_GOES_HERE_JUST_TEXT_TO_MAKE_THIS_STAND_OUT_BLAH_BLAH')", 
"server.sendmail(msg['From'] msg['To'], msg.as_string())", 
"server.close()")

jython.exec(rJython,mail)