Here you can see the new added Code to send the E-Mail
in bigger letters ;)
Kind regards
Flo
#!/usr/bin/rexx
If arg(1)='?' Then Do
Parse Source source
Say source
Say 'Create a window with a choice-object and two text-fields and
buttons;'
Say ' if the ok-button is pressed then popup another window and display'
Say ' what was chosen and entered, respectively.'
Exit
End
if BsfInvokedBy()=1 then say "This Rexx program was invoked by Java!"
else if BsfInvokedBy()=2 then say "This Rexx program was invoked by Rexx,
JVM loaded by Rexx!"
else say "No JVM present, we got troubles ..."
/* create userData for use with the Greetings routine and event handlers;
this allows us to access the registered objects */
userData=.directory~new
rexxCloseEH=.RexxCloseAppEventHandler~new -- create Rexx event handler
-- create a RexxProxy for our Rexx event handler
rpCloseEH=BsfCreateRexxProxy(rexxCloseEH, ,
"java.awt.event.ActionListener", -
"java.awt.event.WindowListener")
/* create Object Rexx prox-classes for the following
"java"-classes: */
.BSF~bsf.import('java.awt.Button' , 'awtButton' )
.BSF~bsf.import('java.awt.Choice' , 'awtChoice' )
.BSF~bsf.import('java.awt.Color' , 'awtColor' )
.BSF~bsf.import('java.awt.Frame' , 'awtFrame' )
.BSF~bsf.import('java.awt.GridLayout', 'awtGridLayout' )
.BSF~bsf.import('java.awt.Label' , 'awtLabel' )
.BSF~bsf.import('java.awt.TextField' , 'awtTextField' )
/* create 4 labels */
label1 = .awtLabel~new('Matrikelnummer: ')
label2 = .awtLabel~new('Passwort: ')
label3 = .awtLabel~new('Meinung zum Leben: ')
label4 = .awtLabel~new('e-mail Adresse: ')
/* create 4 textfields */
matrikelnummer = .awtTextField~new
passwort = .awtTextField~new
meinungZumLeben = .awtTextField~new
eMailAdresse = .awtTextField~new
/* create userData for use with the Email routine;
this allows us to access the registered objects */
userData~Matrikelnummer = Matrikelnummer -- register Matrikelnummer
object
userData~Passwort = Passwort -- register Passwort object
userData~meinungZumLeben = meinungZumLeben -- register meinungZumLeben
object
userData~eMailAdresse = eMailAdresse -- register eMailAdresse
object
/* create 2 buttons and add addEventListeners to them */
oK = .awtButton~new('OK send e-Mail')
rpOk=BsfCreateRexxProxy(.RexxOkHandler~new, userData,
"java.awt.event.ActionListener")
ok~addActionListener(rpOk)
cancel = .awtButton~new('Cancel')
cancel~addActionListener(rpCloseEH)
/* set the window layout */
-- Background = .awtColor~new(150, 150, 250)
background = .awtColor~newStrict("int", 200, "int", 200, "int", 200)
gLayout = .awtGridLayout~new(5, 2)
window = .awtFrame~new('der T-RexXx')
window~addWindowListener(rpCloseEH)
/* add all the elements to the window */
window~setLayout(GLayout)
window~~add(Label1)~~add(matrikelnummer)
window~~add(Label2)~~add(passwort)
window~~add(Label3)~~add(meinungZumLeben)
window~~add(Label4)~~add(eMailAdresse)
window~~add(OK) ~~add(Cancel)
window~setSize(500, 500)
window~setBackground(Background)
window~~pack~~setVisible(.true)~~toFront
/* no access needed anymore, free the references to
the objects (just to demonstrate this feature) */
drop label1
drop label2
drop label3
rexxCloseEH~waitForExit -- wait until we are allowed to end the program
window~dispose -- dispose of the Window
-- if Java was loaded by Rexx, then terminate Java's RexxEngine to inhibit
callbacks from Java
call BSF.terminateRexxEngine
--write in open office and save
::ROUTINE Email
-- Erstelle ODT Datei und verschicke diese
use arg userData
say 'hello'
c = userData~meinungZumLeben~getText -- get Text of meinungZumLeben
say c
--retrieve Desktop object, we need its XComponentLoader interface to load a
new document
xDesktop = UNO.createDesktop()
xComponentLoader = xDesktop~XComponentLoader
--create a new writer document
url = "private:factory/swriter"
writerComponent = xComponentLoader~loadComponentFromURL(url,
"_blank", 0, .UNO~noProps)
--get the Text object
xText = writerComponent~XTextDocument~getText
--create a text-cursor, fetch a word cursor of it as well
xTextCursor = xText~createTextCursor
xWordCursor = xTextCursor~XWordCursor
--create the Cursor Property
xTextCursorProps = xTextCursor~XPropertySet
--write meinungZumLeben
xText~setString(c)
--save swriter file
userHome = .java.lang.System~getProperty("user.home") --home
directory from java
fileName = "meinungZumLeben.ods" -- Name der Datei
storeURL = uno.convertToURL(userHome"/"fileName)
writerComponent~XStorable~storeAsURL(storeURL, .UNO~noProps)
say "New document saved to" pp(uno.convertFromURL(storeURL))
-- OO schließen
writerComponent~dispose
-- -------------------------- starte E-mail Programm
----------------------------------------
-- Konfigurierungsdaten
--to=userData~eMailAdresse~getText --get E-mail Adresse zu dem
versendet wird
to='h1252...@wu.ac.at'
from='h1252...@wu.ac.at' -- Eric Bruch
host='mail.wu.ac.at' -- Host WU Wien
subject='Lebenseinstellung' -- E-Mail Subject line
text='T-RexXx!!!!'
-- get Properties and set to smtp
properties=.bsf~new('java.util.Properties')
properties=BSF.import('java.lang.System')~getProperties()
properties~setProperty('mail.smtp.host', host)
session=BSF.import('javax.mail.Session')~getDefaultInstance(properties)
--set session to send e-mail
message=.bsf~new('javax.mail.internet.MimeMessage', session)
message~setFrom(.bsf~new('javax.mail.internet.InternetAddress', from))
--set from who message is
toadress=.bsf~new('javax.mail.internet.InternetAddress', to) -- set where
message is going
-- set TO Field for STMP Session
message~addRecipient(BSF.getStaticValue('javax.mail.Message$RecipientType',
'TO'), toadress)
-- set SUBJECT for SMTP Session
message~setSubject(subject)
-- set MESSAGE TEXT for SMTP Session
message~setText(text)
multipart=BSF.import("javax.mail.internet.MimeMultipart")~new
bodypart=BSF.import("javax.mail.internet.MimeBodyPart")~new
attachment=BSF.import("javax.activation.FileDataSource")~new(storeURL)
--attach object to e-mail
handler=BSF.import("javax.activation.DataHandler")~new(attachment)
bodypart~setDataHandler(handler)
bodypart~setFileName(fileName)
multipart~addBodyPart(bodypart)
message~setContent(multipart)
--set the Date
--nööh
--send the message
--.BSF~bsf.import('javax.mail.Transport' , 'mailTransport')
--versender = .mailTransport~new(session, storeURL)
--versender~send(message)
--versender=.bsf~new('javax.mail.Transport', session, storeURL)
--versender=versender~new(session, storeURL)
--versender~send(message)
res=BSF('invoke', BSF.loadClass('javax.mail.Transport'),'send', message)
-- .BSF.import("javax.mail.Transport")
-- versender = .mailTransport~new
-- versender~send(message)
--transport=.bsf~new('javax.mail.Transport', session, host)
--transport~send(message)
-- -------------------------- Ende e-mail Programm
------------------------------
---------------
::requires UNO.CLS --get UNO support vereinte Nationen!!!!
::REQUIRES BSF.CLS -- get the Java support
/* ------------------------------------------------------------------------
*/
/* Rexx event handler to set "close app" indicator */
::class RexxCloseAppEventHandler
::method init /* constructor */
expose closeApp
closeApp = .false -- if set to .true, then it is safe to close the app
::attribute closeApp -- indicates whether app should be closed
::method unknown -- intercept unhandled events, do nothing
::method actionPerformed -- event method (from ActionListener)
expose closeApp
closeApp=.true -- indicate that the app should close
::method windowClosing -- event method (from WindowListener)
expose closeApp
closeApp=.true -- indicate that the app should close
::method waitForExit -- method blocks until attribute is set to
.true
expose closeApp
guard on when closeApp=.true
/* ------------------------------------------------------------------------
*/
/* Rexx event handler to process tab changes */
::class RexxOkHandler
::method actionPerformed
use arg eventObject, slotDir
reply -- do not block awt-thread, proceed execution on a new
thread
call Email slotDir~userData
/* ------------------------------------------------------------------------
*/
/* Rexx event handler to set "close app" indicator */
::class RexxClosePopupEventHandler
::method init /* constructor */
expose closeApp
closeApp = .false -- if set to .true, then it is safe to close the app
::attribute closeApp -- indicates whether app should be closed
::method unknown -- intercept unhandled events, do nothing
::method actionPerformed -- event method (from ActionListener)
expose closeApp
closeApp=.true -- indicate that the app should close
::method windowClosing -- event method (from WindowListener)
expose closeApp
closeApp=.true -- indicate that the app should close
::method waitForExit -- method blocks until attribute is set to
.true
expose closeApp
guard on when closeApp=.true
------------------------------------------------------------------------------
Dive into the World of Parallel Programming. The Go Parallel Website,
sponsored by Intel and developed in partnership with Slashdot Media, is your
hub for all things parallel software development, from weekly thought
leadership blogs to news, videos, case studies, tutorials and more. Take a
look and join the conversation now. http://goparallel.sourceforge.net/
_______________________________________________
Oorexx-users mailing list
Oorexx-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/oorexx-users
