FORMS 4.5 and OUTLOOK??

[goldenlam]

Can I get an example of how to invoke Outlook from FORMS 4.5?

I did it a couple years back and lost my code.

 

[mashtiani]

hope this help, kind of dirty code

declare

objOutlook ole2.obj_type;
objMail ole2.obj_type;
objArg ole2.list_type;
objArg2 ole2.list_type;

BEGIN

objOutlook := ole2.CREATE_OBJ('Outlook.Application');
objarg := ole2.CREATE_ARGLIST;
ole2.add_arg(objarg,0);
objMail := ole2.invoke_obj( objOutlook,'CreateItem',objarg);
ole2.destroy_arglist(objarg);
ole2.set_property( objmail,'To','');
ole2.set_property( objmail,'Subject','SOMETHING');
ole2.set_property( objmail,'bcc',strBCC );
ole2.set_property( objmail,'Body', 'string');
ole2.invoke(objmail,'Send');

ole2.invoke(objmail,'Display');

ole2.release_obj(objmail);
ole2.release_obj(objOutlook);
END;