Re: envio mail desde pl

Buenas: Nosotros en el trabajo tenemos implementado una funcion
pl/perl que envia mails.
te paso un ejemplo de como puede ser la funcion. Fijate que recibe dos
parametros pero no hacen nada, pero los deje en el sentido de que vos
le podes pasar lo que quieras y enviarlo por mail, es facil. Bueno,
espero que te sea util

Saludos

CREATE OR REPLACE FUNCTION perl_mail(int4, int4)
RETURNS int4 AS
$BODY$
use Net::SMTP;
use Getopt::Std;
$smtp = Net::SMTP->new('aca va el nombre, DNS, del servidor SMTP');
$smtp->mail('remitente(at)loquesea(dot)com');
$smtp->to('destinatario(at)loquesea(dot)com');
$smtp->data();

$smtp->datasend("TO: destinatario(at)loquesea(dot)com\n");
$smtp->datasend("Subject:Prueba\n");
$smtp->datasend("Cuerpo del mensaje\n");
$smtp->dataend();
$smtp->quit;
return 1;
$BODY$
LANGUAGE 'plperlu' VOLATILE;
ALTER FUNCTION perl_mail(int4, int4) OWNER TO postgres;

El 30/06/07, FRANZ RICHARD MARIN VASQUEZ <frarimava(at)hotmail(dot)com> escribió:
>
> buenas noches
>
> necsito enviar un correo electronico desde un pl ... quisiera saber si
> alguien me puede giar
>
>
>
> muchas gracias
>
> ________________________________
> Busca desde cualquier página Web con una protección excepcional. Consigue la
> Barra de herramientas de Windows Live hoy mismo y GRATUITAMENTE. Pruébalo