Dear ooRexx - Users,
We are 2 students of the University of Economics Vienna and we are
currently doing a
Project with Open Object Rexx.
We wish to send an E-Mail to a entered E-Mail Adress (you can see that
in the Code posted below),
but it does not work.
Do you have any Idea how to handle that Problem?
Our program Creates an Open Office Document that get saved to the
user's home directory
and should then be sended via E-Mail to the entered E-Mail Adress. Here is where
our problem is: it is not working...
If you have any Ideas, please let us know, you are helping 2 Students that
are just days away from receiving thei Bachelor's degree... ;)
Kind Regards
Florian Jedamzik & Eric Bruch
P.S.: you can answer us to this E-Mail: h0965...@wu.ac.at
or this one: flo.jedam...@gmail.com
#!/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
::REQUIRES BSF.CLS -- get the Java support
--write in open office and save
::ROUTINE Email
-- Erstelle ODT Datei und verschicke diese
use arg userData --stores the objects to get to the gender and names
-- say 'hello'
-- b = userData~meinungZumLeben~getText -- get Text of meinungZumLeben
-- say b
--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(b)
--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
wirdfrom='h0965...@wu.ac.at' -- Florian Jedamzik
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)
exit
-- -------------------------- Ende e-mail Programm
---------------------------------------------
/*-- get file name and save OO file
storeFileName = "meinungZumLeben.ods"
storeURL = uno.convertToURL(userHome"/"storeFileName) -save in user home folder
writerComponent~XStorable~storeAsURL(storeURL, UNO~noProps)
*/
::requires UNO.CLS --get UNO support vereinte Nationen!!!!
-- greet = .awtLabel~new /* create a label */
-- bye = .awtButton~new('Bye!') /* create a button */
/* add label and button to the window */
-- window2~~add('North', greet)~~add('South', Bye)
-- window2~~pack~~setVisible(.true)~~toFront
/* now prepare to put something into that window */
-- gender = userData~DropDown~getSelectedItem /* get chosen Item */
-- n1 = userData~Name~getText /* get entered text */
-- n2 = userData~Surname~getText /* get entered text */
-- if Gender = "male" then Greet~setText('Hello Mr.' N1 N2)
-- else Greet~setText('Hello Mrs.' N1 N2)
-- rexxCloseEH=.RexxClosePopupEventHandler~new -- create Rexx event handler
-- create a RexxProxy for our Rexx event handler
-- rp=BsfCreateRexxProxy(rexxCloseEH, , "java.awt.event.ActionListener", -
-- "java.awt.event.WindowListener")
-- window2~addWindowListener(rp)
-- bye~addActionListener(rp)
-- rexxcloseEH~waitForExit -- wait until we are allowed to end the program
-- window2~dispose -- dispose of this window
/* ------------------------------------------------------------------------ */
/* 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
