Encontré el siguiente código en este sitio, pero no me funciona la instrucción para enviar por correo 2 attach desde forms usando OLE2.Me conecto al Outlook con OLE2
PROCEDURE enviarmail (attach1 varchar2 ,attach2 varchar2)IS
objOutlook OLE2.OBJ_TYPE;
objMail OLE2.OBJ_TYPE;
objArg OLE2.LIST_TYPE;
objAttach OLE2.OBJ_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);
objAttach := OLE2.GET_OBJ_PROPERTY(objmail, 'Attachments');
objarg := OLE2.CREATE_ARGLIST;
--NO FUNCIONA al enviar 2 attach
OLE2.ADD_ARG(objarg,attach1||';'||attach2);
OLE2.SET_PROPERTY(objmail,'To','vargasl68@hotmail.com');
OLE2.SET_PROPERTY(objmail,'Subject','Prueba_hotmail');
OLE2.SET_PROPERTY(objmail,'Body','Probando, probando ...');
OLE2.INVOKE(objattach, 'Add', objarg);
OLE2.INVOKE(objmail,'Send');
OLE2.INVOKE(objmail,'Display');
OLE2.RELEASE_OBJ(objmail);
OLE2.RELEASE_OBJ(objOutlook);
OLE2.DESTROY_ARGLIST(objarg);
Message('Su email ha sido creado correctamente, conectese a Outlook para enviarlo.');
EXCEPTION
WHEN OTHERS THEN
MESSAGE('No se ha podido enviar el email,lo siento');
END;
