Trouble with Sending Mails with forms 6i on a Citrix Environment

Question

I have a problem, cause i tryed to use the guide`s that i found in the forum, but using this code:
PACKAGE mail_pkg IS
/* paquete sacado de internet: UTL_SMTP package */
session OLE2.OBJ_TYPE; /* OLE object handle */
args OLE2.LIST_TYPE; /* handle to OLE argument list */
procedure logon( Profile IN varchar2 default NULL );
procedure logoff;
procedure send( Recp IN varchar2,
Subject IN varchar2,
Text IN varchar2,
Attch IN varchar2
END;
PACKAGE BODY mail_pkg IS
session_outbox OLE2.OBJ_TYPE;
session_outbox_messages OLE2.OBJ_TYPE;
message1 OLE2.OBJ_TYPE;
msg_recp OLE2.OBJ_TYPE;
recipient OLE2.OBJ_TYPE;
msg_attch OLE2.OBJ_TYPE;
attachment OLE2.OBJ_TYPE;
procedure logon( Profile IN varchar2 default NULL )is
Begin
session := ole2.create_obj('mapi.session');
/* create the session object */
args := ole2.create_arglist;
ole2.add_arg(args,Profile);/* Specify a valid profile name */
ole2.invoke(session,'Logon',args);
/* to avoid the logon dialog box */
ole2.destroy_arglist(args);
End;
procedure logoff is
Begin
ole2.invoke(session,'Logoff');
/* Logoff the session and deallocate the */
/* resources for all the OLE objects */
ole2.release_obj(session);
ole2.release_obj(session_outbox);
ole2.release_obj(session_outbox_messages);
ole2.release_obj(message1);
ole2.release_obj(msg_recp);
ole2.release_obj(recipient);
ole2.release_obj(msg_attch);
ole2.release_obj(attachment);
End;
procedure send( Recp IN varchar2,
Subject IN varchar2,
Text IN varchar2,
Attch IN varchar2
)is
Begin
/* Add a new object message1 to the outbox */
session_outbox := ole2.get_obj_property(session,'outbox');
session_outbox_messages := ole2.get_obj_property(session_outbox,'messages');
message1 := ole2.invoke_obj(session_outbox_messages,'Add');
ole2.set_property(message1,'subject',Subject);
ole2.set_property(message1,'text',Text);
/* Add a recipient object to the message1.Recipients collection */
msg_recp := ole2.get_obj_property(message1,'Recipients');
recipient := ole2.invoke_obj(msg_recp,'add') ;
ole2.set_property(recipient,'name',Recp);
ole2.set_property(recipient,'type',1);
ole2.invoke(recipient,'resolve');
/* Add an attachment object to the message1.Attachments collection */
msg_attch := ole2.get_obj_property(message1,'Attachments');
attachment := ole2.invoke_obj(msg_attch,'add') ;
ole2.set_property(attachment,'name',Attch);
ole2.set_property(attachment,'position',0);
ole2.set_property(attachment,'type',1); /* 1 => MAPI File Data */
ole2.set_property(attachment,'source',Attch);
/* Read the attachment from the file */
args := ole2.create_arglist;
ole2.add_arg(args,Attch);
ole2.invoke(attachment,'ReadFromFile',args);
ole2.destroy_arglist(args);
args := ole2.create_arglist;
ole2.add_arg(args,1); /* 1 => save copy */
ole2.add_arg(args,0); /* 0 => no dialog */
/* Send the message without any dialog box, saving a copy in the Outbox */
ole2.invoke(message1,'Send',args);
ole2.destroy_arglist(args);
--message('Correo Electrónico Enviado Correctamente');
End;
END;
I have an error when I try to send a mail, i create a pdf file, and just after appears this message:
FRM-40735: WHEN-BUTTON-PRESSED trigger raised unhandled exception ORA-305500
I use a Citrix environment, but if I use local applicattion, in my machine, without citrix, It send the e-mail correctly.
Any help??
Please...

Answer 1

Duane,
don't knowwhy you chose to extend VButton, but the following code works for me. Note that I extend the VBean class. Also I am using Jinitiator 1.3.1.9 (this is what I had available for testing). My first test chowed that there was a problem with the way you specify teh URL string, which is why I harcoded the URL string when building the URL.
Another issue when running it is that you need to sign the file because it needs socket permission (at least this was the error shown on a remote client).
Here's the code
package mypackage3;
import oracle.forms.ui.*;
import oracle.forms.properties.ID;
import java.net.URL;
import java.applet.*;
import javax.swing.JTextField;
import oracle.forms.handler.IHandler;
public class Class1 extends VBean {
public final static ID PLAY = ID.registerProperty("PLAY");
private IHandler mHandler = null;
public Class1()
super();
public void init(IHandler handler)
mHandler = handler;
super.init(handler);
public boolean setProperty(ID property, Object value) {
if (property == PLAY)
try
System.out.println("before soundplay");
URL sou = new URL("http://fnimphiu-lap.de.oracle.com/forms60java/Drums.wav");
System.out.println("1");
//Applet testapp = new Applet();
Applet testapp = mHandler.getApplet();
System.out.println("2");
AudioClip clip = testapp.getAudioClip(sou);
System.out.println("3");
clip.play();
System.out.println("after soundplay");
return true;
catch(Exception ex)
ex.printStackTrace();
return super.setProperty(property, value);
Fran