no mostrar origen del mail

[Linterns]

Pues con una base de datos es sumamente sencillo, te muestro como se hace con Oracle.


PROCEDURE ENVIAR_CORREO
( P_ENVIA IN VARCHAR2,
P_RECIBE IN VARCHAR2,
P_ASUNTO IN VARCHAR2,
P_MENSAJE IN VARCHAR2)
IS
mailhost VARCHAR2(30) := 'nombre_host';
mail_conn utl_smtp.connection;

crlf VARCHAR2( 2 ):= CHR( 13 ) || CHR( 10 );
mesg VARCHAR2( 1000 );
BEGIN
mail_conn := utl_smtp.open_connection(mailhost, 25);

mesg:= 'MIME-Version: 1.0' ||CHR(13)|| CHR(10)||'Content-type: text/html' || CHR(13)||CHR(10)||
'Date: ' || TO_CHAR( SYSDATE, 'dd Mon yy hh24:mi:ss' ) || crlf ||
'From: <'||P_ENVIA||'>' || crlf ||
'Subject: '||P_ASUNTO || crlf ||
'To: '||P_RECIBE || crlf ||
'' || crlf || P_MENSAJE;
utl_smtp.helo(mail_conn, mailhost);
utl_smtp.mail(mail_conn, P_ENVIA);
utl_smtp.rcpt(mail_conn, P_RECIBE);
utl_smtp.data(mail_conn, mesg);
utl_smtp.quit(mail_conn);
END;