mtaguila
07 de Octubre del 2003

como puedo enviar correo con archivo atachado desde forms

REDUARDO
07 de Octubre del 2003

prueba con este procedimiento en tu forma :

PROCEDURE envia_mail is

CRLF CONSTANT VARCHAR2(10) := chr(13) || chr(10);

c utl_smtp.connection;

PROCEDURE send_header(name IN VARCHAR2, header IN VARCHAR2) AS
BEGIN
utl_smtp.write_data(c, name || ': ' || header || CRLF);
END;

BEGIN
c := utl_smtp.open_connection('dcuniversales');
utl_smtp.helo(c, 'dcuniversales');
utl_smtp.mail(c, '[email protected]');
utl_smtp.rcpt(c, '[email protected]');
utl_smtp.open_data(c);
send_header('From', '"Sender" Elder Guerra');
send_header('To', '"Recipient" Elder Guerra Job');
send_header('Subject', 'Hello');
utl_smtp.write_data(c, CRLF || 'Hello, world!');
utl_smtp.close_data(c);
utl_smtp.quit(c);
EXCEPTION
WHEN utl_smtp.transient_error OR utl_smtp.permanent_error THEN
utl_smtp.quit(c);
message('Error al enviar el correo....' || sqlerrm);
END;

creo que necesitas unas dll's para correr este procedimiento, pruebalo mientras yo busco las librerias, puedes escribirme cuando quieras,
[email protected] con Rafael Aguirre

que tengas un buen dia.