DesarrolloOracleForms : Mensaje: Re: [Forms] ENVIA CORREOS DESDE FORMS 5

Hola Carina como te va espero que esto te ayude con lo que estas haciendo,

Para enviar pdf debes crear un reporte en reports.

Se puede hacer de distintas formas puedes enviarle los parametros desde forms y que el reporte se arme con ellos (los parámetros) en una ruta específica y una vez generado el archivo pdf enviarlo con el paquete smtp que el que se puede adjuntar.

Aqui te paso el codigo para que veas como deberías emplearlo

Saludos,

Johann Montero A

Desarrollador de Soluciones Oracle

Costa Rica

--------------------

Declare
   Lista                 ParamList;       -- Joma02 Comprobante de Pago
   ws_message_level      number;
   cNomReporte            varchar2(50);
   vruta                          varchar2(50);
   archivo                       varchar2(50);
   vtipo_correo               varchar2(50);
   vasunto_correo           varchar2(50);
   vdetalle                       varchar2(1000);
   --
BEGIN
BEGIN

GO_BLOCK(xxxx); -- Ir al bloque xxx

FIRST_RECORD;

    mail_pkg.logon('llamas al correo');      -- Abre sesión de correo.

  LOOP                                 -- Inicia ciclo envia N Mails    si es mas de 1 usuario
   begin


   Archivo :='C:\xxxx||secuencia||'.pdf';-- la secuencia se utiliza si es para multiples usuarios
          -- Lista de parámetros para Reporte
         Lista := Get_Parameter_List('PARAMETROS');
         if not id_null(lista) then
            Destroy_Parameter_List(Lista);
         end if;
         Lista := Create_Parameter_List('PARAMETROS');

        --- pasas todos los parametros que requieras
         Add_Parameter(Lista,'PARAMFORM'        ,TEXT_PARAMETER, 'NO');
         Add_Parameter(Lista,'DESNAME'     ,TEXT_PARAMETER, archivo);
         Add_Parameter(Lista,'DESTYPE'     ,TEXT_PARAMETER, 'FILE');
         Add_Parameter(Lista,'DESFORMAT'   ,TEXT_PARAMETER, 'RTF');
         Add_Parameter(Lista,'MODE'        ,TEXT_PARAMETER, 'DEFAULT');
         Add_Parameter(Lista,'ORIENTATION' ,TEXT_PARAMETER, 'PORTRAIT');
         Add_Parameter(Lista,'PRINTJOB'    ,TEXT_PARAMETER, 'NO');
         Add_Parameter(Lista,'BATCH'       ,TEXT_PARAMETER, 'YES');
         --
         cNomReporte := 'C:\nombrereporte'; -- Ruta y nombre del reporte a ejecutar
         -- Run_Product(REPORTS,cNomReporte,SYNCHRONOUS,RUNTIME,FILESYSTEM,LISTA,NO_SCREEN);
         Run_Product(REPORTS,cNomReporte,SYNCHRONOUS,RUNTIME,FILESYSTEM,LISTA,NULL);
         --
      mail_pkg.send(ltrim(rtrim(cuentamail@usuario)),
                       vasunto_correo,
                       vdetalle,
                       archivo);                            -- Parámetros de envio.
  End if;

IF :SYSTEM.LAST_RECORD = 'TRUE' THEN
      EXIT;

ELSE
   -- DESP_MENSAJE('M','NEXT RECORD ');
     NEXT_RECORD;
END IF;
exception
       when others then
           :bl_base.p_estado := 'PROCESO FALLO REVISE Y REINTENTE';
           DESP_MENSAJE('M','Error : Parámetros de envio. '||sqlerrm);
   END;
  END LOOP;
    mail_pkg.logoff;                                         -- Cierra sesión de Mail.

END;

END;

---------------------

Aqui te paso el paquete mail_pkg es de copy paste

para 6i

PACKAGE mail_pkg IS

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);

End;

END;

----------------------------------------------------------------------------------------------------

----- Mensaje original ----
De: "Massarelli, Carina" <MassarelliC@...>
Para: DesarrolloOracleForms@yahoogroups.com
Enviado: jueves, 8 de febrero, 2007 13:04:56
Asunto: RE: [Forms] ENVIA CORREOS DESDE FORMS 5

Hola!!
Alguien sabe si se pueden mandar .pdf desde form 6i por mail? Alguien tienen ejemplos?

Muchas gracias. Saludos.

Ing. Carina Massarelli

Sistemas

BBVA Consolidar

4340-0000 Int. 22365

De: DesarrolloOracleFor ms@yahoogroups. com [mailto:DesarrolloO racleForms@ yahoogroups. com] En nombre de Pedro Cortés
Enviado el: Miércoles, 24 de Enero de 2007 07:27 p.m.
Para: DesarrolloOracleFor ms@yahoogroups. com
Asunto: Re: [Forms] ENVIA CORREOS DESDE FORMS 5

Jose buenas tardes. Yo llamo desde un boton este procedimiento cualquier cosa me cuentas.

Att PEDRO CORTES

PROCEDURE envia_MAIL1 (TOO IN VARCHAR2,
           FROMM IN VARCHAR2,
                    SUBJECT IN VARCHAR2,
                    BODY IN VARCHAR2) is


CONN        UTL_SMTP.CONNECTION ;
SMTP_HOST   VARCHAR2(50)    := ' ';
PORT        VARCHAR2(2)     := 25;
MSG_HEADER VARCHAR2(2000) := null;
CR          VARCHAR2(2)     := chr(10)||chr( 13);
MSG_BODY    VARCHAR2(4000) ;

BEGIN
CONN := UTL_SMTP.OPEN_ CONNECTION( '192.160. 254.9', PORT);
MSG_HEADER := 'Date: ' ||
TO_CHAR(SYSDATE, 'dd-Mon-yy hh24:mi:ss') || CR ||
'From: <'||FROMM||'>' || CR ||
'Subject: '||SUBJECT|| CR ||
'To: '||TOO || CR || '' || CR;
-- MSG_BODY := MSG_HEADER || BODY; ---- MSG_HEADER GENERA EL DOCUMENTO CON DATOS DEL SERVIDOR DE CORREO
MSG_BODY := BODY;
UTL_SMTP.HELO( CONN, SMTP_HOST);
UTL_SMTP.MAIL( CONN, FROMM);
UTL_SMTP.RCPT( CONN, TOO);
UTL_SMTP.DATA( CONN, MSG_BODY);
UTL_SMTP.QUIT( CONN);

EXCEPTION
WHEN OTHERS THEN
MUESTRA_ERROR ('FALLO EL ENVIO DEL E_MAIL POR FAVOR COMUNICARSE CON SISTEMAS',0) ;

END;

jose antonio de la torre cueto <josedelatorrecueto@ yahoo.es> escribió:

Buenos dias al grupo

alguien tiene un programa para enviar un correo al cliente, poniendole el correo que esta grabado en un campo de la base de datos

LLama Gratis a cualquier PC del Mundo.
Llamadas a fijos y móviles desde 1 céntimo por minuto.
http://es.voice. yahoo.com

____________ _________ _________ _________ _________ __
Correo Yahoo!
Espacio para todos tus mensajes, antivirus y antispam ¡gratis!
Regístrate ya - http://correo. espanol.yahoo. com/

__________________________________________________
Correo Yahoo!
Espacio para todos tus mensajes, antivirus y antispam ¡gratis!
Regístrate ya - http://correo.espanol.yahoo.com/

Consejos de Yahoo! Grupos

¿Sabías que...?

Mensajes