Mail in PL/SQL Oracle

[pupazzo]

Esiste del codice per inviare una mail da una procedura in pl/sql oracle????
Grazie

[floyd]

declare
mailhost VARCHAR2(64) := 'un server mail';
mail_conn utl_smtp.connection;

begin
mail_conn := utl_smtp.open_connection(mailhost, 25);
utl_smtp.helo(mail_conn, mailhost);
utl_smtp.mail(mail_conn, 'indirizzo mittente');
utl_smtp.rcpt(mail_conn, 'indirizzo destinatario');
utl_smtp.open_data(mail_conn);
utl_smtp.write_data(mail_conn, 'testo');

utl_smtp.close_data(mail_conn);
utl_smtp.quit(mail_conn);

[pupazzo]

Grazie.....ci provo subito!!!!!!

[pupazzo]

niente da fare..non ...va..cioè non mi da nessun errore però non invia neanche la mail...
C'è forse qualcosa che bisogna settare???

[floyd]

posta il codice

[pupazzo]

Perdonami ..cosa devo fare??

[floyd]

fammi vedere quello che hai scritto

[pupazzo]

ok scusami...


CREATE OR REPLACE PROCEDURE PR_PROVA_mail IS

err_num NUMBER;
err_msg VARCHAR2(300);
mailhost VARCHAR2(64) := '..server mail..';
mail_conn utl_smtp.connection;

BEGIN
mail_conn := utl_smtp.open_connection(mailhost, 25);
utl_smtp.helo(mail_conn, mailhost);
utl_smtp.mail(mail_conn, '..indirizzo mail..');
utl_smtp.rcpt(mail_conn, '..indirizzo mail..');
utl_smtp.open_data(mail_conn);
utl_smtp.write_data(mail_conn, 'Prova Testo');

utl_smtp.close_data(mail_conn);
utl_smtp.quit(mail_conn);

err_num := SQLCODE;
err_msg := SUBSTR(SQLERRM, 1, 100);



EXCEPTION
WHEN NO_DATA_FOUND THEN
INSERT INTO MAIL_TABLE (
NUM_ERR, DES_ERR)
VALUES (0,'NO DATA FOUND'); COMMIT;

WHEN OTHERS THEN
INSERT INTO MAIL_TABLE (
NUM_ERR, DES_ERR)
VALUES (ERR_NUM,ERR_MSG); COMMIT;


END PR_PROVA_mail;
/

[floyd]

il server devi metterlo mica lo trova lui
gli indirizzi devono essere validi

[pupazzo]

Si si..lo so....ho messo i puntini appositamente ma la procedura l'ho provata con quelle vere.